Schleife zu langsam
01.04.2022 16:51:58
Stefan
ich hab mir mit meinem kleinen VBA Wissen ein Makro zusammenkopiert/-gezimmert. Da läßt mich aber jetzt unten stehende Schleife im Stich. Die Tabellen die dabei formatiert werden sollen, sind riesig. Bis zu 60000 Zeilen und bis zu 200 Spalten. Für das berechnen braucht das Makro teilweise 30 min. Gibt es dafür einen schnelleren Weg?
Sub Tabelle_formatieren()
Dim lRow As Long, i As Long, m As Integer, lColumn As Integer, s As Integer
Dim entry As Boolean
Dim dict As Object
Dim zelle As Range
Dim Werte() As String
Dim j As Integer
Const TRKz As String = ", "
Dim rngZelle As Range
Range("C:D").EntireColumn.Insert
Range("C:D").ColumnWidth = 30
Cells(5, 3).Value = "Namen"
Cells(5, 4).Value = "Schlüssel"
With ActiveSheet
lRow = .Cells(.Rows.count, "A").End(xlUp).Row
lColumn = Cells(1, Columns.count).End(xlToLeft).Column
End With
For i = 6 To lRow
Cells(i, 3).Formula2R1C1 = "=TEXTJOIN("", "",TRUE,IF(R[0]C[6]:R[0]C" & lColumn & "=""x"",R1C9:R1C" & lColumn & ",""""))"
Cells(i, 3).Value = Cells(i, 3).Value
Cells(i, 4).Formula2R1C1 = "=TEXTJOIN("", "",TRUE,IF(R[0]C[6]:R[0]C" & lColumn & "=""x"",R5C10:R5C" & lColumn & ",""""))"
Cells(i, 4).Value = Cells(i, 4).Value
Next i
...
Schöne Grüße
Stefan