VBA Inputbox

19/02/2008 - 21:41 von Compy | Report spam
Hallo Gemeinde,
Ich hab mal wieder ein kleines Problem mit Excel und hoffe auf eure
Hilfe :-).
Also ich frage ein paar Pflichteingaben ab um eine Datei zu
verarbeiten, was mich dabei stört ist das sich jedesmal diese Inputbox
öffnet und dann wieder schliesst und sich dann die nàchste öffnet, ich
möchte lieber eine Eingabemaske haben in der ich alles eingeben kann
dann einmal auf ok klicke und die berechnung geht los. Mein Skript wie
es bis jetzt die Eingabeabfrage macht hànge ich mal an

Sub Auswerten()

' Variablen
Dim Anzahl_Zyklen As Long
Dim Dateinamen() As String
Dim Querschnitt As String
.
.
.


Probenbezeichnung = InputBox("Bitte geben S...")

Querschnitt = InputBox("Geben Si...:", "Abfrage Querschnitt")

Application.FileDialog(msoFileDialogFolderPicker).Title = "Bitte
wàhlen Sie den Ordner mit den zu importierenden Textdateien
SegmentXXXXXX.txt aus!"
Application.FileDialog(msoFileDialogFolderPicker).Show

Pfad Application.FileDialog(msoFileDialogFolderPicker).SelectedItems.Item(1)

Anzahl_Dateien = InputBox("Geben Sie.:")
.
.
Also das soll alles in einem Fenster abgefragt werden, wàre schön wenn
das ginge. schon mal besten dank im voraus für eure Mühen
mfg
Christian
 

Lesen sie die antworten

#1 Martin Hentrich
19/02/2008 - 21:57 | Warnen spam
On Tue, 19 Feb 2008 12:41:31 -0800 (PST), Compy
wrote:

Problem mit Excel



Mach ne UserForm (Im VBA-Projekt ein neues Formular), male alle
Abfragen drauf und rufe die UserForm auf (NameUserForm.Show) und werte
die Eingaben bei Klick auf einen OK-Button aus und schließe die
Userform danach (Unload.Me).

Welches Excel übrigens?

Martin

"Allen ist das Denken erlaubt, doch vielen bleibt es erspart."
- Curt Goetz -

Ähnliche fragen