Durchsuchen und in Zelle daneben ersetzen
26.02.2009 12:25:07
Holger
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansatz wäre das folgende Beispiel, nur dass mir bei den Fragezeichen einfach keine Lösung einfällt:
Sub Datum_aendern
With Worksheets("Import FiBu").Range("a1:a5000")
Set c = .Find("SV", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c. ?
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End Sub
Kann mir jemand helfen?
Gruß Holger
Anzeige