Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

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"