Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

auf mehrer Workbooks zugreifen

auf mehrer Workbooks zugreifen
15.10.2004 13:24:11
Matthias
Hallo,
vielleicht kann mir jemand weitehelfen:
Ich möchte ausgehend von einem Makro auf die Daten mehrer Workbooks (3) zugreifen. Lasse diese durch VBA öffnen was ncoh klappt, jedoch bringt es mir eine Fehlermeldung (Typen unverträglich) wenn ich Sie anspechen will. Gehe wie folgt vor:
Dim wb1, wb2, wb3, wb4 As Workbooks
Dim wb1ws1, wb2ws1, wb2ws2, wb2ws3, wb3ws1 As Worksheets
Set wb1 = Workbooks("INT_Liste")
Set wb2 = Workbooks("US_Liste")
Set wb3 = Workbooks("NPP-Liste")
Set wb1ws1 = wb1.Worksheets("INT_Liste")
Set wb3ws1 = Sheets("Teileanalyse") - hier gibts Fehlermeldung, Typen unverträglich!
Hat jemand einen Vorschlag zur Verbesserung?
Grüsse
Matthias

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: auf mehrer Workbooks zugreifen
Ulf
Wenn schon deklarieren, dann richtig:
Dim wb1 As Workbook , wb2 As Workbook, wb3 As Workbook , wb4 As Workbook
nicht as Workbooks
Ulf
AW: auf mehrer Workbooks zugreifen
Dan
Matthias, im VBA muss man den Typ bei jeder Variable nennen. Wenn man es nicht tut, wird die Variable von Typ Variant sein.
Also bei Dir sieht es so aus :
Dim wb1, wb2, wb3, wb4 As Workbooks
Dim wb1ws1, wb2ws1, wb2ws2, wb2ws3, wb3ws1 As Worksheets
Also wenn es so geschrieben ist, hast Du 7 Variablen von Typ Variant (wb1, wb2, wb3, wb1ws1, wb2ws1, wb2ws2, wb2ws3), eine Variable von Typ Workbooks (wb4) und eine von Typ Worksheets (wb3ws1).
Der Code :
Set wb3ws1 = Sheets("Teileanalyse") - hier gibts Fehlermeldung, Typen unverträglich!
ist deshalb falsch, weil auf der linken Seite ein Typ Worksheets steht, und auf der rechten Seite ein Typ Worksheet. Also man kann dem Typ Worksheets (Collection) den Typ Worksheet nicht zuweisen.
Loesung :
Dim wb1 As Workbook, wb2 As Workbook, wb3 As Workbook, wb4 As Workbook
Dim wb1ws1 As Worksheet, wb2ws1 As Worksheet, wb2ws2 As Worksheet, wb2ws3 As Worksheet, wb3ws1 As Worksheet
Gruss Dan, CZ.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige