title image


Smiley klar
hi



hiho



Sub Zeilen_einfügen()

zusatzzeilen=inputbox("wieviele Leerzeilen sollen es sein")

zeile = [a65536].End(xlUp).Row

For zz = zeile To 1 Step -1

Rows(zz & ":" & zz + zusatzzeilen-1).Insert shift:=xlDown

Next

End Sub



p.s der Code ist ohne Fehlerbehandlung und statt einer Inputbox wäre eine UF besser geeignet.




Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: