Guten Tag,
wie kann ich mit VBA in einem selektierten Bereich die leeren Zellen - ähnlich wie bei einem Bildpuzzle - auffüllen bzw. nachrücken und auch das Format beibehalten.
Bereich von A1-F3 sieht erstmal so aus:
A-B-C-D-F
1 x x x x
2 x x x
3 x x x x
Nach ausführen des Macros sollte es so aussehen:
A-B-C-D-F
1 x x x x x
2 x x x x x
3 x
Vielen Dank für jeden Tipp.
Liebe Grüße, Peter
A-B-C-D-F
1 x x x x
2 x x x
3 x x x x
Nach ausführen des Macros sollte es so aussehen:
A-B-C-D-F
1 x x x x x
2 x x x x x
3 x
Hallo Peter,
Sub tt()
Dim Anz As Long, Zei As Long, Spa As Long
Anz = Application.CountIf(Range("A:E"), "x")
Range("A:E").ClearContents
Zei = 1
While Anz
Spa = Spa + 1
If Spa = 6 Then
Spa = 1
Zei = Zei + 1
End If
Cells(Zei, Spa) = "x"
Anz = Anz - 1
Wend
End Sub
Gruß
Reinhard