Rätsel mit Makro
05.12.2014 22:02:46
Frank H.
Hallo Zusammen!
Ich habe gestern in meine Arbeitsmappe folgendes Makro eingebettet:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
frmanzeigen.Hide
Dim Zelle As Range
Dim RaBereich As Range
If ActiveCell = "" Then
Exit Sub
Else
Set RaBereich = Range("E4:E34, J4:J34, O4:O34, T4:T34, Y4:Y34, AD4:AD34, AI4:AI34, AN4:AN34, _
AS4:AS34, AX4:AX34, BC4:BC34")
If Not Intersect(Range(Target.Address), RaBereich) Is Nothing Then frmanzeigen.Show _
vbModeless
Set RaBereich = Nothing
End If
End Sub
Da funzte es bestens! Heute öffnete ich die Mappe und beim Klick in eine gefüllte Zelle passierte nichts. Kann mir jemand hefen und verraten woran das liegen könnte? Damke!Gruß Frank H.