VBA - Code Erweiterung um user form zu öffnen

[SteBen]

Hallo zusammen,

brauche mal wieder Eure Hilfe :)

Ich habe folgenden Code, den ich nun aber gerne insoweit erweitern möchte, als dass ein user form, das in einer anderen Excel Datei gespeichert ist, geöffnet wird & dort Eingaben gemacht werden können.

Ist sowas überhaupt mgl. & wenn ja, wie muss ich den Code dann anpassen?
Ich meine mich zu erinnern, dass 2 VBA Projekte nicht gleichzeitig bearbeitet werden können, zumindest ging das bisher nicht oder?

Danke für Eure Meinungen.

VG 
SteBen

Code:

Option Explicit


Sub Email_senden_bei_veraendertem_workload(Tabelle As String, Zeile As Long)
On Error Resume Next

Dim MailAdresse As String
Dim Betreff As String
Dim Body As String
Dim Status As String
Dim Invoice As String
Dim FreierText As String
Dim Workload As String
Dim CommentBenny As String
Dim ResolutionAdmin As String
Dim CommentBuhaNew As String
Dim Datum_V As Date
Dim objOutlook As Object
Dim objMail As Object

MailAdresse = "..."
With Worksheets(Tabelle)

Datum_V = Now()
    .Cells(Zeile, 22).Value = Datum_V 'aktuelles Datum setzen
   
    Invoice = Trim(.Cells(Zeile, 1).Value & "") 'Spalte A
    Workload = Trim(.Cells(Zeile, 17).Value & "") 'Spalte Q
    Status = Trim(.Cells(Zeile, 19).Value & "") 'Spalte S
    CommentBenny = Trim(.Cells(Zeile, 16).Value & "") 'Spalte P
    ResolutionAdmin = Trim(.Cells(Zeile, 18).Value & "") 'Spalte R
    CommentBuhaNew = Trim(.Cells(Zeile, 20).Value & "") 'Spalte T
   
    FreierText = "Liebe/r Kollege/in, die o.g. Rechnung wurde eben in Ihren workflow gestellt. Bitte in der OP NUE AIR-Liste kommentieren. Vielen Dank!"
    Betreff = "[... NUE-OP] " & "Invoice: " & Invoice & " --> " & "Status: - " & Status & " - " & "Workload: " & " - " & Workload
    Body = FreierText & vbCrLf & _
    "Comment Benny: " & CommentBenny & vbCrLf & _
    vbCrLf & _
    "Resolution Admin: " & ResolutionAdmin & vbCrLf & _
    vbCrLf & _
    "Comment BUHA new: " & CommentBuhaNew
   
    '*** Outlook-Objekt erstellen und Email generieren *******
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    With objMail
   .To = MailAdresse
   .Subject = Betreff
   .Body = Body
   '.Display        'Erstellt die Email und ?ffnet diese. Der Versand erfolgt anschlie?end manuell vom User!
   .senD 'Erstellt die Email und versendet diese gleich
   '**********************************************************
  
End With

   

End With

End Sub

[schauan]

Hallöchen,

wenn Du willst kannst Du auch Makros aus 15 Dateien ausführen oder mehr

um das Userform einer anderen Mappe zu öffnen solltest Du dort ein Makro zum Aufruf der Userform einfügen, z.B. Public Sub ShowUF1, und dieses dann aufrufen.
Zuvor öffnest Du die Mappe und blendest sie ggf. aus.

Sub UFausserhalb()
Workbooks.Open "c:\test\ausserhalb.xlsm"
Application.Run "ausserhalb.xlsm!ShowUF1"
End Sub



Du könntest mit der Userform-Datei auch beim Öffnen einen Menüeintrag erzeugen und das Userform dann darüber starten.

[SteBen]

Moin,

vielen Dank für Deine Antwort.
Ich probier' es gleich mal aus :)