Löschen

Forumthread: Löschen
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Löschen

Löschen

13.03.2004 13:02:26

André L.

Hallo Forum,
ich möchte folgendes Makro so verändern,
das die 5. Zelle nicht gelöscht wird.
Wie muss der Code dafür aussehen??


Sub löschen()
Range(ActiveCell(), ActiveCell.Offset(0, 8)).Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Select
End Sub

Danke an das beste Excel-Forum
Gruss
AndréL.

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Löschen

13.03.2004 13:10:47

Ramses
AW: Löschen

13.03.2004 13:24:42

André L.
Merci :-) Geschlossen o.T.

13.03.2004 13:37:56

Ramses
AW: Löschen

13.03.2004 13:25:52

Florian Meyer
AW: Löschen

13.03.2004 13:35:13

André L.

AW: Löschen

13.03.2004 13:10:47

Ramses

Hallo
probier mal das


Sub löschen()
Range(ActiveCell, ActiveCell.Offset(0, 3)).ClearContents
Range(ActiveCell.Offset(0, 5), ActiveCell.Offset(0, 8)).ClearContents
ActiveCell.Offset(1, 0).Select
End Sub

Gruss Rainer

AW: Löschen

13.03.2004 13:24:42

André L.

Danke Rainer !!
Schönes Wochenende noch.
Gruss
AndréL.

Merci :-) Geschlossen o.T.

13.03.2004 13:37:56

Ramses

...

AW: Löschen

13.03.2004 13:25:52

Florian Meyer

Hallo, André!


Sub Loeschen()
Dim NichtLoeschen As Integer
Dim BisHierLoeschen As Integer
NichtLoeschen = 5
' Diese Zelle soll nicht gelöscht werden, relativ gemessen an der Cursorposition
BisHierLoeschen = 8
' Bis hierher sollen die Zellen gelöscht werden.
Range(ActiveCell(), ActiveCell.Offset(0, NichtLoeschen - 2)).ClearContents
Range(ActiveCell.Offset(0, NichtLoeschen), ActiveCell.Offset(0, BisHierLoeschen)).ClearContents
ActiveCell.Offset(1, 0).Select
End Sub

Gruß,
Florian