find mit leerzeilen auslassen ca:suche
12.08.2003 10:17:15
chris b
habe ein Problem mit find und zwar habe ich in einer spalte untereinander werte stehen z.B
1 DLLA 155P 70
2 DLLA 150P 481+
3 DLLA 152P 1075+/
usw...
habe folgenes Makro erstellt,wenn ich in die inputbox einen Wert eingebe es mir den Wert in die Variable cb schreibt.
Dann habe ich noch eines und zwar wenn ich in der inputbox einen Wert eingebe z.B
"P481" sollte es mir den Wert in Zeile 2 finden, das Problem ist ich wenn ich in die inputbox einen Wert eingebe weiß ich nicht wie viele leerzeichen zwischen dem "P" und der "Zahl" stehen. ich hoffe ihr könnt mir bei diesem MAkro helfen wäre super, vielen Dank Christian
Hier ist mein beginn Makro das leider nicht funktioniert.
Sub testCopy()
Dim i As Long
cb = InputBox("ok")
For i = 1 To Range("A65536").End(xlUp).Row
MsgBox Cells(i, 3)
If Worksheets("Daten").Cells(i, 3) Like "* cb *" Then msgbox("gefunden")
Next i
End Sub