Liste Einrücken per VBA
03.04.2020 12:04:52
Marco
mein Makro zum einrücken von Daten funktioniert einwandfrei, ist aber ziemlich langsam.
(die Daten sind in der Ausgangstabelle immer versetzt [=Stücklistenstruktur])
Sehr ihr Optimierungsmöglichkeiten?
For x = 3 To zeilenende<br>
For y = 1 To letztespalte<br>
If Cells(x, y).Value <> "" Then 'ermitteln in welcher Spalte die Daten anfangen<br>
Range("a" & x).Value = y 'ersten wert in Spalte A schreiben<br>
Range(Cells(x, y), Cells(x, y + letztespalte)).Copy _<br>
Destination:=Range("b" & x) 'übrige Werte kopieren und ab Spalte B wieder einfügen<br>
Exit For <br>
End If<br>
Next<br>
Next