|
Hi Fenix,
Willst du nun kopieren (also inkl. Formatierung) oder nur die Werte übernehmen?
Für das Kopieren so:
r = SZelle.Row
Range("F" & r & ",J" & r & ",K" & r & ",G" & r & ",I" & r).Copy Tabelle2.Cells(A, 1)
Zum Übernehmen unformatierter Werte einfach:
r = SZelle.Row
Tabelle2.Cells(A, 1).Resize(1, 6) = Range("F" & r & ":K" & r).Value
Tabelle2.Cells(A, 3).Delete Shift:=xlToLeft
Falls du dabei die Reihenfolge berücksichtigen willst, musst du jede Zelle einzeln ansprechen:
r = SZelle.Row
For Each c In Range("F" & r & ",J" & r & ",K" & r & ",G" & r & ",I" & r)
s = s + 1
Tabelle2.Cells(A, s) = c
Next c
r und s musst du dann als Long sowie c als Range definieren.
Gruß Mr. K.
|