makro frage
20.07.2006 09:46:08
ClausF
Sub Angebotsbutton()
Dim rng As Range
Set rng = Range("B109")
Select Case rng.Value
Case Is = "1_12"
MsgBox "Makro 1_12 wird gestartet"
Call Makro1_12
Case Is = "2_12"
MsgBox "Makro 2_12 wird gestartet"
Call Makro2_12
End Select
End Sub