Suchen nach Datum von bis

Forumthread: Suchen nach Datum von bis

23.01.2020 19:03:34

bis

Hallo zusammen, ich (fast keine Ahnung von VBA) hab da ein Problem.
Ich hab mir eine Userform erstellt in der ich Daten in nachfolgender Tabelle eintragen kann (funtioniert sogar),
A= Kundenname, B=Auftrag Nr., C=Datum, D=Name Monteur, E=Stunden Monteur.
Nun möchte ich über ein Eingabefeld die Liste nach: Kunden oder Monteur von Datum bis Datum durchsuchen.
Es sollte in einem Anzeigefeld alle gefundenen Datenzeilen angezeigt werden und nach Bedarf (Button übernehmen Ja-Nein) in extra Tabelle übernommen werden.
Vieleicht kann mir jemand helfen.
Viele Grüße Sigi

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suchen nach Datum von bis

23.01.2020 22:10:13

bis
AW: Suchen nach Datum von bis

24.01.2020 08:45:24

bis
AW: Suchen nach Datum von bis

24.01.2020 11:12:46

bis

AW: Suchen nach Datum von bis

23.01.2020 22:10:13

bis

Würde es denn nicht die Arbeit von potentiellen Helfern enorm erleichtern, wenn du die (Beispiels-) Datei posten würdest? Dann bräuchte man auch nicht dauernd hin und her zu fragen.

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

AW: Suchen nach Datum von bis

24.01.2020 11:12:46

bis

Wenn ich "die Datei posten" schreibe, meine ich auch die DATEI und nicht irgendwelche Codeschnipsel.
Ist DAS deine Datei?

Beliebteste Forumthreads (12 Monate)

Forumthread: Suchen nach Datum von bis

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread