Supportnet / Forum / Tabellenkalkulation

HALLO Wieder ein Problem (für mich) Habe mir folgendes Makro zusammengestellt. Sub ZELLENLÖSCHEN() ´ ´ ZELLENLÖSCHEN Makro ´ Makro am 02.11.2006 von Hans aufgezeichnet ´ ActiveSheet.Unprotect Selection.Delete Shift:=xlUp ActiveSheet.Protect End Sub Ich möchte dass ich nicht alle Zellen zuvor markieren muss, die ich Löschen will. Sondern nur die erste Zelle, dann sollen die nächsten 4 rechten Zellen mit gelöscht werden. Bei einem zweites Makro die nächsten 10 rechten Zellen. Mit freundlichen Grüßen yxc

Hallo Namensloser, oder Hans,

Option Explicit

Sub ZELLENLOESCHEN()
ActiveSheet.Unprotect
Range(ActiveCell, ActiveCell.Offset(0, 3)).Delete Shift:=xlUp
ActiveSheet.Protect
End Sub

Gruß Hajo

Hi,

vielelicht mit diesem Code

Sub ZELLENLÖSCHEN()
    ActiveSheet.Unprotect
    Union(Selection, Selection.Offset(0, 1), Selection.Offset(0, 2), Selection.Offset(0, 3)).Delete Shift:=xlUp
    ActiveSheet.Protect
End Sub

Bis später,
Karin

Hallo
Dank für Eure Mühe.

Hatt so funktioniert wie ich es mir dachte!


mfg

yxc

• Anmeldung immer mit Administrator
• winXP macht folgendes Problem mit CD ROM und Brenner.