Userform - wie Progr. stop, bis Eingabe erfolgt
Robby
ich habe eine Userform erstellt mit mehreren Eingabefeldern und Buttons. Nach Eingabe in drei Felder wird über den ersten Button ein VBA-Makro gestartet, welches letztlich eine neue Exceldatei erstellt. Diese soll dann unter einem Namen gespeichert werden, der erst zu diesem Zeitpunkt über die Userform eingegeben werden kann. Das Eingabefeld der Userform erhält zwar den Focus, aber die Verarbeitung des Makros wartet nicht auf die Eingabe. Wie kann ich das erreichen?
Wenn ich einen Stop-Punkt setze und dann den Namen eingebe, läuft alles richtig.
Hier die Funktion, die den Namen aufnehmen soll, nebst der aufrufenden Prozedur:
Public Sub SpeichernImportDatei()
ActiveWorkbook.Sheets(sRDBlattName).Move
ActiveWorkbook.SaveAs Filename:=gv_RohdatenImportPfad & NameImportDatei
ActiveWorkbook.Close
End Sub
Public Function NameImportDatei() As String
StartForm.Repaint
StartForm.txt_Import.SetFocus
NameImportDatei = StartForm.txt_Import.Value
End Function
Robby