Hallo,
ich stehe vor folgendem Problem. Ich habe in einer Arbeitsmappe mehrere Arbeitsblätter mit jeweils ca 100 Zeilen Eintragungen. In den Spalten 9 sind einx und /oderin 10 ein R oder auch keins von beidem eingetragen. Ich möchte nun gerne alle Arbeitsblätter durchlaufen, nachsehen, in welcher Zeile kein x und/oder R steht. Wenn kein Bezeichner da steht, soll die Zeile kopiert und in ein Ergebnis Arbeitsblatt eingetragen werden. Dabei soll auch nicht in allen Arbeitsblättern gesucht werden. Ich habe schon einmal begonnen, aber ich komme irgendwie nicht weiter. Ich weiß z.B nicht, wie ich die kopierte Zeile in das Ergebnisblatt eintragen soll, da ich ja immer die nächst freie Zeile nehmen muss.
Würd mich freuen, wenn sich das mal jemand ansehen könnte.
Vielen Dank.
Grüße
Roland
Dim aRow As Integer
Dim objZeile As Range
'Alle Monatsblätter durchlaufen.
'Wenn die Spalte A nicht leer ist, aber die Spalten 9 und 10, dann die Zeile kopieren und
'in das Tabellenblatt "Nicht in Rest oder Abrechnung" eintragen
Application.ScreenUpdating = False
'Für jedes Tabellenblatt in der geöffneten Mappe
For Each objBlatt In ActiveWorkbook.Worksheets
'Wenn der Tabellenblattname nicht "Nicht in Rest oder Abrechnung" ist...
If objBlatt.Name "Nicht in Rest oder Abrechnung" Then
'Wenn der Tabellenblattname nicht "Rest" ist......
If objBlatt.Name "Rest" Then
'Wenn der Tabellenblattname nicht "Abrechnung" ist...
If objBlatt.Name "Abrechnung" Then
'Für jede Zeile von 7 bis 65536 oder bis zur letzten Zeile
For aRow = 7 To Range("A65536").End(xlUp).Row
'Wenn in der Zeile "aRow" Spalte 9 kein "X" steht, dann...
If Cells(aRow, 9).Value "x" Then
'Wenn in der Zeile "aRow" Spalte 10 kein "R" steht, dann...
If Cells(aRow, 10).Value = "R" Then
'...die Zeile von Spalte 1 bis 8 kopieren...
Range(Cells(aRow, 1), Cells(aRow, 8)).Copy
Sheets("Nicht in Rest oder Abrechnung").Select
For Each objZeile In ActiveWorksheet
'Wenn leere Zeile gefunden, dann...
If IsEmpty(objZeile.Cells(1)) = True Then