Ich will mit einem Makro Zeilen ausblenden wenn in der Spalte R der Wert 1 steht.
Dazu habe ich mir im Archiv folgenden Makro 'abgepinselt'
Dim iCol As Integer
Dim lRow As Long
Dim rWeg As Range
iCol = 18
'Spalte R = Spalte 18
lRow = Cells(Rows.Count, iCol).End(xlUp).Row
For Each rWeg In Range(Cells(1, iCol), Cells(lRow, iCol))
If rWeg.Value = "1" Then rWeg.EntireRow.Hidden = True
Next rWeg
End Sub
Funktioniert auch gut ,solange bis ich zusätzliche Zeilen ab zeile 8 eingefügt habe.
Dann zeigt mir Exel eine Fehlermeldung.
Ich denke die Zeilenwerte stimmen nicht mehr!
Wie kann ich das beheben,das trotz Zeilen einfügen der Makro alle Zeilen ab Zeile 8 durchprüft und alle mit einem Wert in Spalte 1 ausblendet.
Für Hilfe bin ich dankbar
Hermann