Ich hab momentan folgendes Makro:
Sub Holen()
Rolf = InputBox("Geben Sie bitte die Nummer des Standblattes ein!", "Schütze holen")
Sheets("Teilnehmerliste 300 m").Select
Range("A2:A501").Select
Selection.Find(What:=Rolf, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate......
Ich bin sicher, dass daas auch mit DIM geht!
Also etwa so:
Sub Holen()
Dim Nummer as Variant
Nummer = D1
Sheets("Teilnehmerliste 300 m").Select
Range("A2:A501").Select
Selection.Find(What:=Nummer, After:=ActiveCell,.....
D1 ist die Zelle mit dem Wert für Nummer (Zahl von 1 -999)
Aber so funktioniert der Suchbefehl nicht! Was ist falsch an der zweiten Versin mit DIM?
Rolf