Objekt in anderes Makro übergeben

[tmessers]

Hallo liebe Excel-Gemeinde,

ich habe ein Frage zur Übergabe von Objekten.

In einem Makro in einem Modul wiese ich einem Workbook und einem Worksheet einen Objektverweis zu.

Code:

Public erstezeile as Integer
Public letztezeile as Integer


Sub oeffnen()
'MsgBox oe_name
Dim oexcel As Object
Dim ws As Object
Dim wb As Object

'Öffnen der Liste
pfad = "Z:\test\"
datei = "Liste.xlsx"
On Error Resume Next
Set oexcel = GetObject("excel.application")
On Error GoTo 0
       
If oexcel Is Nothing Then
    Set oexcel = CreateObject("Excel.Application")
    Set wb = oexcel.Workbooks.Open(pfad & datei)
    Set ws = wb.Sheets(1)
    oexcel.Visible = True
    wb.Activate
    wb.Application.DisplayFullScreen = True
End If

(weitere Anweisungen zur Ermittlung von erstezeile und letztezeile)
.
End Sub

In einem weitere Makro möchte ich diesen Objektverweis wieder nutzen.

Code:

Name suchen
Sub name_suchen()
nachname = UF1.TextBox1.Value

With UF1
    For i = erstezeile To letztezeile
        If ws.Cells(i, 3).Value = nachname Then
            .TextBox2.Value = ws.Cells(i, 4).Value
            .TextBox3.Value = ws.Cells(i, 6).Value
            .TextBox4.Value = ws.Cells(i, 7).Value
            ws.Cells(i, 3).Select
            erstezeile = i
            Exit For
        End If
    Next i
End With

Geht das und wenn ja wie?
Weiß wer Rat?

Gruß

tmessers

[Werner.M]

Hallo,

deine Variablen für die erste und letzte Zeile hast du doch auch als Public deklariert, warum machst du das dann nicht einfach auch für deine Variablen wb und ws?

Gruß Werner

[tmessers]

Hallo Werner, danke für Deine Antwort.

Ich habe "Public ws As Object" probiert.
Die Fehlermeldung lautet:
Laufzeitfehler '91':
Objektvariable oder With-Blockvariable nicht festgelegt

Gruß

tmessers

[Steffl]

Hallo,

Ich habe "Public ws As Object" probiert.

Wo hast Du es probiert?

[Lutz Fricke]

Hallo tmessers,

soweit ich weiß, kannst Du keine Variablen von einem Makro in ein anderes übergeben.
Von einem Modul eines Makros in ein anderes Modul ja, aber nicht von Makro-Datei zu Makro-Datei.

Gruß,
Lutz

[tmessers]

@Steffl

Ich habe den Code wie folgt ergänzt

Code:

Public erstezeile as Integer
Public letztezeile as Integer
Public wb as Object
Public ws as Object

@Lutz Fricke
Ich nutze diese Möglichkeit bereits so und es hat bis auf die Objekte immer funktioniert.

[Werner.M]

Hallo,

Public wb as Workbook und Public ws as Worksheet

Gruß Werner

[tmessers]

@Werner

Das war die Lösung.
Workbook und Worksheet anstatt Object.

Vielen Dank!!!!