Wert suchen und in nächste freie Zelle schreiben
Dennis
Habe mal eine Frage bzgl Suchen und Schreiben von Werten aus / in einer UF.
Problem:
Im Tabellenblatt stehen in der 1. Zeile Kalenderwochen. Diese sollen durch eine Textbox (input1) in der UF gesucht und ausgewählt werden. Das bekomme ich noch hin.
Jetzt soll aber ein Wert aus Textbox2 in die erste freie Zelle und dem gefunden Wert geschrieben werden.
Bsp: KW 16 wird in Zelle D1 gefunden, Wert aus Textbox1 soll dann in D2 geschrieben werden. Ist D2 schon belegt, dann in D3 und so weiter.
Über Hilfe oder Ansatz bin ich dankbar
Gruss
Hier der Suchcode:
Private Sub CommandButton1_Click()
Set frm = UserForm1
With frm
Range("1:1").Select
Selection.Find(what:=.input1.Value, _
After:=ActiveCell, _
LookIn:=xlFormulas, Lookat:=xlPart, _
Searchorder:=xlByColumns, Searchdirection:=xlNext, _
MatchCase:=False).Activate
End With
End Sub
Anzeige