VBA-Zeilen kopieren mehrere Bedingungen
15.03.2020 20:12:34
hebbe
ich hoffe jemand kann mir bei meinem Problem helfen.
In einer geöffneten Datei sind in der Tabelle "Buchungsjournal" zeilenweise ab der Zeile 10 Buchungen eingetragen. In der stehen in der Spalte B stehen Datumsangaben.
Wenn nun in der Spalte F eine Zuordnung beginnend mit "Hausgeld " eingetragen und in der Spalte _ G die Zuordnung zur Wohnung 1 erfolgt ist, dann wird die komplette Zeile in die Tabelle Nachweis W1 kopiert.
Sub W1kopieren()
Dim variable As String
Dim MeinDatum As Date
variable = "Buchungsjournal"
Range(Rows(4), Rows(33)).ClearContents
With Sheets(variable).UsedRange
.AutoFilter Field:=7, Criteria1:="Wohnung 1"
.AutoFilter Field:=6, Criteria1:="Hausgeld *"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("Nachweis W1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(variable).UsedRange.AutoFilter
End Sub
Die Zeilen sollen aber nur noch kopiert werden, wenn das in Spalte B Datum eingetragene Datum nicht später ist als das Datum im Feld E1 (in der Tabelle "Buchungsjournal").
Leider bekomme ich das aber nicht hin. Vlt. kann mir da jemand helfen.
Danke schonmal.
Anzeige