Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1844to1848
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1844to1848
1844to1848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Bereich aus anderer Tabelle in Array

VBA Bereich aus anderer Tabelle in Array
03.09.2021 16:00:31
W
Hallo Excel-Freunde.
Wie kann ich einen Bereich aus einem anderen Tabellenblatt in einen 2D-Array bringen?
So geht es jedenfalls nicht:
Groups = ActiveWorkbook.Sheets(ZBlatt).Range(Cells(3, 2), Cells(MaxRows, 3))
Wenn das entsprechende Blatt das aktive Blatt ist, dann gibt es kein Problem.
Wer kann helfen?
Gruß Werner

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Bereich aus anderer Tabelle in Array
03.09.2021 16:04:15
peterk
Hallo
Auch die Zellen müssen ein Bezug auf das Blatt haben

With ActiveWorkbook.Sheets(ZBlatt)
Groups = .Range(.Cells(3, 2), .Cells(MaxRows, 3))
end With

AW: VBA Bereich aus anderer Tabelle in Array
03.09.2021 16:35:46
W
Hallo peterk.
Danke für Deinen Vorschlag. Aber das Ergebnis ist ebenfalls ein Laufzeitfehler 1004.
Der Laufzeitfehler 1004 kommt auch, wenn das genannte Blatt das aktive Blatt ist. Dein Vorschlag muss also einen Fehler enthalten, Nur welchen?
Gruß Werner
AW: VBA Bereich aus anderer Tabelle in Array
03.09.2021 17:00:05
Daniel
HI
das "ActiveWorkbook.Sheets(ZBlatt)." muss auch vor den beiden CELLS stehen!
gundsätzlich gilt, dass alle Zellbezüge (Range, Cells, Columns, Rows), ohne die Tabellenblattangabe davor immer auf das aktive Blatt referenzieren*
der Fehler kommt, wenn die Range auf einem anderen Blatt liegen soll, als die Cells, die die Range definieren.
dh korrekt wäre:

Groups = ActiveWorkbook.Sheets(ZBlatt).Range(ActiveWorkbook.Sheets(ZBlatt).Cells(3, 2), ActiveWorkbook.Sheets(ZBlatt).Cells(MaxRows, 3))
da das umständlich ist, definert man den Zellbereich besser so, mit hilfe von Resize.

Groups = ActiveWorkbook.Sheets(ZBlatt).Cells(3, 2).Resize(MaxRows - 3 + 1, 2).Value
Gruß Daniel
* dies gilt für Code in einem allgemeinen Modul.
Befindet sich der Code in einem Tabellenblattmodul, so referenzieren Zellbezüge ohne Tabellenblattangabe davor auf das Tabellenblatt des Moduls.
Anzeige
AW: VBA Bereich aus anderer Tabelle in Array
03.09.2021 17:12:29
W
Hallo Daniel,
vielen Dank für Deinen Code mit Resize.
Mein Dank gilt allerdings auch peterk. Nicht er hat einen Fehler gemacht, sondern ich hatte den Code ncht richtig übernommen. In der Variablen MaxRows war der Wert 0 enthalten.
Kaum macht man es richtig, dann funktioniert es.
Also nochmals: beide Lösungen funktionieren. Vielen Dank.
Gruß Werner

328 Forumthreads zu ähnlichen Themen

Array in Tabelle schreiben
eres

Schönen Gruß in mein Lieblings-Forum,
ich lese sequentiell aus einer riesigen csv-Datei die ersten 50.000 Sätze in ein Array. Nach dem Einlesen möchte ich die Werte in ein sheet schreiben.
Dim HilfsArray(1 To 50000) As String
Dim i as long
Open Input_File For Input As #1
D...
08.04.2009 14:15:07
Thread-ID: 1067735
5 Beiträge
Anzeige
per VBA in MySQL-Tabelle schreiben
André

Moin,
ich hätte da mal wieder ein Problem.
Daten aus einer MySQL-Datenbank bekomme ich problemlos in meine Excel-Tabellen. Dies bekomme ich auch per VBA gesteuert. Hierzu habe ich eine ODBC-Verbindung erstellt. In der Excel-Tabelle erstelle ich dann eine neue Datenverbindung, die ich da...
20.04.2010 14:29:30
Thread-ID: 1152882
5 Beiträge
array to range, range to array
Andi

Hallo,
Opa Helmut auf dem Fahrrad:
For i = 1 To UBound(arr)
Cells(1, i) = arr(i)
Next 'i
Raumschiff Enterprise
Range(Cells(1, 1), Cells(1, UBound(arr))) = arr
Ich favorisiere die Methode Raumschiff Enterprise, aber wenn ein arr Speicherplatz mit 1000 Zeichen belegt...
21.12.2010 18:50:18
Thread-ID: 1192391
12 Beiträge
Anzeige
VBA, Werte anhand Koordinaten in Tabelle schreiben
Christian

Hallo, ich hab ein kleines Problemchen welches ich gerne mittels VBA lösen möchte. Leider komme ich auch nach einiger Suche nicht mal ansatzweise auf eine Lösung.
Das ganze sieht so aus:
Ich habe 2 Tabellen:
Tabelle 1 hat 3 Spalten z.b. so:
Pos | Blatt | Wert
1 | 1...
01.09.2011 19:10:08
Thread-ID: 1228358
3 Beiträge
Per VBA Werte in eine Datei schreiben
Tobias

Hallo Leute,
ich möchte für den Brötchenverkauf in der Schule eine Statistik erstelle.
Jeden Tag soll , bei klicken des Bottons, aus der Excel Tabelle, die Anzahl, die Produktnummer, der Preis und die Kategorie in die Tabelle "Daten" geschrieben werden.
Mit folgendem Makro ist es...
09.02.2014 16:58:33
Thread-ID: 1348795
5 Beiträge
Array mit If-Anweisung
Moritz

Hallo alle zusammen,
ich beschäftige mich seit ein paar Tagen mit VBA. Ich habe momentan eine Arbeitsmappe die ich dafür gebrauche um eine Liste auszulesen und bestimmte daten dann immer wieder neu erstellten Worksheets zuzuweisen.
als erstes habe ich es ganz statisch nur mit einem work...
29.10.2014 10:23:53
Thread-ID: 1389301
4 Beiträge
Sub-Array to Range - möglich?
Michael
Hallo ans Forum,
weiss jemand, ob es möglich ist, Teil eines Arrays in einen Range zu schreiben? Der Teil des Arrays ist dabei nicht in der oberen linke Ecke angesiedelt...
Man stelle sich ein Array von 5x5 vor. Kann ich auf irgendeine Weise so auf das Array zugreifen, dass ich das "innere...
14.02.2015 20:32:47
Thread-ID: 1409445
9 Beiträge
VBA Kommentar aus Bereich einer Tabelle schreiben
Timonski

Hallo,
ich will von einem anderen Tabellenblatt, einen bestimmten Bereich z.B. A1:C20 in eine bestimmte Zelle (hier A1) als Kommentar reinschreiben...
hab auch schon mal was gefunden und was geändert, aber der Bereich bekomm ich nicht hin :-)
Sub MyComment() Dim myCom As Comment Dim...
11.03.2015 16:29:49
Thread-ID: 1414373
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
4
11
17
2
4
3
8
10
2
3
1
9
2
2
1
6
10
6
1
2
5
1
21