Suchbefehl
21.03.2009 19:38:08
Karsten
Läßt sich folgender Makrobefehl so umschreiben, dass, wenn in B1 nur ein Teil des Textes steht, die richtige Zelle gefunden wird?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("b1") Then
Dim zellen As Range
For Each zellen In Range("b2:b1000")
If zellen.Value = Range("b1").Value Then
zellen.Select
Exit Sub
End If
Next zellen
End If
End Sub
Danke für eure Hilfe.
Gruß
Karsten