Guten Morgen,

das ist der komplette Code für ein Tabellenblatt.

Private Sub CommandButton1_Click()
Dim lastRow As Long
Application.ScreenUpdating = False
Tabelle2.Unprotect Paßwort
Tabelle2.Activate
'###################################################
FormLager.Label36.Caption = ActiveSheet.Name
'###################################################
With FormLager
If FormLager.TextBox1 = "" Then
MsgBox " Bitte eine Stückzahl eintragen!", 48
FormLager.TextBox1.SetFocus
GoTo ende
End If
lastRow = Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row + 1
'A=Datum, B=Eingang, C=Ausgang, C4=Summe(Bestand)
'#############################################################################
'Prüfen
If FormLager.optAusgang.Value = True Then
If Tabelle2.Cells(4, 3).Value < (TextBox1.Value * 1) Then
'Angeforderter Wert
MsgBox "Lagermenge zu klein!", 48
GoTo ende
End If
End If
If .optEingang.Value = True Then
Tabelle2.Cells(lastRow, 1).Value = Format(Now, "dd.mm.yyyy  hh:mm:ss")
Tabelle2.Cells(lastRow, 2).Value = TextBox1.Value
Else
Tabelle2.Cells(lastRow, 1).Value = Format(Now, "dd.mm.yyyy  hh:mm:ss")
Tabelle2.Cells(lastRow, 3).Value = CDbl(.TextBox1.Text)
End If
'Sortieren
Tabelle2.Range("A6:C" & last Row).Sort _
    Key1:=Tabelle2.Cells(, 1), Header:=xlYes, Order1:=xlDescending,       'xlAscending   'xlDescending

.optAusgang.Value = True
.TextBox1 = ""
.TextBox1.SetFocus
End With
Call Summ
If FormLager.optAusgang.Value = True Then
Call Überpf
End If

ende:
'############################################################################
'Lagerbestand anzeigen
FormLager.Label35.Caption = ActiveSheet.Range("C4")
'Listbox füllen ### bis zum Tabellen Ende (noch programieren)################

'ListBox1.RowSource = ActiveSheet.Range("A6:C15").Address(external:=True)
'Tabelle2.Range ("A6:C" & lastRow)
'ListBox1.RowSource = Tabelle2.Range("A6:C" & lastRow) '.Address(external:=True)

With Tabelle2 'Sheets("kundendaten")
FormLager.ListBox1.List = .Range(.Cells(6, 1), .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 3).Value
End With
'############################################################################

Tabelle2.Protect Paßwort
ThisWorkbook.Save
Application.ScreenUpdating = True
End Sub

Private Sub Frame1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Call CommandButton1_Click
End If
End Sub