VBA Excel Userform
01.12.2021 00:45:58
Moritz
ich bin gerade dabei eine VBA Userform zu erstellen und komme bei der folgenden Aufgabe nicht weiter.
Ich möchte, dass meine Daten aus der Userform in meine Exceltabelle übertragen werden. Und benutze dafür folgenden Code:
Private Sub CommandButton_Speichern_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Worksheet")
Dim le As Long
lr = Sheets("Worksheet").Range("A" & Rows.Count).End(x1up).Row
''''''''''Add data in Excel''''''''''''''''
With sh
.Cells(lr + 1, "L").Value = Me.TextBox_Titel.Value
.Cells(lr + 1, "M").Value = Me.TextBox_Vorname.Value
.Cells(lr + 1, "N").Value = Me.TextBox_Nachname.Value
.Cells(lr + 1, "O").Value = Me.TextBox_Firma.Value
.Cells(lr + 1, "P").Value = Me.TextBox_Email.Value
.Cells(lr + 1, "Q").Value = Me.TextBox_Tippgeber.Value
.Cells(lr + 1, "R").Value = Me.TextBox_EmailTippgeber.Value
.Cells(lr + 1, "T").Value = Me.TextBox_BetragD.Value
.Cells(lr + 1, "S").Value = Me.TextBox_Betrag.Value
.Cells(lr + 1, "U").Value = Me.TextBox_ZinsenProzent.Value
.Cells(lr + 1, "X").Value = Me.TextBox_Einzahlung.Value
.Cells(lr + 1, "Y").Value = Me.TextBox_Fälligkeit.Value
.Cells(lr + 1, "Z").Value = Me.TextBox_Verlängerungsmöglichkeit.Value
.Cells(lr + 1, "K").Value = Me.ComboBox_PrivatFirma.Value
.Cells(lr + 1, "G").Value = Me.TextBox_mw.Value
.Cells(lr + 1, "I").Value = Me.ComboBox_Anrede123.Value
.Cells(lr + 1, "H").Value = Me.ComboBox_DeutschEnglisch.Value
.Cells(lr + 1, "AD").Value = Me.ComboBox_MezzaninEquity.Value
.Cells(lr + 1, "AB").Value = Me.ComboBox_Vertrag.Value
End With
End Sub
>Mir wird immer wieder ein Laufzeitfehler angezeigt. Die folgende Zeile wird gelb markiert:
Bitte um Hilfe.
Vielen Dank und liebe Grüße,
Moritz