Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Zellen löschen

Forumthread: Bestimmte Zellen löschen

Bestimmte Zellen löschen
06.02.2007 15:16:55
Frank
Guten Tag,
Ich möchte über einen Button Zellinhalte
die ich vorher markiert habe löschen.
Wie müsste der Code aussehen?
Über Hilfe würde ich mich sehr freuen
Gruss
Frank
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Selection.ClearContents
06.02.2007 15:21:01
haw
Gruß Heinz
AW: Selection.ClearContents
06.02.2007 15:33:51
Frank
Hallo Heinz,
vielen Dank für deine schnelle Hilfe.
Ein Problem hätte ich da noch.
Wenn ich z.B. die gesamte Zeile 206 markiere
möchte ich alle Inhalte löschen bis auf Spalte J.
Wäre dies möglich
Gruss
Frank
AW: Selection.ClearContents
06.02.2007 15:42:24
haw
Hallo Frank,
z.B. so:

Sub Löschen()
Dim a
a = Selection.Cells(10).Value
Selection.ClearContents
Selection.Cells(10).Value = a
End Sub

Zuerst merke ich mir den Wert aus der Spalte J (=10) in der Variablen a, lösche die ganze Zeile und setze den Wert in die Spalte J wieder ein. Du darfst allerdings nur eine Zeile markieren.
Gruß Heinz
Anzeige
AW: Selection.ClearContents
06.02.2007 15:57:51
Frank
Hallo Heinz,
funktioniert einwandfrei bis auf Zelle I206
da verschwindet die unten genannte Formel.
=LÄNGE(WECHSELN(F206;" ";""))*I206
Gruss
Frank
AW: Selection.ClearContents
06.02.2007 16:49:17
zu 

Sub Löschen()
Dim a
a = Selection.Cells(10).Formula
Selection.ClearContents
Selection.Cells(10).Formula = a
End Sub

Anzeige
AW: Selection.ClearContents
06.02.2007 17:01:02
Frank
Hallo ZU,
danke perfekt, könnte man diese Art der Selektierung noch beschränken das nur bis einschließlich Spalte M gelöscht wird.
Gruss
Frank
AW: Selection.ClearContents
06.02.2007 17:29:15
zu
Alles geht,

Sub Löschen()
Dim a, z As Long
z = Selection.Row
a = Selection.Cells(10).Formula
Range(Cells(z, 1), Cells(z, 13)).ClearContents
Selection.Cells(10).Formula = a
End Sub

mfg zu
Anzeige
AW: Selection.ClearContents
06.02.2007 17:37:58
Frank
Hallo Zu
wunderbar,
ich bedanke mich recht herzlich für deine Hilfe
und wünsche Dir noch einen schönen Abend.
Viele Grüsse
Frank
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige