Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1728to1732
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
1728to1732
1728to1732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel VBA Daten anderes Blatt in Array

Excel VBA Daten anderes Blatt in Array
27.12.2019 10:42:59
Werner
Hallo Excel-Profis,
ich habe wieder einmal ein kleines Problem und hoffe auf eine einfache Lösung.
Den Inhalt einer Tabelle (ab Zeile 2) möchte ich in einen Array schreiben. Obwohl ich den Namen des Blattes angebe, bekomme ich immer dann einen Fehler 1004, wenn das genannte Blatt nicht gleichzeitig das aktive Blatt ist.
Mein Befehl:
IXArray = Sheets(Vorwahl).Range(Cells(2, 1), Cells(MaxRowFW - 1, 1))
Was ist an diesem Befehl falsch?
Gruß
Werner

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel VBA Daten anderes Blatt in Array
27.12.2019 10:45:27
Torsten
Hallo,
den Namen des Blattes in "" 

IXArray = Sheets("Vorwahl").Range(Cells(2, 1), Cells(MaxRowFW - 1, 1))

Gruss Torsten
AW: Excel VBA Daten anderes Blatt in Array
27.12.2019 10:49:03
Regina
Hi Werner,
hast Du mal geprüft, was in der Variablen "Vorwahl" steht? Ist da der korrekte Blattname drin? oder heißt das Blatt "Vorwahl"? Dann bitte in " " setzen.
Gruß
Regina
AW: Excel VBA Daten anderes Blatt in Array
27.12.2019 10:50:42
Nepumuk
Hallo Werner,
so:
With Worksheets(Vorwahl)
    IXArray = .Range(.Cells(2, 1), .Cells(MaxRowFW - 1, 1))
End With

Gruß
Nepumuk
Anzeige
AW: Excel VBA Daten anderes Blatt in Array
27.12.2019 13:30:17
Werner
Hallo Torsten, hallo Regina,
Danke für Eure Antworten. Natürlich handelt es sich um eine Variable mit dem richtigen Inhalt. Sonst würde die Routine nicht funktionieren, wenn dass genannte Blatt gleichzeitig das aktive Blatt ist.
Hallo Nepumuk,
auch Dir herhzliche Dank. Leider hat Dein Vorschlag auch nicht geholfen. Wenn sonst nichts hilft, muss ich das gewünschte Blatt zum aktiven Blatt machen, dann meinen Befehl absetzen, um danach wieder zum ursprünglichen Blatt zurückzukehren.
Ich warte jetzt noch ein paar Tage, ob doch noch jemand eine andere Lösung hat. Spätestens am 1. Januar werde ich dann - wohl oder übel - das angesprochene Blatt zum aktiven Blatt machen (müssen).
Gruß
Werner
Anzeige
AW: Excel VBA Daten anderes Blatt in Array
27.12.2019 13:48:33
Torsten
Hallo Werner,
kannst du mal den kompletten Code mit Variablendeklaration posten? Dann kann man vielleicht den Fehler, der vielleicht woanders steckt, ausfindig machen.
Gruss Torsten
AW: Excel VBA Daten anderes Blatt in Array
27.12.2019 14:37:23
Werner
Hallo Torsten,
der Fehler steckt darin, dass die Angabe das Blatt-Namens im dargestellten Befehl ohne Wirkung ist.
IXArray = Sheets(Vorwahl).Range(Cells(2, 1), Cells(MaxRowFW - 1, 1))
Auch der Vorschlag von Nepumuk hat keine Änderung gebracht,
Nochmals: wenn ich dann das entsprechende Blatt aktiviere, läuft der Code fehlerfrei.
Gruß
Werner
AW: Excel VBA Daten anderes Blatt in Array
27.12.2019 14:51:11
Nepumuk
Hallo Werner,
teste mal:
IXArray = Sheets(Vorwahl).Cells(2, 1).Resize(MaxRowFW, 1).Value

Gruß
Nepumuk
Anzeige
AW: Excel VBA Daten anderes Blatt in Array
27.12.2019 15:04:35
GerdL
Hallo,
die fünfte Kerze brennt! :-) 
Sub test()
Dim IXArray As Variant
Dim MaxRowFW As Long
Dim Vorwahl As String
Vorwahl = "Tabelle2"
Sheets(Vorwahl).Range("A2:A7") = WorksheetFunction.Transpose(Array(2, 3, 4, 5, 6, 7))
MaxRowFW = 7
IXArray = _
Sheets(Vorwahl).Range(Sheets(Vorwahl).Cells(2, 1), Sheets(Vorwahl).Cells(MaxRowFW - 1, 1))
For L = LBound(IXArray, 1) To UBound(IXArray, 1)
MsgBox IXArray(L, 1)
Next
End Sub

Gruß Gerd
AW: Excel VBA Daten anderes Blatt in Array
27.12.2019 15:14:41
Werner
Hallo Nepumuk,
Danke, das war die Lösung. Mit dem neuen Code funktioniert es ohne Probleme.
PS: Weil ich die Kopfzeile nicht mitkopieren möchte, muss ich vom MaxRowFW noch 1 abziehen.
Mein Probblem ist damit innerhalb weniger Stunden behoben.
Gruß
Werner
Anzeige

318 Forumthreads zu ähnlichen Themen

Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Anzeige
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
[VBA] Dreidimensionales Array in Tabellen ausgeben
Thomas

Hallo,
ich habe ein Problem mit der Ausgabe eines Arrays in eine Excel-Tabelle.
Ausgangspunkt ist folgender: With ThisWorkbook.Worksheets(1) .Cells(4, l).Resize(UBound(array, 1), UBound(array, 2)).Value = array End With
Das Array 'array' ist hierin zweidimensional, l wird durch...
06.10.2009 10:25:00
Thread-ID: 1107423
5 Beiträge
Anzeige
Array Formel summe wenn in VBA umwamdeln
t.wegmann@hengegroup.com

Hallo Liebes Forum,
ich habe ein Problem mit meiner Array-Formel:
=SUMME(WENN(('DATEN NEU'!$F$2:$F$25048=Frachten!$D4)*('DATEN NEU'!$N$2:$N$25048=Frachten!$F4) *('DATEN NEU'!$X$2:$X$25048=Frachten!H$2);'DATEN NEU'!$AB$2:$AB$25048))
Die Formel funktioniert gut, nur wenn ich die Date...
01.03.2010 09:54:52
Thread-ID: 1142293
2 Beiträge
ArraySumme von ABS Werten in VBA
ABS

Hallo Excel Freunde,
ich stehe gerade bei einer vermutlich banalen Sache auf der langen Leitung.
{=SUMME(ABS(A6:G6)) } Diese ArrayFormel bildet die Summe aller Einzelzellen von A6-G6 aus ihren individuellen ABS Werten.
Wie lautet diese Zeile in VBA, wenn testweise A6-G6 die Selectio...
10.03.2010 20:52:23
Thread-ID: 1144997
4 Beiträge
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 in VBA
PeTeR

Hallo VBA-Freaks,
ich habe 2 Spalten: Typ und Größe
Z.B.:
Typ Größe
A 1
B 3
A 4
C 2
A 5
B 1
C 4
Als Ergebnis hätte ich gerne folgendes (am liebsten per Makro in einem Array mit X*2 Feldern):
A: 1;4;5
B: 3;1<...
20.10.2010 13:56:57
Thread-ID: 1183205
7 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

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
12
5
4
4
3
1
3
4
6
11
17
2
6
2
4
5
8
10
3
2
8
2
3
1
9