Textboxeintrag in nächste freie Zelle
30.07.2006 11:56:16
Gisela
ich versuche den Textboxeintrag in die nächste freie Zelle der Spalte I eines bestimmten Tabellenblattes zu übernehmen. Hierzu benötige ich für zwei Fragen Hilfe von Euch.
1. Mit dem Makro (ist hier aus dem Forum)klappt das irgendwie nicht. Kann mir bitte jemand helfen und sagen, was ich verändern muß, damit der Eintrag in die nächste freie Zelle ab Zeile 11 der Spalte I vorgenommen wird.
2. Möchte ich die Einträge nicht immer in "Janur" vornehmen, sondern durch Doppelklick aus einer Listbox den Tabellenblattnamen auswählen, der dann in der Textbox5 steht. Was muss ich im Makro statt "Januar" verwenden, um das Tabellenblatt in der Textbox5 anzusprechen?
Hier der Makro:
Sub ErsteFreieZelleInSpalteI()
Dim s As String
Dim i As Long
With Sheets("Januar")
i = 11
Do
i = i + 1
s = Cells(i, "I")
If Len(s) = 0 Then
Cells(i, "I").Activate
Exit Do
End If
Loop While i < 65535
End With
Sheets("Januar").[I11] = UserForm1.[TextBox1].Text
UserForm1.TextBox1.Text = ""
End Sub
Vielen Dank für jede Hilfe und einen schönen Sonntag
Liebe Grüße
Gisela