title image


Smiley Re: "Karteireiter" für lange Liste gesucht
Hallo Liane,



so könnte es gehen:



Sub InhaltsVerzeichnis()



Dim lZeile As Long



lZeile = 1



Do Until lZeile = Range("B65536").End(xlUp).Row

With Sheets("Tabelle1")

If Rows(lZeile).PageBreak = xlPageBreakAutomatic Then

.Cells(lZeile - 1, 7).Value = .Cells(lZeile - 1, 2).Value

End If

lZeile = lZeile + 1

End With

Loop



End Sub



Gruß Peter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: