komplettes Array in Bereich schreiben

For b = LBound(ArrGew) To UBound(ArrGew) For i = ZeileGewerk To ZeileNäGewerk - 1 With wks_Zeitplan ArrNeu(a) = .Range(.Cells(ZeileGewerk, 1), .Cells(ZeileNäGewerk - 1, ls) _ ) End With Next i a = a + 1 Next b

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hier also die Prozedur:

Sub Ausblenden_Zeilen()
Dim wkb As Workbook
Dim wkb_Zeitplan As Workbook
Dim wks_Bauhelferliste As Worksheet
Dim wks_Zeitplan As Worksheet
Dim wks_Uebersicht As Worksheet
Dim lz_Zeitplan As Long
Dim lz_Gewerk As Long
Dim ArrGew()
Dim ArrNeu As Variant
Dim myControl As Control
Dim Distanz As Long
Dim y As Long
Dim a As Long
Dim b As Long
Dim i As Long
Set wkb = ThisWorkbook
Set wks_Uebersicht = wkb.Worksheets("Uebersicht")
Set wks_Zeitplan = wkb.Worksheets("Bauplanung_" & Left(wks_Uebersicht.Range("B1"), 9))
Set scrDic = CreateObject("Scripting.dictionary")
lz_Zeitplan = wks_Zeitplan.Cells(Rows.Count, 1).End(xlUp).Row
lz_Gewerk = wks_Uebersicht.Cells(Rows.Count, 2).End(xlUp).Row
ls = wks_Zeitplan.Cells(3, Columns.Count).End(xlToLeft).Column
'Start in der Gewerkeliste in der ?bersicht ermitteln
For i = 1 To lz_Gewerk
With wks_Uebersicht
If .Range("B" & i) = "Gewerk" Then
StartGew = .Range("B" & i).Row + 1
End If
End With
Next i
y = 0
With wks_Uebersicht
wks_Uebersicht.Activate
.Range("A" & StartGew & ":D" & lz_Gewerk - 1).Sort _
Key1:=.Range("D" & StartGew + 1), Order1:=xlAscending, _
Header:=xlYes
For i = StartGew To lz_Gewerk
If .Range("D" & i)  "" Then   'Ermitteln wieviele Gewerke ausgew?hlt sind
y = y + 1
End If
Next i
End With
ZeilenArr = 0
'Array mit den Gewerken aus der ?bersicht f?llen, wird zum Vergleichen gebraucht, ob in der  _
Zeitplanspalte Spalte A der Eintrag mit der Liste ?bereinstimmt
ReDim ArrGew(y - 1, 0)
ReDim ArrNeu(y - 1)
x = 0
For i = StartGew To StartGew + y - 1
ArrGew(x, 0) = wks_Uebersicht.Range("B" & i)
x = x + 1
Next i
'Hier startet das Ermitteln des Beginns und Endes eines Gewerkes
For b = LBound(ArrGew) To UBound(ArrGew)
For i = 10 To lz_Zeitplan - 3
'For x = LBound(ArrGew) To UBound(ArrGew)
With wks_Zeitplan
If .Cells(i, 1) = ArrGew(b, 0) Then
ZeileGewerk = i
GoTo GewerkAnfang
End If
End With
'Next x
Next i
GewerkAnfang:
With wks_Zeitplan
'Gewerk durchsuchen
For x = ZeileGewerk + 1 To lz_Zeitplan - 3
If x = lz_Zeitplan - 3 Then
ZeileN?Gewerk = x
GoTo GewerkEnde
End If
For n = LBound(ArrGew) To UBound(ArrGew)    'Pr?fen ob in der  _
Zelle tats?chlich das Gewerk drin steht
If .Range("A" & x) = ArrGew(n, 0) Then
ZeilenN?chstesGewerk = .Range("A" & x).Row
N?Gewerk = ArrGew(n, 0)
ZeileN?Gewerk = x
GoTo GewerkEnde
End If
Next n
Next x
End With
GewerkEnde:
For i = ZeileGewerk To ZeileN?Gewerk - 1
With wks_Zeitplan
ArrNeu(a) = .Range(.Cells(ZeileGewerk, 1), .Cells(ZeileN?Gewerk - 1, ls) _
)
End With
Next i
a = a + 1
Next b
i = 11
With wks_Zeitplan
.Activate
.Range(.Cells(11, 1), .Cells(lz_Zeitplan - 3, ls)).ClearContents
.Cells(11, 1).Resize(UBound(ArrNeu) + 1, 1) = Application.Transpose(ArrNeu)
End With
End Sub

…Oisse,
dessen 1.Stufe 1- ([vertikal gerichteter] Vektor) und dessen 2.Stufe 2dimensional* (Matrix) ist. So etwas kann Xl auf keinen Fall in Gänze auf ein TabBlatt abbilden. Hier müsstest du jede Matrix einzeln auf einen jeweils anderen ZellBereich ausgeben.
Das Gleiche träfe auch zu, wenn die 2.Stufe ein (horizontal gerichteter) Kovektor wäre. Wären dann alle Kovektoren gleich lang, könnte Xl das Ganze in eine Matrix umwandeln, aber nur in einer ZellFml, nicht, wenn eine SubProzedur das in Gänze in einen ZellBereich schreiben wollte. Dann fehlt nämlich diese Xl-Unterstützung.
Falls es sich bei den Matrizen tatsächlich um echte (mit mehreren Zeilen und Spalten) und nicht um die xl-übliche 2d-Darstellung von (Ko-)Vektoren handeln sollte, könnte man trotzdem alles auf 1× ausgeben, wenn man zuvor jede Matrix in eine MatrixKonstante (als Text) umwandelt. Um solche Ergebnisse in reguläre größere Matrizen umzuwandeln, existiert im Archiv eine Fkt (UDF; RECHERCHE über 3-/4-Tensor). Anderenfalls kannst du die einzelnen Matrizen auch nacheinander in bestimmte, dafür reservierte Bereiche einer größeren Matrix eintragen, so wie das auch beim Kronecker-Tensor-Produkt gehandhabt wird (nur dass die Multiplikation entfällt).
* Das ist eine Mischform aus Variant- und VBA-Array. Echte mehrstufige Tensoren bestehen nämlich nur aus Vektoren und Kovektoren und allenfalls ihren skalaren Varianten [Tensor(0,0)].
Gruß, Luc :-?

im Prinzip so (Code nur prinzipiell, also bitte nicht kopieren, sondern verstehen und selber _ schreiben) hierbei werden die einzelnen Teil-Teppiche zu einem Gesmatteppich verwoben, wobei die _ Zeilennummer es Gesamtteppichs immer weiter hochgezählt wird. Die benötigte Anzahl an Zeilen und Spalten für den Gesamtteppich solltest du vorher schon _ kennen um diesen entsprechend dimensionieren zu können. dim arrErg(1 to Zmax, 1 to Smax) dim arrX dim zX as long, zErg as long dim s as long for a = LBound(ArrNeu) to Ubound(ArrNeu) arrX = ArrNeu(a) for zX = Lbound(arrX, 1) to Ubound(arrX, 1) zErg = zErg + 1 for s = Lbound(arrX, 2) to Ubound(arrX, 2) arrErg(zErg, s) = arrX(zX, s) Next s next zX next a Cells(..).Resize(ubound(ArrErg, 1), Ubound(arrErg, 2)) = arrErg

Beliebteste Forumthreads (12 Monate)

komplettes Array in Bereich schreiben

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread