Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1736to1740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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
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?

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige