Question

Datum bestimmen und die Inhalte nur von denjenigen Datum drucken

Hallo, ich möchte per VBA meine Tabellen durchsuchen nach einen bestimmten Datum
nur die Inhalte drucken die mit diesem Datum zu tun haben ich habe schon eine
Lösung gefunden aber diese durchsucht nur die erste Spalte und das Datum in meinen
Tabellen steht aber immer in Spalte G

Answer 1

Hallo Fritz,

nutze dazu den Autofilter.
Hier mal ein Beispiel:

Sub datum_filtern()
Dim lngLZeile As Long
Dim lngLSpalte As Long
Dim strEingabe As String

'Abfrage gesuchtes Datum
strEingabe = InputBox("Bitte geben Sie das gesuchte Datum ein (Format tt.mm.jjjj)!", "Eingabe Suchdatum")

'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False

With ActiveWorkbook.ActiveSheet
'letzte Zeile in Spalte A ermitteln
lngLZeile = .Cells(Rows.Count, 1).End(xlUp).Row
'letzte Spalte in Zeile 1 ermitteln
lngLSpalte = .Cells(1, Columns.Count).End(xlToLeft).Column

'ggf. aktive Filter aufheben
If .FilterMode Then .ShowAllData
'Autofilter setzen
.Range("A1").AutoFilter
'auf gesuchtes Datum filtern
.Range(.Cells(1, 1), .Cells(lngLZeile, lngLSpalte)).AutoFilter Field:=7, Criteria1:="=" & strEingabe
'ausdrucken
.PrintOut Copies:=1
'Filter wieder aufheben
.ShowAllData
End With

'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True

End Sub

Ich gehe mal davon aus, dass in der ersten Zeile Überschriften stehen.

Gruß

M.O.