ich habe ein Makro das Zeilen ausblendet, wenn in einer bestimmten Zeile etwas steht:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If Cells(Target.Row, 3) > 1 Then
Rows(Target.Row).EntireRow.Hidden = True
End If
End If
End Sub
Dies steht auf dem Datenblatt Verwaltung. Allerdings sollen nicht hier die Zellen ausgeblendet werden, sondern in den Monatsdatenblättern wie z.b. Jan..
Versuche wie:
With Sheets("Jan.")
If Target.Column = 3 Then
If Cells(Target.Row, 3) > 1 Then
Rows(Target.Row).EntireRow.Hidden = True
End If
End If
End With
oder
If Sheets("Jan.").Target.Column = 3 Then
If Sheets("Jan.").Cells(Target.Row, 3) > 1 Then
Sheets("Jan.").Rows(Target.Row).EntireRow.Hidden = True
End If
End If
sind gescheitert.Wer kann mir sagen, was ich im Bezug auf Target.Column falsch mache.
Kann mir evtl. jemand helfen das in eine Schleife einzubauen?
Dim intSheetIndex As Integer
Dim i As Integer
For intSheetIndex = 2 To 12
For i = 1 To 11
Mit Datenblatt(intSheetIndex)
If Target.Column = 3 Then
If Cells(Target.Row, 3) > i Then
Rows(Target.Row).EntireRow.Hidden = True
End If
End If
Next
Ich hoffe man kann mit dem letzten Zitat verstehen was ich meine :-SGruß
Kai