Inhalt von Textboxen in Zelle von Excel kopieren
16.05.2006 13:35:39
Textboxen
ich hab mir ein Eingabeformular erstellt, welches unter anderem zwei Textboxen enthält, in die ich etwas eingeben kann. Wenn ich auf Bestätigen klicke, sollen die Werte, die in den Textboxen stehen. Dabei sollen die Werte aber nicht an irgendeine Stelle geschrieben werden, sondern die sollen an die erste freie Zelle in der Spalte 1 geschrieben werden. Der Inhalt der Textbox2 soll neben den Inhalt von Textbox1 geschrieben werden, also in derselben Zeile nur in die zweite Spalte. Das Auswählen der ersten freien Zelle hab ich schon hinbekommen:
Sub Daten_kopieren()
Dim x As String
Lrow = ActiveWorkbook.Sheets("Einnahmen").Cells(Cells.Rows.Count, 1).End(xlUp).Row
LetzteZeile = ActiveWorkbook.Sheets("Einnahmen").Cells(Lrow + 1, 1).Select
End Sub
Nur muss ich jetzt noch den Inhalt der beiden Textboxen zum Kopieren bekommen, weiß aber nicht genau, wie ich den hier mit einbauen kann. Kann mir dabei jemand helfen?
Gruss
Andreas
Anzeige