Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige