Hallo VBA Cracks,
habe hier einen Code, der mir ermöglicht automatisch 4 Felder, die nebeneinander liegen zu beschreiben. Damit es eine fortlaufende Liste wird, sucht sich vba die erste freie Zeile und schreibt hinein.
' wir suchen im blatt 1 eine freie zeile
For i = 2 To 65535
If Sheets(1).Cells(i, 2).Value = "" Then
Sheets(1).Cells(i, 2).Value = TextBox1.Value
Sheets(1).Cells(i, 3).Value = TextBox2.Value
Sheets(1).Cells(i, 4).Value = TextBox3.Value
Sheets(1).Cells(i, 5).Value = TextBox4.Value
Exit For
End If
Next i
Unload Me
jetzt würde ich gerne die Auswahl erweitern, so dass ich mehrere unterschiedliche Tabellenblätter auswählen kann. Ich vermute, dass ich hierfür Variablen vergeben müsste, oder was für einen Lösungsansatz gäbe es?
Vielen Dank im Voraus für die Bemühungen,
viele Grüße,
Bulli