Office: leere Zellen einfügen

Hallo zusammen,

ich versuche mich gerade an der Erstellung eines automatisch generierten Spielplans für ein Fußballturnier.

Dies Funktioniert auch soweit ganz gut, nur möchte ich nun, dass nach jedem Spieltag automatisch leere Zellen eingefügt werden.

Leider funktioniert das nur teilweise:
Wenn die Anzahl der Spiele Pro Spieltag ungerade ist, so werden nur nach jedem zweiten Spieltag leere Zellen eingefügt.

Kann mir jemand sagen, wo mein Fahler ist? Ich bin leider nicht so gut in VBA Programmierung...

Code:

:)

 

Hallo

Teste mal in diese Richtung:

;-)
Option Explicit

Public Sub machs()
Dim zeile As Long
For zeile = 500 To 2 Step -1
If Cells(zeile, 12) > Cells(zeile - 1, 12) Then Cells(zeile, 12).Insert (xlShiftDown)
Next
End Sub


ransi

 

ich benutze schon Version 2013, aber selbst diese Version kann aus einem Bild keine Tabelle erstellen.
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.

 

Hallo,

@ransi
Danke dir! Ich habe es noch ein bisschen angepasst und jetzt funktioniert es *Smilie

Grüße