Zeilen ausblenden per VBA
12.05.2013 13:28:25
Jola
brauche dringend Hilfe!Leider kenn ich mich selbst wenig mit VBA aus und muss nun einige Aufgaben lösen bei denen man kaum um VBA herumkommt. Ich habe ein Tabellenblatt, bei dem man bestimmte Zellen mit Doppelklick ankreuzt. Das funktioniert soweit auch gut mit folgendem Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
With Target
If Intersect(Target, Range("J9:J14,K32:K33,K39:K43,V9:V14,J19:J20,V19:V20,V25:V28,N32:N33,N39: _
_
N43,Q32:Q33,Q39:Q43,T39:T43,W39:W43,K47:K48,N47:N48,Q47:Q48,W47:W48,K53:K56,N53:N56,Q53:Q56,T47: _
T48,K45,P45,U45")) Is Nothing Or _
.Count > 1 Then Exit Sub
.Value = IIf(.Value = "O", "", "O")
.Font.Name = "Wingdings 2"
Cancel = True
End With
End Sub
Nun sollen wenn eine bestimmte Zelle "angekreuzt" wurde (Hier jetzt K43), die Zeilen 44-46 ausgeblendet werden. Dafür hab ich diesen Code:
Private Sub K35EinblendenZeilen363738()
' K35EinblendenZeile Makro
Range("K43").Select
If Range("K43") = "O" Then
ActiveCell.FormulaR1C1("44:46").EntireRow.Hidden = False
Else
Rows("44:46").EntireRow.Hidden = True
End If
End Sub
Danke schonmal!