Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1672to1676
1672to1676
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text im Textfeld mit bestimmten Datum löschen

Forumthread: Text im Textfeld mit bestimmten Datum löschen

Text im Textfeld mit bestimmten Datum löschen
13.02.2019 17:37:41
Peter
Ich habe einen Arbeitsplankalender erstellt und auf der ersten Seite habe ich die Übersicht eines auswählbaren Monats, wo jeder Tag mit dem eigentlichen Kalender verlinkt ist. Im eigentlichen Kalender sind neben der Diensteinteilung auch Termine eingetragen wo im Kommentar steht um was für einen Termin es sich handelt. Da ich aber keine Kommentare in der Übersicht aufrufen kann, habe ich in einer Spalte alle Zeilen verbunden und trage hier nun fortlaufend die Termine ein. Wenn Termine abgelaufen sind, möchte ich diese über ein Makro innerhalb des Textfensters löschen.
Format sieht folgendermaßen aus:
_________________________________
Datum" von "Uhrzeit" bis "Uhrzeit
"worum geht es"
Die Trennzeile habe ich mit Unterstrichen gemacht, so das zwischen den Terminen immer die Trennzeile steht.
Für Hilfe bin ich echt dankbar.
LG Peter
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text im Textfeld mit bestimmten Datum löschen
13.02.2019 18:33:32
onur
Sol ich dir mein Makro auch nur beschreiben - so wie du dein Blatt?
AW: Text im Textfeld mit bestimmten Datum löschen
13.02.2019 18:36:55
Peter
Zur Verdeutlichung noch die Eingabe über das Makro in das Textfeld:
Termine = Range("Terminfeld").Value
Range("Terminfeld") = Termine & Chr(10) & "______________________________" & Chr(10) & TagVom & " von " & Format(ZeitVon, "hh:mm") & " bis " & Format(ZeitBis, "hh:mm") & Chr(10) & Kommentar
Termine soll dann die bisherigen Termine enthalten, welche schon im Terminfeld stehen und im Kommentar steht dann der neue Eintrag
Anzeige
AW: Text im Textfeld mit bestimmten Datum löschen
13.02.2019 18:48:09
onur
Noch ein mal: KEINE Beschreibung!
Poste eine (Beispiels-)Datei.
AW: Text im Textfeld mit bestimmten Datum löschen
13.02.2019 18:52:30
Peter
Habe das parallel zu deinem Post geschrieben, deswegen vielleicht nicht ganz ausreichend. Würde ungern meinen ganzen Kalender online stellen, müsste eine abgespeckte Version sein, das schaffe ich aber heute nicht mehr. Habe ein JPG eingestellt, reicht das?
Anzeige
AW: Text im Textfeld mit bestimmten Datum löschen
13.02.2019 18:55:03
onur
Es reicht schon, wenn ersichtlich, wie das:
" habe ich in einer Spalte alle Zeilen verbunden und trage hier nun fortlaufend die Termine ein. Wenn Termine abgelaufen sind, möchte ich diese über ein Makro innerhalb des Textfensters löschen."
genau aussieht
AW: Text im Textfeld mit bestimmten Datum löschen
13.02.2019 19:01:15
Peter
Hier das JPG, so Sieht meine Übersicht aus:
Userbild
Danke auf jeden Fall für die Mühe.
Gruß
Peter
Anzeige
AW: Text im Textfeld mit bestimmten Datum löschen
13.02.2019 19:06:46
onur
Ist es denn so schwer?
Datei- Kein Bildchen!
Ist es denn so schwer, das Blatt einfach in eine leere Datei zu kopieren und diese zu posten?
Ich habe null Interesse an deiner Datei oder deinem Code, ich habe nur keine Lust, dir alles nach und nach aus der Nase ziehen zu müssen oder dein Blatt nachzubauen.
Anzeige
AW: Text im Textfeld mit bestimmten Datum löschen
13.02.2019 19:12:53
Peter
O.K das war zu einfach, da bin ich nicht drauf gekommen. Ich hätte auch keine Probleme meinen Kalender frei zu geben, aber derzeit sind auch Namen und Adressen hinterlegt, da bin ich dann vorsichtig!
https://www.herber.de/bbs/user/127641.xlsm
Muss leider los, melde mich morgen wieder, danke!
Anzeige
AW: Text im Textfeld mit bestimmten Datum löschen
14.02.2019 16:39:02
Peter
Wow, richtig großes Kino! Es funktioniert und ich begreife sogar wie, wäre aber nie darauf gekommen. In meiner Tabelle war in der ersten Zeile eine Leerzeile, dadurch hat er bei einem zweiten Durchgang einen Fehler generiert. Ich habe nun die Leerzeile gelöscht und lasse die For-Schleife statt von 2, von 1 loslaufen. So geht's!
Private Sub CommandButton1_Click()
Dim txt, arr, i, zeit, termin, zt
txt = Cells(6, 34)
Cells(6, 34) = ""
arr = Split(txt, Chr(10))
For i = 1 To UBound(arr) - 1 Step 3
zt = arr(i)
zt = Replace(zt, " von ", "*")
zt = Replace(zt, " bis ", "*")
zeit = Split(zt, "*")
termin = CDate(zeit(0) + " " + zeit(2))
If Now > termin Then
arr(i) = "": arr(i + 1) = "": arr(i - 1) = ""
End If
Next i
For i = 1 To UBound(arr)
Cells(6, 34) = Cells(6, 34) + arr(i)
If arr(i)  "" Then Cells(6, 34) = Cells(6, 34) + Chr(10)
Next i
End Sub
Vielen Dank noch für Deine Mühe, ich habe einiges gelernt!
LG Peter
Anzeige
AW: Text im Textfeld mit bestimmten Datum löschen
14.02.2019 17:30:16
onur
Gern geschehen.
Du hättest es aber viel leichter gehabt, wenn du statt dem großen Textfeld eine Listbox mit Spalten "Datum", "von", "bis" und "Beschreibung genommen hättest, und sie mit einer Userform ("Neuer Termin") "gefüttert" werden würde.
AW: Text im Textfeld mit bestimmten Datum löschen
14.02.2019 20:51:18
Peter
Den Gedanken hatte ich auch, da war nur das Problem, das ich letztlich die Übersicht im A4 ausdrucken möchte und ich den Eintrag für den neuen Termin nicht in der Größe variieren kann, wenn ich es in getrennte Zellen schreibe. Zumindest schien mir die Variante mit dem Textfeld am einfachsten.
Anzeige

