Select und Überflüssiges
Rudolf
ich benötige mal wieder euren Rat.
Diese Aufzeichnung mit dem Recorder lässt sich doch bestimmt eleganter darstellen.
Gesucht werden soll der erste Buchstabe eines Namens in Spalte B5:B400, A*,B*,C*.......Y*,
jederm Buchstaben habe ich eine Autoform zugeordnet.
Wenn ich also z.B auf die Autof. mit (H) klicke, soll der ersten Namen mit (H******) Selectiert werden.
Das klappt auch alles. Elegant ist das aber sicher nicht.
Kann/möchte mir jemand Helfen?
Viel Dank
Sub HHH()
On Error GoTo Meldung
Range("B5:B400").Select
Selection.Find(What:="H*", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Select
GoTo Ende
Meldung:
Range("A4").Select
MsgBox "Wert wurde nicht gefunden!"
Ende:
End Sub