Ziffernfolge finden
30.08.2005 11:00:33
MHoeppner
ich habe eine Tabelle und in Spalte K verschiedene Texteinträge in jeder Zeile.
Da die Tabelle sehr umfangreich ist, möchte ich per Makro nach einer beliebigen 10-stelligen Zifferfolge in jeder Zeile suchen.
Das abgeänderte Bsp. aus der Hilfe funktioniert so nicht - ist der Platzhalter # für Ziffern nicht i.O. oder wie kann man das lösen?
With Worksheets("Packing List").Range("K:K")
Set c = .Find("##########", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
'c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
Danke
Matthias