Office: VBA, nach leerer Zelle Rest der Zeile verschieben

Hallo,

benötige eine Funktion, die eine Tabelle Zeile für Zeile durchgeht und nach der ersten leeren Zelle sucht. Hat es diese gefunden, soll es alles rechts von der leerzelle um eine bestimmte Anzahl Zellen nach rechts verschieben. Wenn z.B. die Leerzelle schon die zweite Zelle von links ist dann 6 Felder nach rechts, ist es die dritte, dann nur noch 5 Felder usw. Ist sowas möglich.

Möchte darauf hinweisen, dass ich relativer Anfänger bin, deshalb bitte einfach und deutlich erklären.

Danke im Vorraus
Daniel

 

Hallo!

Das dürfte gleichbedeutend sein mit: "Verschiebe diesen Teil in die achte Spalte", oder?
Dann test mal diesen Code:

Code:

Sub test()
'Erste Zeile definieren:
Const ErsteZ = 1
'Letzte Zeile definieren:
Const LetzteZ = 5
Dim Spalte As Integer, Zeile As Long
  Zeile = ErsteZ
  'Durchlaufe alle Zeilen:
  Do
    Spalte = 0
    'Durchlaufe die Spalten der Zeile...
    Do
      Spalte = Spalte + 1
      '...bis die Zelle leer ist.
    Loop Until Cells(Zeile, Spalte) = ""
    'Schneide den Teil rechts der Leerzelle bis Spalte 100 aus
    'und füge ihn in der achten Spalte wieder ein.
    Range(Cells(Zeile, Spalte + 1), Cells(Zeile, 100)).Cut Cells(Zeile, 8)
    Zeile = Zeile + 1
    'Letzte Zeile erreicht?
  Loop Until Zeile > LetzteZ
End Sub

 

Danke, funktioniert genau wie es sollte. Perfekt. Vielen Vielen Dank