Markro um Zeilen auszublenden (2 Tabellenblätter)
20.06.2014 16:24:53
Tom
Hallo zusammen
Ich habe schon oft hier im Forum Beiträge gelesen und so auch meistens eine Lösung meiner Probleme gefunden. Nun habe ich ein, so wie ich das sehe, eher kleines Problem, allerdings bräuchte ich trotzdem eure Hilfe.
Ich möchte mehrere Zeilen auf zwei unterschiedlichen Tabellenblättern ausblenden. Da die Mö _
glichkeit besteht, dass weitere Zeilen eingefügt werden, habe ich es mit einer zusätzlichen Spalte gelöst. In dieser Steht eine 1 oder nichts. Ich habe folgende beiden Makros:
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Dim i As Integer
Application.ScreenUpdating = False
With Sheets("Name1")
For i = 14 To 750
If .Cells(i, 7) = 1 Then .Rows(i).Hidden = True
Next i
End With
With Sheets("Name2")
For i = 14 To 750
If .Cells(i, 3) = 1 Then .Rows(i).Hidden = True
Next i
End With
End If
End Sub
und
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
Dim i As Integer
Application.ScreenUpdating = False
With Sheets("Name1")
For i = 14 To 750
If .Cells(i, 7) = 1 Then .Rows(i).Hidden = False
Next i
End With
With Sheets("Name2")
For i = 14 To 750
If .Cells(i, 3) = 1 Then .Rows(i).Hidden = False
Next i
End With
End If
End Sub
Das funktioniert für das Tabellenblatt Name1 auch ohne Probleme. Bei Name2 tut sich allerdings nichts. Ich denke mal es liegt an ner Kleinigkeit, selber komme ich jedoch nicht darauf.
Besten Dank und Gruss
Tom