Hilfe bei einem Code
22.08.2014 15:31:44
Peter
Hallo,
ich habe folgenden Code.
Dabei soll, wenn in der Zelle A5 eine 1 steht, das Makro "Dax" und wenn nichts drin steht das Makro "Daxlöschen" ausgeführt werden.
Wenn jedoch in Zelle B5 eine 1 steht, soll eben das Makro "Mdax" und bei "" das Makro "Mdaxlöschen" ausgeführt werden.
Jetzt werden jedoch beide Makros ausgeführt. Also Dax + Mdax oder Daxlöschen und Mdaxlöschen, wenn in einer der Zellen A5 oder B5 oder C5 eine 1 oder "" steht.
Nun die Frage, wie kann ich das in dem Code eindeutig zuweisen?
Bin Anfänger in VBA und suche mir das alles irgedwie zusammen und versuche daraus zu lernen.
Jedoch bin ich gerade unter Zeitnot und wende mich deshalb an Euch.
Evtl. hat Ihr eine Idee.:-)
Grüße
Peter
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("A5:c5"))
If Target Is Nothing Then Exit Sub
If Target = 1 Then
Application.EnableEvents = False
Call Dax
Application.EnableEvents = True
Else
If Target = "" Then
Application.EnableEvents = False
Call Daxlöschen
Application.EnableEvents = True
End If
End If
If Target = 1 Then
Application.EnableEvents = False
Call MDAX
Application.EnableEvents = True
Else
If Target = "" Then
Application.EnableEvents = False
Call MDAXlöschen
Application.EnableEvents = True
End If
End If
End Sub