Folgender Hintergrund
Tabelle 1 eine Grunddatentabelle mit gesperrten Zellen, Daten sind ab Zeile 6 vorhanden.
Wenn in der Spalte B ein Kommentar eingetragen ist (=nicht leer") dann soll es diese Zeile in ein anderes Tabellenblatt kopieren und dieses unter neuem Namen abspeichern.
Hier mein Versuch:
[Vielen Dank für die Hilfe]
Sub Revisionsblätter()
' Revisionsblätter Makro
Sheets("Tabelle1").Select
K = WorksheetFunction.CountA(Range("BB:BB"))
H = WorksheetFunction.Count(Range("BB:BB"))
Dim j As Long
Sheets("Tabelle1").Select
Range("BB6").Select
For j = 1 To H
If ActiveCell.Value = "" Then ActiveCell.Offset(1, 0).Select Else EntireColumn.Copy
Sheets("Bericht für Revision").Select
Range("1:1").Select
Active.Range.Paste
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = ActiveSheet.Range("A1")
Sheets("Tabelle1").Select
Range("BB6").Select
ActiveCell.Offset(j, 0).Select
Next j
End Sub