Office: Userform aus anderem Workbook laden

Hallo zusammen,

ich habe ein Problem für das ich leider keinen funktionierenden Ansatz im web gefunden habe.

Ich öffne über einen Button im Workbook "wbUF" eine Userform ("Userform1"). In der selben Sub werden Zahlen aus einem Hilfssheet in der selben Mappe in die Userform geladen

Sub Userform_anzeigen()
Dim wbUF As Workbook
Set wbUF = Workbooks("Kalkulationsmodell (START).xlsm")
Dim wsHS As Worksheet
Set wsHS = wbUF.Worksheets("Hilfssheet")

UserForm1.txtAvon.Value = wsHS.Range("E1").Value
UserForm1.txtAbis.Value = wsHS.Range("G1").Value * 100
....
UserForm1.txtKB.Value = wsHS.Range("D21").Value
UserForm1.txtAnzBTmin = wsHS.Range("D22").Value

UserForm1.Show vbModeless
End Sub

Nun möchte ich über einen Butten in einem Tabellenblatt einer anderen Mappe, diese Userform aufrufen. Mein Ansatz dabei ist, dass ich erst die Mappe "wbUF" öffne falls diese geschlossen sein sollte und dann die Userform anzeigen möchte. Die Idee dahinter sieht ca so aus:


Private Sub CBUFUEM_Click()

'Öffne Quellmappe 1 "Startmaske" falls geschlossen (jene die die Userform enthält)...
Dim wbUF As Workbook
Dim blnoffen As Boolean

For Each wbUF In Workbooks
If wbUF.Name = "Kalkulationsmodell (START).xlsm" Then
blnoffen = True
Exit For
End If
Next wbUF

If blnoffen Then
Set wbUF = Workbooks("Kalkulationsmodell (START).xlsm")
wbUF.activate
Else
Workbooks.Open "G:\LOGISTIKA\Kalkulationsmodell GPF 1200\Kalkulationsmodell (START).xlsm"
Workbooks("Kalkulationsmodell (START).xlsm").Activate
End If

'... und zeige die Userform inkl. der Parameter welche aus dem Hilfssheet übernommen werden
Dim wsHS As Worksheet
Set wsHS = wbUF.Worksheets("Hilfssheet")
Dim objUF as Object
Set objUF = wbUF.Userform1

objUF.txtAvon.Value = wsHS.Range("E1").Value
objUF.txtAbis.Value = wsHS.Range("G1").Value * 100
…
objUF.txtCbis.Value = wsHS.Range("G3").Value * 100

objUF.Show vbModeless
End Sub


Leider funkt das so noch nicht, wie könnte es besser funktionieren? Ist mein Ansatz grundsätzlich richtig?

Vielen dank für eure Hilfe!

LG,
Rainer

:)

 

Hi Rainer,

schreibe in der Arbeitsmappe mit dem UserForm ein Makro der Art:

Code:

Und in deiner anderen Mappe rufst du dieses Makro dann auf:

Code:

 

Hi Karin,
ich habe jetzt in der zweiten Mappe folgenden Code hinter den CommanButton gelegt. Leider funktioniert es nicht. Es kommt die Meldung "Anwendungs- oder objektorientierter Fehler"...
Siehst du einen Fehler?


Private Sub CBUFD5_Click()

'öffne wbUF falls geschlossen
Dim wbUF As Workbook
Dim blnoffen As Boolean

For Each wbUF In Workbooks
If wbUF.Name = "Kalkulationsmodell (START).xlsm" Then
blnoffen = True
Exit For
End If
Next wbUF


If blnoffen Then
Set wbUF = Workbooks("Kalkulationsmodell (START).xlsm")
wbUF.Activate
Else
Application.DisplayAlerts = False
Workbooks.Open "G:\LOGISTIKA\Kalkulationsmodell GPF 1200\Kalkulationsmodell (START).xlsm"
Set wbUF = Workbooks("Kalkulationsmodell (START).xlsm")
wbUF.Activate
Application.DisplayAlerts = True
End If

'lade Userform
Application.Run ("Kalkulationsmodell (START).xlsm!Userform_anzeigen")
End Sub

LG,
rainer

 

Hi Rainer,

in der Mappe "Kalkulationsmodell (START).xlsm" gibt es ein makro welches "Userform_anzeigen" heißt, welches dann das UserForm startet?

 

Hi Karin,

genau, in der Mappe "Kalkulationsmodell START.xlsm" ist unter "DieseArbeitsmappe" das Makro "Sub Userform_anzeigen()" zu finden.

Kann es sein, dass ich das Makro "Sub Userform_anzeigen()" in ein eigenes Modul schreiben muss damit man von einer anderen Arbeitsmappe drauf zugreifen kann?

LG

 

Hi Rainer,

das Makro muss in einem allgemeinen Modul stehen.

 

Hab ich so versucht... das Problem besteht immer noch. Selbe Fehlermeldung *frown.gif*

LG

 

Hi Rainer,

ich kann das leider nicht nachvollziehen. Habe mal ein einfaches Beispiel erstellt - Startmappe mit Schalter, der das Makro aus Zielmappe startet, welches wiederum das UserForm aufruft.

 

Sry... Fehlercode ist jetzt doch ein anderer: "Das Makro 'Kalkulationsmodell (START).xlsm!Userform_show' kann nicht ausgeführt werden. Das Makro ist möglicherweise in dieser Arbeitsmappe nicht verfügbar, oder alle Makros wurden deaktiviert"


Das besagte Makro ist aber in einem allgemeinen Modul in der ersten Mappe hinterlegt... Ich komm nicht drauf *frown.gif*

 

Super, danke dir! Ich werde mir das daheim anschaun. Kann es leider in der Firma nicht downloaden zwecks Firewall.

Geb dir dann morgen Rückmeldung obs funktioniert hat.

Beste Grüße,
Rainer

 

Hi Karin,

Ich dachte mir egentlich es bei mir genauso gemacht zu haben, muss morgen nochmal einen genauen Blick drauf werfen und hoffentlich finde ich heraus woran es bei mir liegt...

Vielen dank für dein Beispiel!!

LG,
Rainer

 

Quellmappe: Kalkulationsmodell Tábor (START).xlsm
In dieser ist die Userform vorhanden. Die UF wird mittels Schaltfläche in Quellmappe über die Sub Userform_show () aufgerufen. Diese Sub befindet sich ineinem allgemeinen Modul. Die Sub Userform_show sieht folgendermaßen aus:

Sub Userform_show()

End Sub


Startmappe: GPF-T (Berechnung Produktionsprogramm)_Modul3.xlsm
Von dieser Mappe aus soll die Userform der Quellmappe auf Klick angezeigt werden. Dem Button weise ich folgende Sub in einem allgemeinen Modul der Startmappe zu:
Sub UF_show()

End If
Next wbUF
If blnoffen Then

Else

End If
'lade Userform
Application.Run "Kalkulationsmodell Tábor (START).xlsm!Userform_show"End Sub



Was ist daran falsch?