Makro wird nicht ausgeführt
27.12.2016 14:47:28
Maris
Hallo,
ich habe diesen Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSpalte As Integer
Dim lZeile As Long
' Alle Zeilen im Bereich 1 - 500 einblenden
Rows("1:500").EntireRow.Hidden = False
' Die Spalte zum Test auf 'x' festlegen
iSpalte = 11
For lZeile = 1 To Cells(Rows.Count, iSpalte).End(xlUp).Row
If Cells(lZeile, iSpalte) = "x" Then
Rows(lZeile).EntireRow.Hidden = True
End If
Next lZeile
End Sub
Der soll Zeilen ausblenden, wenn ein x daarin vorkommt. Das x für die jeweiligen Zeilen wir aber durch ein anderes Tabellenblatt gesteuert. Wechsele ich in das Tabellenblatt in dem das Makro ausgeführt wird, hat sich leider nichts getan.
Gibt es hier eine Lösung?
Gruß,
Maris