ich habe folgendes Makro:
Sub Test_Fehlertabelle()
Dim lzA As String 'für Spalte1
Dim lzG As String 'für Spalte7
'Anfang Fehlertabelle leeren
With Worksheets("Fehlertabelle")
lzA = .Cells(Rows.Count, 1).End(xlUp).Row
If lzA = 1 Then End Sub
.Range(.Cells(2, 1), .Cells(lzA, 5)).ClearContents
lzG = .Cells(Rows.Count, 7).End(xlUp).Row
If lzG = 1 Then Exit Sub
.Range(.Cells(2, 7), .Cells(lzA, 11)).ClearContents
End With
'Ende Fehlertabelle leeren
End Sub
~f~
Leider funktioniert dies nicht.
Wenn ich dieses Makro habe:
~f~
Sub Test_Fehlertabelle()
Dim lzA As String 'für Spalte1
Dim lzG As String 'für Spalte7
'Anfang Fehlertabelle leeren
With Worksheets("Fehlertabelle")
lzA = .Cells(Rows.Count, 1).End(xlUp).Row
If lzA = 1 Then End Sub
.Range(.Cells(2, 1), .Cells(lzA, 5)).ClearContents
'Ende Fehlertabelle leeren
End Sub Dieses funktioniert.
Was muss ich im oberen Makro ändern, damit beide Bereiche bearbeitet werden.
Insgesamt habe ich 8 Bereiche manchmal leer manchmal nicht.
Besten Dank für eure Hilfe.
Gruss
Peter