Hallo.
Ich habe in Tabelle1 jede Zeile mit einem Datum versehen.
Jetzt möchte ich mit einem makro, das er mich nach einem Datum fragt (Geht das, das er mir immer das Datum vom Vortag vorgibt?, so das wenn ich kein anderes benötige einfach ok drucken kann)
jetzt soll das Makro aus Tabelle1 alle Zeilen kopieren, welche in Spalte A das gewünschte Datum enthällt, und dann diese drucken.
Ich hoffe, das ich es verständlich erklärt habe.
Danke schon mal an allen.
Hallo Krisam,
warum verwendest Du kein Autofilter (Menü Daten, Filter, Autofilter) und dann die normale Druckfunktion?
MfG Georg V.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Ich habe in Tabelle1 jede Zeile mit einem Datum versehen.
Jetzt möchte ich mit einem makro, das er mich nach einem Datum
fragt (Geht das, das er mir immer das Datum vom Vortag
vorgibt?, so das wenn ich kein anderes benötige einfach ok
drucken kann)
jetzt soll das Makro aus Tabelle1 alle Zeilen kopieren, welche
in Spalte A das gewünschte Datum enthällt, und dann diese
drucken.
Hi Krisam,
nicht groß getestet, kann sein daß da paar CDates zuviel drin sind u.ä., probiers halt mal.
Code erwartet Daten in Tabelle1 und kopiert dann gefilert nach Tabelle2, bei anderen Namen, die Set und die With Zeile anpassen.
Sub tt()
Dim Eingabe, ZeiA, ZeiB, Z, wsB
Eingabe = InputBox("Bitte geben Sie ein Datum ein:", "Datumsauswahl", Date - 1)
If Eingabe = "" Then Exit Sub
Set wsB = Worksheets("Tabelle2")
With Worksheets("Tabelle1")
If Application.WorksheetFunction.CountIf(.Columns(1), CDate(Eingabe)) \> 0 Then
wsB.Cells.ClearContents
For ZeiA = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If CDate(.Cells(ZeiA, 1)) = CDate(Eingabe) Then
ZeiB = ZeiB + 1
.Rows(ZeiA).Copy Destination:=wsB.Cells(ZeiB, 1)
End If
Next ZeiA
End With
Else
MsgBox "Gibt nix mit Eingabe."
Exit Sub
End If
wsB.PrintOut
End Sub
Gruß
Reinhard
Hallo.
Super, das ist geau das, was ich brauche.
Danke für deine Mühe.
Nur noch eine Frage dazu:
Ich möchte, das die Dateien in Tabelle2 erst ab der dritten Zeile geschrieben werden, da in den ersten beiden ein Text steht, den ich benötige. Was muß ich hier ändern?
Natürlich hast du für deine Mühe ein Sternchen von mir bekommen:
Würde mich freuen, wenn du mir mit der Zeile noch weiterhelfen könntest.
BYE
Ich möchte, das die Dateien in Tabelle2 erst ab der dritten
Zeile geschrieben werden, da in den ersten beiden ein Text
steht, den ich benötige. Was muß ich hier ändern?
Hi Krisam,
füge unterhalb von
If Eingabe = „“ Then Exit Sub
die Zeile:
ZeiB=2
ein.
Gruß
Reinhard