09.12.2020, 21:18
Heje Excelfreunde,
im unten aufgeführten Makro werden Daten aus einem Array in eine Bereich geschrieben. Funktioniert über die For-Next-Scheifen recht ordentlich. Wollte diese Schleifen durch - siehe Kommentarzeilenen - Ansatz ersetzen...
Beispielhaft für das Arry "meDatZwSpeicherArrayKon"
komme aber nicht weiter, stehe momemtan auf dem Schlauch... wie muss ich dass programmieren, dass datem aus einem Array direkt in einem Bereich
eingefügt werden kann...
im unten aufgeführten Makro werden Daten aus einem Array in eine Bereich geschrieben. Funktioniert über die For-Next-Scheifen recht ordentlich. Wollte diese Schleifen durch - siehe Kommentarzeilenen - Ansatz ersetzen...
Beispielhaft für das Arry "meDatZwSpeicherArrayKon"
Code:
Public Sub DatumAusArraySchreiben()
Dim WSTab1 As Worksheet
Dim bytMinRow As Byte
Dim bytMinCol As Byte
Dim rngBereichKon As Range
Dim rngBereichStd As Range
Dim strbereich As String
On Error GoTo Aufraeumen
Set WSTab1 = ThisWorkbook.Worksheets("XXXXXXX")
WSTab1.Range(Cells(MinRowNumb, 3), Cells(MaxRowNumb, 5)).ClearContents
WSTab1.Range(Cells(MinRowNumb, 7), Cells(MaxRowNumb, 37)).ClearContents
For bytMinRow = MinRowNumb To intLastRow Step 1
For bytMinCol = MinColNumb To MaxColNumb Step 1
If meDatZwSpeicherArrayKon(bytMinRow - 11) <> "" Then
WSTab1.Cells(bytMinRow, 3).Value = meDatZwSpeicherArrayKon(bytMinRow - 11)
If meDatZwSpeicherArrayStd(bytMinRow - 11, bytMinCol - 6) <> 0 Then
WSTab1.Cells(bytMinRow, bytMinCol).Value = meDatZwSpeicherArrayStd(bytMinRow - 11, bytMinCol - 6)
End If
End If
Next bytMinCol
Next bytMinRow
ActiveWindow.SmallScroll up:=intLastRow
'strbereich = "D12:E" + CStr(intLastRow)
'Set rngBereichKon = WSTab1.Range(strbereich)
'rngBereichKon = meDatZwSpeicherArrayKon()
Aufraeumen:
Set WSTab1 = Nothing
End Subkomme aber nicht weiter, stehe momemtan auf dem Schlauch... wie muss ich dass programmieren, dass datem aus einem Array direkt in einem Bereich
eingefügt werden kann...
??