AW: Suchen nach Datum von bis
24.01.2020 08:45:24
bis
Sorry onur, wusste nicht das es Wichtig ist,
Datei hab ich aus dem Netz.
Private Sub CommandButton1_Click()
'Variable deklarieren
Dim erste_freie_Zeile As Integer
'erste freie Zeile in Blatt "Kostenauflistung" ermitteln
'und in Variable "erste_freie_Zeile" schreiben
erste_freie_Zeile = Sheets("Kostenauflistung").Range("A65536").End(xlUp).Offset(1, 0).Row
'In Blatt "Kostenauflistung"
'With Sheets("Kostenauflistung")
'Spalte A, erste freie Zeile den Wert Übertragen
Sheets("Kostenauflistung").Cells(erste_freie_Zeile, 3) = CDate(TextBox1.Text)
'Spalte B, erste freie Zeile den Wert Übertragen
Sheets("Kostenauflistung").Cells(erste_freie_Zeile, 1) = Format(TextBox2.Text, "#,##000 ")
'Spalte D, erste freie Zeile den Wert Übertragen
Sheets("Kostenauflistung").Cells(erste_freie_Zeile, 4) = ComboBox1.Text
'Spalte B, erste freie Zeile den Wert Übertragen
Sheets("Kostenauflistung").Cells(erste_freie_Zeile, 2) = Format(TextBox3.Text, "#,##000 ")
'Spalte B, erste freie Zeile den Betrag den Wert Übertragen
Sheets("Kostenauflistung").Cells(erste_freie_Zeile, 5) = Format(TextBox4.Text, "#,##000 ")
'End With
Unload Me
End Sub
Private Sub CommandButton2_Click()
'UserForm schließen
Unload Me
End Sub