ich hab ein kleines Problem.
Ich möchte 8 Tabellenblätter zu einem zusammenfügen, soweit so gut.
Mein Problem ist, das er immer die erste Zeile (also die Überschrift) kopiert, wenn ansonsten nichts auf dem Tabellenblatt eingetragen ist.
Ich bräuchte jetzt also eine Abfrage, die überprüft ob die zweite Zeile leer ist, wen dem so ist soll er nichts machen. Leider weiß ich gerade nicht wirklich wie ich das am besten einbauen kann.
So sieht es bis jetzt aus:
Sub Übertrag()
' Übertrag Makro
Sheets("Michi").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 11)).Copy
Sheets("Cockpit").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Michi").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 4)).ClearContents
Sheets("Taschi").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 11)).Copy
Sheets("Cockpit").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Taschi").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 4)).ClearContents
Sheets("Vjollca").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 11)).Copy
Sheets("Cockpit").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Vjollca").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 4)).ClearContents
Sheets("Peter").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 11)).Copy
Sheets("Cockpit").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Peter").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 4)).ClearContents
Sheets("Vanny").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 11)).Copy
Sheets("Cockpit").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Vanny").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 4)).ClearContents
Sheets("Herzi").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 11)).Copy
Sheets("Cockpit").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Herzi").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 4)).ClearContents
Sheets("Ivonne").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 11)).Copy
Sheets("Cockpit").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Ivonne").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 4)).ClearContents
Sheets("Steffi").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 11)).Copy
Sheets("Cockpit").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Steffi").Select
Range(Cells(2, 1), Cells(Range("A65536").End(xlUp).Row, 4)).ClearContents
End Sub
Ich hoffe ihr könnt mir Helfen. :)
Viele Grüße
Natascha