Rows.Count

[Krause-r-h]

Moin Ralf

Vielen Dank für deine Mühe aber Leider funktioniert dein Code nicht ganz  richtig aber nicht schlimm 
  er macht wie bei meinen Anderen Versuchen nur zwei spalten und nicht drei nebeneinander
die Dritte spalte Setzt er unter die Zweite
 Ansonsten eine gut Lösung und für diesen zweck ausreichend
Vielen dank und einen schönen Sonntag

Lg aus Lauenburg Ronny


PS ich schau mal ob ich in code was Ändern kann 

[ralf_b]

ersetze If x = 8 Then spa = spa + 1: zei = 0 'spaltenwechsel
 durch   If x = 8 Or x = 16 Then spa = spa + 1: zei = 0  'spaltenwechsel

[Krause-r-h]

Vielen dank Ralf 

Es funktioniert super 

LG aus Lauenburg und eine schöne Woche 
Ronny