ich hhabe leider verdrängt wie ich meine Makros vereinfache
damit ich weniger Zeilen habe und auch nebenbei noch den Ablauf beschleunige.
z.B
Rows("1:1").Select
Selection.Delete Shift:=xlUp
kann ich doch auch in einer Zeile ohne den select part machen.
aber wie gesagt ich weiss auf die schnelle nicht mehr wie;-(
unten noch einige beispiele mehr, damit es deutlicher wird
thanx
Jörg
Range("I10:J10").Select
Selection.Merge
For lauf = start_row To ende_row
Range(Cells(lauf, 9), Cells(lauf, 10)).Select
Selection.Merge
Next lauf