AW: vier Spalten zu zwei Spalten mischen
08.12.2006 07:35:10
Erich
Hallo Arne,
vermutlich schneller als mit dem Ergebnis einer Makroaufzeichnung sollte es so funzen:
Option Explicit
Sub Umgruppieren()
Dim lngL As Long, varQ As Variant, varZ As Variant, lngZ As Long
lngL = IIf(Cells(Rows.Count, 1) > "", Rows.Count, Cells(Rows.Count, 1).End(xlUp).Row)
If 2 * lngL > Rows.Count Then MsgBox "Zu viele Zeilen!", vbCritical, "Abbruch": Exit Sub
varQ = Range(Cells(1, 1), Cells(lngL, 4))
ReDim varZ(1 To 2 * lngL, 1 To 2)
For lngZ = 1 To lngL
varZ(2 * lngZ - 1, 1) = varQ(lngZ, 1)
varZ(2 * lngZ - 1, 2) = varQ(lngZ, 2)
varZ(2 * lngZ, 1) = varQ(lngZ, 3)
varZ(2 * lngZ, 2) = varQ(lngZ, 4)
Next lngZ
Range(Cells(1, 1), Cells(2 * lngL, 2)) = varZ
Columns("C:D").Delete ' oder Columns("C:D").Clear
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort