UF Anzeigen will nicht

Guten Abend zusammen
Die UF ist in der Datei Temp.xlsm hinterlegt und funktioniert via Befehlsschaltfläche einwandfrei.
Wenn das Dialogfeld aus nachfolgenden Macro aufgerufen wird, öffnet sich die UF leider nicht.
Datei 1.xlsm und Temp.xlsm sind zum Zeitpunkt geöffnet
Habe ich eine Handbremse eingebaut?
Vielleicht weiss jemand eine Lösung, im vorraus ein Dankeschön

Sub TypKopieren()
Windows("Datei 1.xlsm").Activate
Workbooks("Temp.xlsm").Sheets("HT").Range("A12") = ActiveCell.Offset(0, -4)
Workbooks("Datei 1.xlsm").Close savechanges:=False
Keiner der drei nachfolgenden Befehle kann die UF öffnen
'Call Userdialog
'dlgUserdialog.Show
'Application.Run "Tempkalk.xlsm!Userdialog"
End Sub

Sub Userdialog()
dlgUserdialog.Show
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() Sub TypKopieren aufgerufen Sub TypKopieren() Windows("Datei 1.xlsm").Activate Workbooks("Tempkalk.xlsm").Sheets("HT").Range("A12") = ActiveCell.Offset(0, -4) Workbooks("Datei 1.xlsm").Close savechanges:=False Hier sollte die UF kommen aber keine der vier nachfolgenden Befehle kann die UF öffnen 'Call Userdialog 'dlgUserdialog.Show 'Application.Run "Tempkalk.xlsm!Userdialog" 'Application.Run "'" & "DateiName.xlsm" & "'!Userdialog" (Danke an Onur) End Sub

Als erstes ein Dankeschön Onur und Matthias für eure Zeit und Hilfe
Wenn ich die eigentlich wichtigen Sachen deaktiviere läuft es sauber durch und die UF erscheint wie gewünscht sowohl mit Application.Run "Tempkalk.xlsm!Userdialog" wie auch mit 'Application.Run "'" & "Tempkalk.xlsm" & "'!Userdialog" (Danke an Onur)
Sobald aber nachfolgende Codezeilen akiviert sind habe ich keine UF
Windows("Datei 1.xlsm").Activate
Workbooks("Tempkalk.xlsm").Sheets("HT").Range("A12") = ActiveCell.Offset(0, -4)
Workbooks("Datei 1.xlsm").Close savechanges:=Fal
Also in Datei 1.xlsm sind in der vierten Zelle links von der aktiven Zelle Texte vorhanden
Dieser Text soll mit Workbooks("Tempkalk.xlsm").Sheets("HT").Range("A12") = ActiveCell.Offset(0, -4)in die Tempkalk übernommen werden, (funktioniert auch einwandfrei) und anschliessend soll Datei 1.xlsm geschlossen werden.
Da meine VBA Kenntniss nicht auf eurem Level spielt, stellt sich die Frage ob sich dieser dreizeiler kürzen oder ändern lässt.
Vielen Dank und schönen Sonntag

Beliebteste Forumthreads (12 Monate)

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread