Re: Makro ausführen
16.04.2002 08:54:08
Peter H. Erdmann
Hallo,
Sub MakroStart()
Dim i as Integer
i = Range("A1")
Select Case i
Case 1
Run "Makro1"
Case 2
Run "Makro2"
Case 3
Run "Makro3"
Case Else
Msgbox "Falsche Eingabe in Zelle A1"
End Select
End Sub
Gruß aus dem Land der Bayern
Peter