ich möchte aus verschiedenen Arbeitsblättern NUR diejenigen Zeilen in ein Zusammenfassungs-Blatt kopieren, die in der Spalte G den Wert "doing" aufweisen.
Leider versagen meine VBA-Kenntnisse beim Einbau der Bedingung "nur Wert doing in Spalte G", und ich bitte euch um Hilfe.
Das folgende (gefundeene und abgewandelte) Makro erfüllt den Zweck des Kopierens von Zeilen.
Wie baue ich nun die obengenannte Bedingung ein, so dass aus den verschiedenen Blättern nur Zeilen einkopiert werden, die in der Spalte G den Wert "doing" enthalten?
Danke und viele Grüsse, Marius
**********************
Public Sub Übersicht()
Dim WkSh_Q As Worksheet ' die Quell-Tabellenblätter - die Herkunftblätter
Dim WkSh_Z As Worksheet ' das Ziel-Tabellenblatt - die Ausgabe
Dim lZeile_Q As Long ' der For/Next Schleifen-Index im Quell-Tabellenblatt
Dim lZeile_Z As Long ' die Ausgabezeile im Ziel-Tabellenblatt
Application.ScreenUpdating = False ' kein Bildschirm-Update - kein Flackern
Set WkSh_Z = ThisWorkbook.Worksheets("Übersicht") ' das Ausgabeblatt
For Each WkSh_Q In ThisWorkbook.Worksheets ' über alle Blätter der Mappe laufen
If WkSh_Q.Name "Übersicht" Then ' das Ziel-Tabellenblatt ausnehmen
' ab Zeile 7 bis zur letzten belegten Zelle in Spalte 1 = A
For lZeile_Q = 7 To WkSh_Q.Cells(Rows.Count, 1).End(xlUp).Row
' ist die Zeile die kopiert werden soll NICHT leer?
If WorksheetFunction.CountA(WkSh_Q.Rows(lZeile_Q)) 0 Then
' im Ziel-Tabellenblatt die nächste freie Zeile suchen
lZeile_Z = WkSh_Z.Cells(Rows.Count, 1).End(xlUp).Row + 1
' ist die erste freie Zeile im Ziel-Tabellenblatt ZielTabellenblatt kopieren
WkSh_Q.Rows(lZeile_Q).Copy Destination:=WkSh_Z.Rows(lZeile_Z)
End If
Next lZeile_Q
End If
Next WkSh_Q
Application.ScreenUpdating = True ' den Bildschirm-Update wieder zulassen
End Sub