Forumthreads zu verwandten Themen

Verketten von Text und Datumswerten
Text

Hallo!
Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
Etwa so: =verketten(B2;" ";jetzt())
in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
Leider wird das...
11.08.2008 12:30:00
Thread-ID: 1000804
4 Beiträge
Anzeige
Felder mit Datum und Uhrzeit vergleichen?
Lauren

Hallo zusammen,
neues Thema neues Glück :)
Nachdem mir bei meinem letzten Projekt tatkräftig geholfen wurde und ich auch das Projekt erfolgreich beenden konnte hier eine neue Problematik an der ich hängengeblieben bin.
Es sind folgende Saplten vorhanden
Spalte A = Datumanfang in...
16.09.2008 16:24:00
Thread-ID: 1010159
6 Beiträge
Anzeige
Datumsüberschreitung und Textfelder zählen
Lemmi

Hallo Beate,
Hallo zusammen,
leider hat Diene Formel noch nicht das gewünschte Ergebnis erbracht !
Es sollen Textfelder und Datums Überschreitungen gezählt werden!
Könnten jemand oder /und Beate noch einmal schauen?
Siehe Datei!
https://www.herber.de/bbs/user/55582.xls <...
22.09.2008 21:16:00
Thread-ID: 1011578
3 Beiträge
Datum in Formel automatisch
Bernd

Hallo,
könnt ihr mir bei folgender Aufgabe weiterhelfen:
In anhängender Datei ist in Zelle C1 eine Summenformel (=SUMME(B1:B31))
Ich will nun, dass anstatt der Zelle B1 diejenige Zelle in der Spalte B berücksichtigt ist, in der in Spalte A das aktuelle Datum steht.
z.B: Datum:...
04.11.2008 09:54:00
Thread-ID: 1021481
11 Beiträge
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Anzeige
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
Anzeige
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 Beiträge
Formatiert Text nicht als Datum
Günter

Hallo Zusammen,
ich habe wieder ein sicherlich einfaches Problem.
In Spalte A stehen Werte wie "18.12 15:30".
Die Spalte ist als Datum formatiert.
Um nun ein komplettes Datum mit Jahr zu bekommen habe ich folgendes Makro geschrieben:
Sub JahrErgaenzen() Dim Z As Integer F...
21.12.2008 08:20:33
Thread-ID: 1034520
11 Beiträge
DATUM UND UHRZEIT
Lutz

Hallo zusammen,
hab mich für folgende Lösung entschieden :
'********************************************************************************
'*...
27.01.2009 21:18:30
Thread-ID: 1044394
4 Beiträge
DATUM UND UHRZEIT
eric

Hallo,
man kann das auch aufwendiger in der unserform mit einer abfrage machen, die idee mit dem modul funktioniert sicher.
eric
27.01.2009 21:37:18
Thread-ID: 1044401
2 Beiträge
If Abfrage bei Textbox mit Datum
Sandra

Hi Zusammen
Sorry, daß ich die Frage nochmals stelle
Wenn ich in Textbox48 nichts eingebe komme ich leider trotzdem weiter. Das soll natürlich verhindert werden.
Kann mir jemand helfen?
Private Sub TextBox47_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Trim(TextBox47) "" Th...
12.03.2009 18:58:00
Thread-ID: 1059639
6 Beiträge
Text und Datum in einer Zelle
lou38

Hallo
In a1 steht das Datum: 12.1.09
In a2 steht das Datum: 25.2.10
Mit der Formel in a3: ="Von "&a1&" bis "&a2
ergibt sich das Resultat: Von 39826 bis 40234 (trotz Formatierung t.m.jj)
Wie muss die Formel in a3 lauten um das gewünschte Resultat/Format
Von 12...
20.03.2009 14:44:21
Thread-ID: 1062221
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige