Leere Spalte finden und ausfüllen
06.05.2019 13:59:21
KJ
ich erstelle gerade ein Makro, in dem ein Userform aufgerufen wird, in dem der Benutzer Daten eingeben kann. Diese Eingabe soll eigentlich in eine freie Spalte eingefügt werden. Ich benutze momentan diesen code:
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Jedoch wird damit nicht die nächste freie Spalte gesucht, sondern die Spalte nach dem letzten Eintrag. Ich möchte aber, dass die nächste freie Spalte gefunden wird und dort der Eintrag stattfindet.
Hier mein kompletter Code:
Private Sub CommandButton_speichern_Click()
'Erste freie Zeile ausfindig machen
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
'Vorname
Cells(last, 1).Value = TextBox_name
'Handynummer
Cells(last, 2).Value = TextBox_handy
'eMail-Adresse
Cells(last, 3).Value = TextBox_email
End Sub
'Abbrechen
Private Sub CommandButton_abbrechen_Click()
Unload Me
End Sub
'Initialwerte
Private Sub UserForm_Initialize()
'Vorname
TextBox_name = "Nachname, Vorname"
'Nachname
TextBox_handy = ""
'Strasse
TextBox_email = ""
End Sub