ich habe eine wunderbare VBA Programmierung die Tabellen innerhalb einer Datei aus verschiedenen Tabellenblätter in eine extra Tabellenblatt zusammenkopiert. Sie lautet wie folgt:
Dim Letzte As Long, ws As Worksheet
Sheets("Rohdaten_gesamt").Range("2:65536").ClearContents
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Rohdaten_FF_kosten", "Rohdaten_MA_kosten", "Rohdaten_Finanz_db"
Letzte = Sheets("Rohdaten_gesamt").Range("A65536").End(xlUp).Row + 1
ws.Range("A2").CurrentRegion.Offset(1, 0).Copy Sheets("Rohdaten_gesamt").Cells(Letzte, 1)
End Select
Next ws
leider kopiert sie mir "leere" Zeilen in denen aber Funktionen (ohne Ergebnis) stehen mit in die Rohdaten_gesamt. Wie muss ich das ganze umschreiben, damit diese Zeilen nicht mit kopiert werden ?
Danke für eure Hilfe
Gruß Martin