Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateinamen; VBA

Dateinamen; VBA
03.09.2003 07:14:10
Paul
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen; VBA
03.09.2003 07:38:33
sergiesam
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
AW: Dateinamen; VBA
03.09.2003 07:41:45
Paul
Danke Dir.
Werde mal umsetzen ...
Gruss
Paul
AW: Dateinamen; VBA
03.09.2003 07:47:41
Paul
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
Anzeige
AW: Dateinamen; VBA
03.09.2003 10:52:13
sergiesam
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
AW: Dateinamen; VBA
03.09.2003 14:46:01
Paul
Danke Dir Sam !!!

gruss
paul

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige