Bei Doubleclick Zeilen Aus-/Einblenden
21.07.2004 12:29:19
Stephi
ich habe gerade ein Problemchen. Und zwar möchte ich per Doppelklick auf ein Feld (Bsp. A10) die zwei darunterliegenden Zeilen (Bsp. Zeile 11 und 12) ausblenden. Bei erneutem Doppelklick auf das Feld (Bsp. A10) sollen diese Zeilen (Bsp. Zeile 11 und 12) wieder eingeblendet werden... Somit möchte ich ein kleines Tool mit Dropdown-Funktion erstellen. Ich bekomme das leider so nicht hin und habe das nun behilfweise mit Makros so gemacht, dass ich per Doppelklick die Zeilen einblende und per rechtem Mausklick diese beiden Zeile wieder ausblende :-( Das ist aber nicht so schön. Und sicherlich auch viel zu umständlich...
Kann mir jemand helfen?
Gruss Stephi
anbei der Code:
Private Sub Worksheet_Beforedoubleclick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$10" Then
Select Case Target.Column
Case 1: Call MakroAUF
End Select
End If
End Sub
-------------------------------------------
Private Sub Worksheet_Beforerightclick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$10" Then
Select Case Target.Column
Case 1: Call MakroZU
End Select
End If
End Sub
-------------------------------------------
Sub MakroZU()
Rows("11:12").Select
Selection.EntireRow.Hidden = True
Range("B10").Select
End Sub
--------------------------------------------
Sub MakroAUF()
Rows("10:13").Select
Selection.EntireRow.Hidden = False
Range("B10").Select
End Sub
Anzeige