Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1744to1748
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
Inhaltsverzeichnis

VBA-Zeilen kopieren mehrere Bedingungen

VBA-Zeilen kopieren mehrere Bedingungen
15.03.2020 20:12:34
hebbe
Hallo zusammen,
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.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Beispielmappe bitte..
15.03.2020 20:34:56
Werner
Hallo,
lad doch mal eine Beispielmappe mit ein paar Beispieldaten hier hoch.
Der Aufbau sollte natürlich exakt deinem Original entsprechen.
Gruß Werner
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige