Excel VBA Erste Freie Zeile ausfindig machen
18.04.2019 18:43:24
Patrick
Ich suche für meine Kundendatenbank ein Eingabefenster und dann für die Daten immer die erste frei Zeile
Muss dazu sagen hab erst angefangen mit VBA
Wo liegt mein Fehler
Private Sub Button_KundeAnlegen_Click()
'Erste Frei Zeile
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(x1Up).Row + 1
'Firma / Anrede
Cells(last, 2).Value = TextBox_FirmaAnrede
End Sub
Private Sub UserForm_Initialize()
'Firma / Anrede
TextBox_FirmaAnrede = "Firma oder Anrede eingeben"
End Sub