Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Zellen per Mausklick löschen





Frage

Wie kann man per Formel alle Einträge die keine Formel enthalten per Mauseingabe löschen? Ich erstelle eine Blankotabelle und möchte auf Befehl z.B "löschen alter Einträge" ein Tabellenblatt von alten Einträgen bereinigen um dann neue eingeben zu können ohne lästiges Löschen jeder einzelnen Zelle. Gibt es da eine Möglichkeit auch ohne VBA. Damit kenn ich mich überhaupt nicht aus. Ich möchte die Zellen die bereinigt werden, benennen können. Zellen die zum Beispiel schwarze oder rote Buchstaben oder Zahlen enthalten sollen nicht nicht werden können? Es soll also ein Formblattgerüst bestehen bleiben. Wer kann mir helfen?

Antwort 1 von CaroS

Hallo,

es gibt eine zuverlässige Möglichkeit, alle die Werte zu löschen, die wirklich weg sollen und sonst nichts. Die erste Zelle markieren, dann die Strg-Taste gedrückt halten und die restlichen markieren, dann die Entf-Taste drücken.

Da es sich vielleicht immer um dieselben Zellen handelt, könnte man die ganze Aktion als Makro aufzeichnen und bei Bedarf mit viel weniger Aufwand wiederholen, aber VBA willst Du ja nicht.

Außerdem gibt es noch die Möglichkeit, über Bearbeiten -- Gehe zu... -- Inhalte... - Inhalte auswählen: Konstanten -- OK alle Zellen mit Zahlen und/oder Text und/oder Wahrheitswerte und/oder Fehler zu markieren und anschließend deren Inhalte zu löschen. Aber da unterscheidet Excel weder zwischen "echten" Zahlen und Datumswerten noch zwischen rotem und schwarzen Text.

Mit andern Worten, was Du willst, ist mit Excel nicht möglich.

Gruß,
CaroS

Antwort 2 von kuestenjung06

verdammte Axt...

Wie krieg ich das denn mit nem Makro hin. Hab das noch nie gemacht. Es würde sich immer um die selben Zellen handeln. Sie sollen zum Beginn einer Formblattausfüllung bereinigt werden um keine Fehler oder Fehlinformationen zu hinterlassen.

Wer kann mir da Tips geben?ßß

Antwort 3 von Saarbauer

Hallo,

einfach das Makro aufzeichnen. Zu finden unter "Extras""Makro"" Aufzeichen"

Gruß

Helmut

P.S. Habe selbst lange an der Küste, etwas westlicher, gewohnt, aber die Begrüßung (verdammte Axt... ) ist mir noch nicht untergekommen.

Antwort 4 von Primut

Hi,

keine Ahnung, ob ich dich richtig verstanden habe, aber du möchtest einfach immer die Inhalte der gleichen Zellen löschen ohne die Zellen vorher alle markieren zu müssen?
Recht Einfach:
1. Per Makro-Recorder ein Makro generieren:
Unter Extras/Makro/ Aufzeichen einen Namen dafür festlegen und OK, anschließend mit Hilfe gedrückter Strg-Taste alle Zellen, deren Inhalte gelöscht werden sollen markieren und anschließend Entfernen (delete) drücken. Dann Makro-Aufzeichnung beenden (Stop-Quadrat anklicken).
Dieses Makro kannst du unter Alt+F8 unter entsprechendem Namen starten und es werden immer dieselben Zellinhalte gelöscht.

2. Per Liste Löschen

Du markierst alle Zellen, die gelöscht werden sollen und gibst ihnen einen Listen-Namen, indem du diesen Namen in das Namensfeld über der A-Spalte einträgst.
Wenn alle Felder markiert sind, kannst du per entfernen einfach alle gleichzeitig löschen. Markieren kannst du alle, indem du den entsprechenden Listen-Namen in das entsprechende Namensfeld einträgst., oder wie CaroS vorschlug, über Bearbeiten/Gehe zu / Listen-Name...
Von der Sache her ist die Makro-Version aber eleganter.

Gruß
    Prirmut


Antwort 5 von kuestenjung06

Danke für die schnelle Hilfe. Werd ich gleich mal ausprobieren. Werd das Makro mal in Angriff nehmen. Hört sich aber gut an..

Danke Danke..

Achso "verdammte Axt" ist auch mehr so gemeint
" komm ich ums Makro wohl nicht herum"
...Sch....ße...

Antwort 6 von coros

Hallo kuestenjung06,

nachfolgend mal ein Makro, dass alle Inhalte von Zellen, die keine Formeln enthalten löscht. Kopiere es in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche.

Option Explicit

Sub Zellinhalte_löschen()
Dim Zelle As Range
For Each Zelle In Range("A1:C5")
If Not Zelle.HasFormula Then
Range(Zelle.Address).ClearContents
End If
Next
End Sub

Du musst in dem Makro in der Zeile

For Each Zelle In Range("A1:C5")


noch den Bereich anpassen, in dem die Zelleninhalte gelöscht werden sollen.

Ich hoffe, Du kommst klar und Du hast das so gemeint. Bei Fragen melde Dich bitte.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: