Office: Excel VBA Array in ein Tabellenblatt schreiben

User · 19. März 2017

Liebe Alle!

Ich würde gerne ein Array von dem ich im Vorhinein noch nicht weiß, wie groß es ist in ein Tabellenblatt schreiben.

Hier mal mein Beispielcode:

Code:

Public Sub matrix()

'groesse der Matrix
Dim zeilen As Long
Dim spalten As Long
Dim matrixA() As Integer

zeilen = InputBox("Wie viele Zeilen soll ihre Matrix haben", , 0)
spalten = InputBox("Wie viele Spalten soll ihre Matrix haben", , 0)

'Eingabe pruefen
If zeilen

:)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oge · 20. März 2017

Hallo Martin,

du solltest

Option Explicit

über deine Module schreiben.

Luschi · 20. März 2017

Hallo Martin_vie,

einen wichtigen Hinweis hat Dir ja schon Oge gegeben. Dann würde das hier nicht passieren:
- schliefenspalte statt schleifenspalte
Dein Fehler liegt aber hier:
- For schleifenzeile = 0 To zeile statt For schleifenzeile = 0 To zeilen
- For schliefenspalte = 0 To spalte statt For schliefenspalte = 0 To spalten

Statt der Schleifen geht es aber auch so: Code:

Sheets("Tabelle1").Cells(1, 1).Resize(zeilen + 1, spalten + 1) = WorksheetFunction.Transpose(WorksheetFunction.Transpose(matrixA))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

GraFri · 21. März 2017

Hallo

Würde ich so machen:

Code:

Option Explicit

Public Sub matrix()

'groesse der Matrix
Dim zeilen As Long, spalten As Long
Dim z As Long, s As Long
Dim matrixA() As Integer

zeilen = InputBox("Wie viele Zeilen soll ihre Matrix haben", , 0)
spalten = InputBox("Wie viele Spalten soll ihre Matrix haben", , 0)

'Eingabe pruefen
If zeilen < 1 Or spalten < 1 Then
MsgBox "Bitte geben Sie einen gueltigen Wert ein!"
Exit Sub
End If

ReDim matrixA(1 To zeilen, 1 To spalten) As Integer

'Befuellen der Matrix A
For z = 1 To zeilen
For s = 1 To spalten
matrixA(z, s) = Int((100 - 1 + 1) * Rnd + 1)
Next s
Next z

'Werte zurück in Tabelle schreiben mit variabler Arraygrösse
'Beginn in Zelle A1 (Cells(1, 1)
Sheets("Tabelle1").Cells(1, 1).Resize(UBound(matrixA, 1), UBound(matrixA, 2)).Value = matrixA

'Ausgabe
Debug.Print "Ergebnis für ihre "; zeilen + 1; "x"; spalten + 1; " Matrix ist"
For z = 1 To zeilen
For s = 1 To spalten
Debug.Print "("; z; ","; s; ")"; "="; matrixA(s, z)
Next s
Next z

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg, GraFri

User · 21. März 2017

Vielen Dank an Alle!

Alle eure Tipp haben mir ganz toll geholfen *Smilie

Office: Excel VBA Array in ein Tabellenblatt schreiben

Excel VBA Array in ein Tabellenblatt schreiben

Excel VBA Array in ein Tabellenblatt schreiben

Excel VBA Array in ein Tabellenblatt schreiben

Excel VBA Array in ein Tabellenblatt schreiben - Similar Threads - Excel VBA Array

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

Excel Range als Bild in Word einfügen

VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.

Array aus Excel Tabelle einlesen Word VBA

VBA Daten in Array durch inputbox befüllen lassen

ComboBox mit Array befüllen

VBA Excel Array nicht gleich Array?