Bereich verschieben, Formeln aber nicht
19.03.2013 12:27:35
Daniel
habe ein Problem bei dem ich leider nicht mehr weiter weiß. Habe bereits über VBA mir einen Button generiert, der mir eine Zeile löscht und den unteren Tabellenbereich eins hoch kopiert. Nun ist mein Problem, dass wenn er den Tabellenbereich hochverschiebt, auch alle Formeln mit verschiebt. D.h. das ich quasi ganz unten eine leere Zeile habe in der keine Formel steht.
Könnte man nicht irgendwie alle Formeln im kompletten Bereich schützen? Oder kann man nur das Formelergebnis verschieben, aber nicht die Formel an sich?
Vielleicht habt ihr eine Idee :-/ Wäre 1000 mal Dankbar!
Hier mal der Code der eine Zeile löscht und den unteren Bereich eine Zeile hoch verschiebt:
Private Sub CommandButton1_Click()
Dim Zelle As Range
For Each Zelle In Range("I5:P5")
If Not Zelle.HasFormula Then Zelle.ClearContents
Next Zelle
Dim aLetzte As Long
aLetzte = Sheets("Extruderplan").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Extruderplan").Range("I6:P16").Cut Destination:=Sheets("Extruderplan").Range("I5:P15")
End Sub