Inputbox zum starten von Makros
Betrifft: Inputbox zum starten von Makros
von: Andreas
Geschrieben am: 07.11.2014 16:15:38
Hallo,
kann mir jemand helfen bei meinem Projekt. Was mache ich verkehrt? Es wird immer nur das letzte Makro ausgeführt.
Hier mein Versuch:
Sub Test2()
InputBox ("Welche Zahl kopieren?")
If 1 Then Zahl1_20_kopieren
If 2 Then Zahl2_20_kopieren
'ElseIf "3" Then Call Zahl3_20_kopieren
'ElseIf "4" Then Call Zahl4_20_kopieren
'ElseIf "5" Then Call Zahl5_20_kopieren
'ElseIf "6" Then Call Zahl6_20_kopieren
End Sub
Danke
Betrifft: AW: Inputbox zum starten von Makros
von: {Boris}
Geschrieben am: 07.11.2014 16:18:06
Hi Andreas,
Sub Test2()
Dim x
x = InputBox ("Welche Zahl kopieren?")
If x = "1" Then Zahl1_20_kopieren
If x = "2" Then Zahl2_20_kopieren
'...
End Sub
VG, Boris
Betrifft: AW: Inputbox zum starten von Makros
von: Andreas
Geschrieben am: 07.11.2014 16:22:19
Hallo Boris
perfekt herzlichen Dank funktioniert einwandfrei
VG Andreas
Beiträge aus den Excel-Beispielen zum Thema "Inputbox zum starten von Makros"
Screenshot zu InputBox
