Von-Datum innerhalb von Zellen suchen

Hallo!
Für mein Problem finde ich trotz Suche keine Lösung...
Ich habe in einer Spalte viele Zellen, in denen Werte nach folgendem Muster stehen:
1x03003 (30.10.2013),
1x03040 (30.10.2013),
1x32006 (13.11.2013),
1x32042 (14.11.2013)
Das steht alles in der gleichen Zelle. Also nicht in 4 Zellen untereinander.
Ich benötige eine Möglichkeit, dass ich einer Userform ein Datum eintrage (z. B. 01.11.13) und das mir dann in den jeweiligen Zellen alle Werte die nach diesem Datum liegen fett markiert oder/und in die Nachbarzelle kopiert werden.
Also z. B.
1x03003 (30.10.2013),
1x03040 (30.10.2013),
1x32006 (13.11.2013),
1x32042 (14.11.2013)
oder
1x03003 (30.10.2013),
1x03040 (30.10.2013),
1x32006 (13.11.2013),
1x32042 (14.11.2013)
und in der Nachbarzelle steht dann auch noch
1x32006 (13.11.2013),
1x32042 (14.11.2013)
Das Ganze soll dann durch die ganze Spalte bis zur letzten beschriebenen Zelle geschehen.
Ist so was irgendwie machbar?
Danke für eure Hilfe!
Werner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Färben() Dim DatumAb As Date Dim Pos As Long Dim Zelle As Range Dim txt As String DatumAb = DateValue("01.11.2013") For Each Zelle In Columns(1).SpecialCells(xlCellTypeConstants, 2) txt = Zelle.Value Pos = 0 Do Pos = InStr(Pos + 1, txt, "(") If Pos = 0 Then Exit Do If IsDate(Mid(txt, Pos + 1, 10)) Then If CDate(Mid(txt, Pos + 1, 10)) >= DatumAb Then Pos = InStrRev(txt, vbLf, Pos) + 1 Exit Do End If End If Loop If Pos > 0 Then Zelle.Characters(Start:=Pos, Length:=Len(txt) - Pos).Font.FontStyle = "Fett" End If Next End Sub

Hi Peter
mein Makro funktoniert schon.
du musst aber auch für den linken Begrenzer das richtige Zeichen bereitstellen, bzw verwenden.
in Werners Eingangsbeispiel waren die Daten so angeordnet:

1x03003 (30.10.2013),
1x03040 (30.10.2013),
1x32006 (13.11.2013),
1x32042 (14.11.2013),

dh mit einem Zeilenumbruch zwischen den einzehlen Datensätzen, daher habe ich diesen verwendet um die linke Begrenzung für den fetten bereich zu finden.
in deiner Beispieldatei hingegen sind die Daten so angeordnet (wenn man die Spaltenbreite etwas vergrössert):

1x03003 (30.10.2013),   1x03040 (30.10.2013),  1x32006 (13.11.2013),  1x32042 (14.11.2013)

dh ohne Zeilenumbruch. In deinem Fall musst du daher ein anderes Begrenzungszeichen finden, hier würde sich das Komma anbiegen.
Wenn deine Daten anders aufgebaut sind als in der Eingangsfrage, dann kann es schon vorkommen, dass du Anpassungen im Code vornehemen musst, damit der Code auch in deiner Datei läuft.
Erstze einfach in dieser Zeile:

Pos = InStrRev(txt, vbLf, Pos) + 1

den Zeilenumbruch vbLf durch das Komma:

Pos = InStrRev(txt, ",", Pos) + 1

dann funktioniert der Code mit deiner Datei.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Von-Datum innerhalb von Zellen suchen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Von-Datum innerhalb von Zellen suchen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread