Wert für Workbook & Sheet aus Zelle auf Blatt lesen

UltraTM · 18. Juni 2022, 11:30

Hallo zusammen,

und zwar stehe ich vir folgender Aufgabe:

Ich versuche aus diesem Code:

Quellcode

Dim Plan As Workbook: Set Plan = Workbooks("MASTER HTIG PRODUCTION 2022.xlsx")

und diesem:

Quellcode

Dim OVSht As Worksheet: Set OVSht = Plan.Sheets("Overview Machines")

eben die Werte sprich MASTER HTIG PRODUCTION 2022.xlsx und Overview Machines aus einer Zelle auf einem Blatt zu lesen. Da sich diese Namen ändern.

Kann mir hier jemand helfen?

Hatte folgendes versucht den Wert aus dem Blatt Maschinenliste aus J8 zu lesen für das Workbook. Dort steht auch MASTER HTIG PRODUCTION 2022.xlsx im Feld.
Das Overview Machines wäre dann in J9

Quellcode

Dim Plan As Workbook: Set Plan = Workbooks(Worksheets("Maschinenliste").Range("J8"))

Leider geht dies nicht.

mumpel · 18. Juni 2022, 19:47

Hallo!

Bei mir funktioniert es.

Visual Basic-Quellcode

Sub Test()
Dim wbkBook As Workbook
Dim wbkSheet As Worksheet
'Name der Arbeitsmappe in Tabelle 1 => Zelle A1 dieser Arbeitsmappe
Set wbkBook = Workbooks(ThisWorkbook.Sheets("Tabelle1").Range("A1").Value)
'Name der Tabelle in Tabelle 1 => Zelle A2 dieser Arbeitsmappe
Set wbkSheet = wbkBook.Worksheets(ThisWorkbook.Sheets("Tabelle1").Range("A2").Value)
MsgBox wbkSheet.Range("A2").Value
End Sub

Gruß, René

UltraTM · 18. Juni 2022, 20:00

Danke das hat geklappt.
Mein Fehler war das ich die Datei nicht offen hatte auf die er verwiesen hat und ich somit einen Laufzeitfehler 9 bekommen hatte.

Auch von mir Grüße an den Namensverwandten René

mumpel · 21. Juni 2022, 10:03

UltraTM schrieb:

Mein Fehler war das ich die Datei nicht offen hatte

Dann bau noch eine Abfrage ein ob die Arbeitsmappe offen ist.

Visual Basic-Quellcode

Sub Test()
Dim wbkBook As Workbook
Dim wbkSheet As Worksheet
'Prüfen ob Arbeitsmappe geöffnet ist
If Not WkbExists(ThisWorkbook.Sheets("Tabelle1").Range("A1").Value) Then
Workbooks.Open (ThisWorkbook.Path & "\" & ThisWorkbook.Sheets("Tabelle1").Range("A1").Value)
End If
'Name der Arbeitsmappe in Tabelle 1 => Zelle A1 dieser Arbeitsmappe
Set wbkBook = Workbooks(ThisWorkbook.Sheets("Tabelle1").Range("A1").Value)
'Name der Tabelle in Tabelle 1 => Zelle A2 dieser Arbeitsmappe
Set wbkSheet = wbkBook.Worksheets(ThisWorkbook.Sheets("Tabelle1").Range("A2").Value)
MsgBox wbkSheet.Range("A2").Value
End Sub
Private Function WkbExists(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sFile)
If Not wkb Is Nothing Then
WkbExists = True
End If
On Error GoTo 0
End Function

Wert für Workbook & Sheet aus Zelle auf Blatt lesen

Wert für Workbook & Sheet aus Zelle auf Blatt lesen

Quellcode

Quellcode

Quellcode

Visual Basic-Quellcode

UltraTM schrieb:

Visual Basic-Quellcode

Benutzer online 1

Ähnliche Themen

2 Benutzer haben hier geschrieben