title image


Smiley Aha, Du musst erst einmal die Position feststellen...
und dann weiter arbeiten:



Dim intRow As Integer



intRow = ActiveCell.Row + 1



ActiveSheet.Unprotect



Rows("15:15").Copy



Rows(intRow).Select

Selection.Insert Shift:=xlDown



ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True



Eventuell musst Du anstelle von Integer einen anderen Variablentyp nehmen, falls Du mehr als ca. 32000 Zeilen in Deinem Sheet verwendest. ;o)

Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: