Microsoft Excel

Herbers Excel/VBA-Archiv

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

Dateinamen; VBA

    Betrifft: Dateinamen; VBA von: Paul
    Geschrieben am: 03.09.2003 07:14:10

    Guten Morgen mitsamt !

    Kann mir jemand ein Ansatz wie folgt anbieten:

    Ich möchte für verschiedene Makros im Vorfeld
    über eine Inputbox 6 Exceldateinamen eingeben/definieren lassen,
    welche dann in den Makros behandelt werden.
    Für jede der 6 Exceldateinamen soll schon ein Name
    vorgegeben werden, den man korrigieren kann.

    Wahrscheinlich, wieder nicht so toll vor mir ausgedrückt...


    Gruss
    Paul

      


    Betrifft: AW: Dateinamen; VBA von: sergiesam
    Geschrieben am: 03.09.2003 07:38:33

    Hi,

    wenn du immer den gleichen vorgabewert hast, kannst du eine Schleife verwenden:
    Sub Dateiangabe()
      Dim i As Byte, datei(6) As String
      For i = 1 To 6
        datei(i) = InputBox("Geben Sie die " & i & ". Datei an:", i & ". Eingabe", "C:\test\test.xls")
      Next i
    End Sub
    



    Wenn nicht, einfach 6x hintereinander die Zuweisung abfragen.

    Gruß,
    sam


      


    Betrifft: AW: Dateinamen; VBA von: Paul
    Geschrieben am: 03.09.2003 07:41:45

    Danke Dir.
    Werde mal umsetzen ...


    Gruss
    Paul


      


    Betrifft: AW: Dateinamen; VBA von: Paul
    Geschrieben am: 03.09.2003 07:47:41

    Hallo Sam !

    Habe es probiert - super !
    Könnte man hier noch was einbauen, das
    mir nach dem Input die Eingabe nochmals
    anzeigt und mir eine Korrekturmöglichkeit
    anbietet ?

    Gruss
    Paul


      


    Betrifft: AW: Dateinamen; VBA von: sergiesam
    Geschrieben am: 03.09.2003 10:52:13

    Hi,

    das kann man schreiben, wenn jemand auf Abbrechen klickt und eine Wiederholung möchte...

    Sub InputKorrektur()
      Dim eingabe As String
      
      Do Until eingabe <> ""
        eingabe = InputBox("...")
        If eingabe = "" Then
          If MsgBox("Möchten Sie noch einmal?", vbQuestion + vbYesNo) = vbNo Then
            Exit Do
          End If
        End If
      Loop
        
    End Sub
    


    Viel Spaß,
    Sam


      


    Betrifft: AW: Dateinamen; VBA von: Paul
    Geschrieben am: 03.09.2003 14:46:01

    Danke Dir Sam !!!

    gruss
    paul