Moin zusammen,
ich habe eine EingabeMaske über eine UserForm realisiert. Nur leider fängt das Programm immer bei 3 anzuzählen. Außerdem Zeigt mir die Benutzernummer nicht in der Textbox an.
Private Sub CmdB_MitgliedAnlegen_Click()
Worksheets("Vereinsmitglieder").Activate
Dim lastrow, i As Integer
' Letzte Zeile suchen
lastrow = [a65536].End(xlUp).Row + 1
' Daten aus der Mitglied_Anlegen übertragen
Cells(lastrow, 1) = Cells(lastrow, 1).Row + 1 = ME.TB_Mitgliedsnummer
Cells(lastrow, 2) = Me.TB_Name.Value
Cells(lastrow, 3) = Me.TB_Straße.Value
Cells(lastrow, 4) = Me.TB_PLZ.Value
Cells(lastrow, 5) = Me.TB_Ort.Value
Cells(lastrow, 6) = Me.TB_DatumAnmeldung.Value
Cells(lastrow, 7) = Me.TB_Kaution.Value
Cells(lastrow, 8) = Me.TB_DatumBeitrag.Value
' Datenfelder löschen
With Me
.TB_Mitgliedsnummer.Value = Cells(lastrow, 1).Row + 1
.TB_Name.Value = ""
.TB_Straße.Value = ""
.TB_PLZ.Value = ""
.TB_Ort.Value = ""
.TB_DatumAnmeldung.Value = ""
.TB_Kaution.Value = ""
.TB_DatumBeitrag.Value = ""
End With
End Sub
ich habe eine EingabeMaske über eine UserForm realisiert. Nur leider fängt das Programm immer bei 3 anzuzählen. Außerdem Zeigt mir die Benutzernummer nicht in der Textbox an.
Private Sub CmdB_MitgliedAnlegen_Click()
Worksheets("Vereinsmitglieder").Activate
Dim lastrow, i As Integer
' Letzte Zeile suchen
lastrow = [a65536].End(xlUp).Row + 1
' Daten aus der Mitglied_Anlegen übertragen
Cells(lastrow, 1) = Cells(lastrow, 1).Row + 1 = ME.TB_Mitgliedsnummer
Cells(lastrow, 2) = Me.TB_Name.Value
Cells(lastrow, 3) = Me.TB_Straße.Value
Cells(lastrow, 4) = Me.TB_PLZ.Value
Cells(lastrow, 5) = Me.TB_Ort.Value
Cells(lastrow, 6) = Me.TB_DatumAnmeldung.Value
Cells(lastrow, 7) = Me.TB_Kaution.Value
Cells(lastrow, 8) = Me.TB_DatumBeitrag.Value
' Datenfelder löschen
With Me
.TB_Mitgliedsnummer.Value = Cells(lastrow, 1).Row + 1
.TB_Name.Value = ""
.TB_Straße.Value = ""
.TB_PLZ.Value = ""
.TB_Ort.Value = ""
.TB_DatumAnmeldung.Value = ""
.TB_Kaution.Value = ""
.TB_DatumBeitrag.Value = ""
End With
End Sub