Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Suchen nach Datum von bis

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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
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

Anzeige
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?
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige