Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1092to1096
1092to1096
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalt Zellen löschen wenn Bedingung erfüllt

Forumthread: Inhalt Zellen löschen wenn Bedingung erfüllt

Inhalt Zellen löschen wenn Bedingung erfüllt
Bene
Hey Leute,
nachdem ihr mir letzes Mal schon super schnell helfen konntet, hätt ich nochmal eine Frage an Euch.
Das Programm ist an sich denke ich kein großer Aufwand. Und zwar bin ich auf der Suche nach einem Makro, welches mir den INHALT (nicht die Zelle selbst) löscht, wenn in der Zelle "....." steht. Das eigentliche Problem ist, dass in den Zellen auch unterschiedlich viele Punkte stehen können.
Habts ihr da einen Vorschlag für mich?!
Danke Euch schon mal!
Anzeige
Rückfrage
06.08.2009 11:05:20
Wolli
Hallo Bene,
heißt das, Du hast ein Tabellenblatt mit vielen, vielen Zellen? Einige davon enthalten nur Punkte (mindestens wie viele?) und diese sollen gelöscht werden? Und Du musst die Aufgabe oft und regelmäßig ausführen?
Bitte werde etwas präziser.
Gruß, Wolli
AW: Inhalt Zellen löschen wenn Bedingung erfüllt
06.08.2009 11:16:16
Erich
Hi Vorname,
probier mal (löscht, wenn in der Zelle nur 1 bis 10 Punkte stehen): 

Option Explicit
Sub PunkteLoesch()
Dim rngBer As Range, rngC As Range, aStr(1 To 10), ii As Integer, rngL As Range
Set rngBer = Range("A:B")            ' Wirkungsbereich, anpassen
aStr(1) = "."
For ii = 2 To 10
aStr(ii) = aStr(ii - 1) & "."
Next ii
For Each rngC In Intersect(rngBer, ActiveSheet.UsedRange)
If IsNumeric(Application.Match(rngC.Value, aStr, 0)) Then
If rngL Is Nothing Then
Set rngL = rngC
Else
Set rngL = Union(rngL, rngC)
End If
End If
Next rngC
If Not rngL Is Nothing Then rngL.ClearContents
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Inhalt Zellen löschen wenn Bedingung erfüllt
06.08.2009 11:48:34
Bene
Danke Euch erst mal!
@Erich: Dein Makro funktioniert schon genau so wie ich mir das vorgestellt hatte. Allerdings (habs ausprobiert) werden nur bis zu zwei Punkte in einer Zelle gelöscht. Stehen mehr als zwei Punkte in einer Zelle, wird der Zellinhalt nicht gelöscht. Ich hab zwar rumprobiert, aber irgendwie nicht die richtige 'Stellschraube' in deinem Programm gefunden. Ist ja sicher nur ein Parameter, der zu ändern ist. Sorry, für meine Unwissenheit in VBA ;)
Ich hab auch mal noch meine Beispieltabelle angehängt!
https://www.herber.de/bbs/user/63658.xls
Hinweis: Die Daten aus den Fragebogen werden via einem anderen Makro importiert, deshalb sieht die Fromatierung etwas komisch aus.
Grüße
Anzeige
AW: die Punkte sind keine Punkte sondern 3-Punkte.
06.08.2009 12:08:43
Daniel
Hi
deine "Punkte" sind keine Punkte, sondern das Zeichen mit dem ASCII-Code 133 "…", nämlich 3 Punkte
normale Punkte "." haben den ASCII-Code 46
daß ist der Punkt, in dem du in deinem Makro drehen musst.
so wie diese Zeichen verwendet werden, würde ich sie einfach mit BEARBEITEN - ERSETZEN, bzw im Makro mit
Cells.Replace Chr(133), "" entfernen und für die normalen Punkte halt Cells.Replace ".", ""
Gruß, Daniel
Anzeige
AW: 3-Punkte gehen nicht...
06.08.2009 12:24:10
robert
hi,
ich habs ausprobiert mit 1+2 ..
gehts
mit 3 ...
gehts nicht ?
gruß
robert
AW: 3-Punkte gehen nicht...
06.08.2009 12:29:29
Daniel
Hallo
das ist ein anderes Zeichen !!!!! nicht der gewöhnliche Punkt !
Kopier dir mal aus einer Zeile, in der das Makro nicht funktioniert EIN Zeichen raus in eine andere Zelle.
oder versuch mal, von den 3 Punkten in meinem Beispiel eines zu selektien.
ich hoffe, dann verstehst du, worum es geht.
Gruß, Daniel
Anzeige
sorry-geht nicht...
06.08.2009 12:54:38
robert
hi Daniel,
ich habe es in einem blatt ausprobiert
mit dem punkt auf der tastatur -gewöhnlicher Punt unter dem doppelpunkt .
bsi zu 2 punkte geht es - warum nicht mit 3 ?
gruß
robert
AW: sorry-geht nicht...
06.08.2009 13:16:15
Daniel
Nochmal, ganz langsam für dich:
ich hab mir Erichs Makro nicht angeschaut, aber:
die meisten Punkte in deiner Beispieldatei sind nicht die Punkte, die du auf der Tastatur findest, SONDERN EIN ANDERES ZEICHEN.
Du darfst also nicht nur den "Tastatur-Punkt" verwenden, sondern eben dieses Zeichen.
hier nochmal beide Zeichen gebenübergestellt, in einer nicht-Proprotionalen Schrift, damit du siehst, daß es wirklich ein Zeichen ist: 
"." - ASCII-Code 46
"…" - ASCII-Code 133

dh du musst im Makro nicht das Zeichen "." verwenden, sondern das Zeichen "…".
und wie du das am besten wegbekommst, hab ich dir schon erklärt.
so, daß wars jetzt zum 3. und letzten mal.
Gruß, Daniel
Anzeige
@Daniel.. bitte...
06.08.2009 13:26:01
robert
hi,
ich habe keine beispieldatei hochgeladen :-)
ich habe doch geschrieben, was ich gemacht habe.....
..über die tastatur 1 oder 2 punkte eingeben-makro geht, punkte werden gelöscht
3 punkte eingeben-es wird nichts gelöscht
sorry wenn ich dich nerve, aber ich finde den punkt im makro nicht, warum
es bei dere und mehr punkten nicht geht
gruß
robert
Anzeige
was Daniel meint ist
06.08.2009 13:38:19
MichaV
...Du kannst die drei Punkte nicht einfach so eingeben, denn es ist nur ein Zeichen, nicht 3 einzelne Punkte. Und solange Du keine Taste mit 3 Punkten hast, musst Du einen Umweg gehen.
Drück Alt+0133 auf dem Ziffernblock (NumLock muss aktiviert sein)
http://de.wikipedia.org/wiki/...#Tastatur
Gruß- Micha
Anzeige
Danke Micha,Erich hat mir den Weg gezeigt..oT
06.08.2009 17:47:07
robert
AW: @Daniel.. bitte...
06.08.2009 13:41:14
Daniel
Hi
meine Antwort bezieht sich auf die Beispieldatei in diesem Beitrag:
https://www.herber.de/forum/messages/1094003.html
wenn du was anderes hast, solltest du selber deine Beispieldatei mit deinem bisherigen Makro hochladen und auch darauf hinweisen, daß es um ein anderes Problem geht.
und wenn es um das Makro geht, daß du verwendest, es ist von Erich, nicht von mir.
Gruß, Daniel
Anzeige
AW: @Daniel.. bitte...
06.08.2009 13:47:11
Bene
Hi Daniel,
Ich habe deine Vorgehensweise jetzt verstanden und es funktioniert einwandfrei auf mein Beispiel!!!
Sub Punkte_ersetzen()
Cells.Replace Chr(133), ""
Cells.Replace ".", ""
End Sub
Perfekt, danke dir und selbstverständlich auch allen anderen!!!
Super Forum ;)
Gruß, Bene
Anzeige
Danke Daniel,hier die Datei....
06.08.2009 13:52:36
robert
hi,
das makro ist von erich, stimmt, aber könntest du nun einen blick
darauf werfen, warum nur bis zu 2 punkte gelöscht werden-ich finde es nicht :-( ?
danke und
gruß
robert
https://www.herber.de/bbs/user/63668.xls
AW: Danke Daniel,hier die Datei....
06.08.2009 14:23:44
Daniel
sorry, ich hab alles gesagt, was ich dazu sagen kann.
schau dir einfach mal jedes einzelne Zeichen, daß nach Punkt aussieht, in deiner Beispieldatei genau an und vergleiche das mit dem Makro, dann wirst du die Ursache schon finden.
Für Bene als den ursprünglichen Fragesteller ist das Problem ja gelöst.
Gruß, Daniel
Anzeige
Na dann nicht-auch gut
06.08.2009 14:41:40
robert
AW: Es tut mir wirklich leid
06.08.2009 15:29:39
Daniel
aber das Problem, warum das Makro bei deiner Beispieldatei nicht funktioniert, hat die gleichen Ursachen wie in Benes Beispspiel: ES SIND UNTERSCHIEDLICHE ZEICHEN.
aber das habe ich schon mehrfach zu erklären versucht.
wenn du das nicht kapierst, kann ich auch nicht helfen, Bene hat meine Erklärungen verstanden.
Gruß, Daniel
Anzeige
du kannst sagen was du willst, aber..
06.08.2009 16:17:35
robert
es sind NORMALE PUNKTE
dass es auch andere wege gibt, ist mir bewusst, aber du nimmst dir ja nicht die mühe das zu lesen was man dir schreibt-ich gebe ..... ein, sonst nichts
und jetzt schluss
gruß
robert
es WAREN normale Punkte, SIND aber nicht
06.08.2009 16:36:31
Erich
Hi Robert,
WAREN bedeutet: Du hast drei einzelne Punkt eingegeben.
Aber es SIND keine normalen Punkte - denn du hast bei den AutoKorrektur-Optionen
bei "Während der Eingabe ersetzen" einen Haken stehen.
In der darunter stehenden Liste findest du sicher auch die drei Punkte...
Das führt dazu, dass drei eingegebene Punkte automatisch durch ein Zeichen Chr(133) ersetzt werden.
Hier beide Varianten - mal mit, mal ohne Ersetzung:
Tabelle1
 ABC
1  1. Zeichen istAnzahl Zeichen
2...463
3…1331

verwendete Formeln
Zelle Formel
B2 =CODE(A2)
C2 =LÄNGE(A2)
B3 =CODE(A3)
C3 =LÄNGE(A3)

Tabellendarstellung in Foren Version 4.11

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
Danke Erich, aber..
06.08.2009 16:54:58
robert
hi,
wie müsste dann dein makro aussehen, dass es funktioniert ?
oder muss ich nur den haken wegnehmen ?
gruß
robert
AW: Danke Erich,Haken raus ;-) owT
06.08.2009 17:02:03
robert
AW: du kannst sagen was du willst, aber..
07.08.2009 00:39:31
Daniel
Sorry in deiner Beispieldatei, die du hochgeladen hast,. sind es aber NICHT normale Punkte (ASCII-CODE 46), sondern eben eine Mischung aus normalen Punkten und den 3er-Punkten, dh das Zeichen mit dem ASCII-Code 133.
Da ich mittlerweile schon ein wenig länger hier im Forum aktiv bin, hat mich halt die Erfahrung gelehrt, daß im Regelfall die Beispieldatei immer die besser Informationsquelle ist als die Beschreibung des Fragestellers,
Dh. wenn ich mich auf die Beispieldatei konzenriere, gelingt es mir in den meisten Fällen eine für den Fragesteller zufriedenstellendere Antwort zu finden, als wenn ich nur auf die Problembeschreibung achte.
Das liegt IMHO daran, daß sich allein mit Worten nicht alle Einflussfaktoren ausreichend beschreiben lassen, die aber in der Beispieldatei normalerweise sofort ersichtlich sind.
Daher hat für mich die Beispieldatei immer Priorität vor irgendwelchen Anmerkungen des Fragestellers.
Klar, die lese und beachte ich zwar auch, aber wenn die Beschreibung von der Beispeildatei abweicht, dann gilt für mich, was in der Beispieldatei steht.
so ist nun mal, Erfahrung aus mehren Jahren aktivität im Forum.
Gruß, Danile
Anzeige
@Daniel zur Abrundung..
07.08.2009 06:44:35
robert
hi Daniel,
das ganze hat so begonnen:
ben will, dass die punkte gelöscht werden, erich schreibt ein makro-ok
im beitext schreibt erich , dass dieses von 1 bis 10 punkte löscht-ok
daraufhin habe ich es probiert und habe 1 bis 10 punkte eingegeben-ok
jetzt muss ich aber zugeben :-) dass ich nicht !!! wusste, dass excel ab 3 punkten
das nicht als 3 punkte sieht, wie der, der vor dem computer sitzt
deshalb war ich so erstaunt, dass du sagst, ich habe keine punkte eingegeben
aber letzendlich hat sich alles aufgeklärt, danke für deine geduld und bitte dich um entschuldigung
und hoffe, dass wir uns wieder ungetrübt im forum begenen können.
gruß
robert
Anzeige
AW: @Daniel zur Abrundung..
07.08.2009 11:19:44
Daniel
HI Robert
kein Problem, schließlich hab ich bei der Diskussion auch was dazugelernt.
nach dem ich jetzt verstanden habe wie die Punkte zustande kommen, kann ich auch Erichs Makro entsprechen anpassen, daß es unabhängig von der Autokorrektur funktioniert.
Sub PunkteLoesch()
Dim rngBer As Range, rngC As Range, rngL As Range
Dim i As Long, ii As Long
Dim aStr(23)
Set rngBer = Range("A:B")            ' Wirkungsbereich, anpassen
For i = 0 To 3
For ii = 0 To 2
aStr((i * 3 + ii) * 2) = WorksheetFunction.Rept("…", i) & WorksheetFunction.Rept(" _
.", ii)
aStr((i * 3 + ii) * 2 + 1) = WorksheetFunction.Rept(".", i * 3 + ii)
Next ii
Next i
For Each rngC In Intersect(rngBer, ActiveSheet.UsedRange).SpecialCells(xlCellTypeConstants,  _
2)
If IsNumeric(Application.Match(rngC.Value, aStr, 0)) Then
If rngL Is Nothing Then
Set rngL = rngC
Else
Set rngL = Union(rngL, rngC)
End If
End If
Next rngC
If Not rngL Is Nothing Then rngL.ClearContents
End Sub
Gruß, Daniel
Anzeige
DANKE Daniel-funkt ;-) owT
07.08.2009 12:38:04
robert
kürzere Variante
07.08.2009 12:59:04
Erich
Hi Daniel,
an einigen Stellen konnte ich das noch vereinfachen/kürzen: 

Option Explicit
Sub PunkteLoeschN()
Dim rngBer As Range, rngC As Range, rngL As Range, aStr(1 To 18) As String
Dim ii As Long, jj As Long
Set rngBer = Range("A:B")            ' Wirkungsbereich, anpassen
aStr(1) = "."
For ii = 2 To 10
aStr(ii) = aStr(ii - 1) & "."
Next ii
For ii = 0 To 2
For jj = 0 To 2
aStr(10 + 3 * ii + jj) = String(ii + 1, "…") & String(jj, ".")
Next jj
Next ii
For Each rngC In Intersect(rngBer, ActiveSheet.UsedRange) _
.SpecialCells(xlCellTypeConstants, 2)
If IsNumeric(Application.Match(rngC.Value, aStr, 0)) Then
If rngL Is Nothing Then
Set rngL = rngC
Else
Set rngL = Union(rngL, rngC)
End If
End If
Next rngC
If Not rngL Is Nothing Then rngL.ClearContents
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
Mit Autofilter
06.08.2009 11:36:48
Daniel
Hi
kannst du die Zellen nicht einfach mit dem Autofilter filtern?
als bedingung "enthält" und dann soviele Punkte einfügen wie mindestens vorkommen, also z.B. "....."?
dann kannst du ja die sichtbaren einfach löschen.
falls du es als Makro brauchst, nimm den Recorder.
Gruß, Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Automatisches kopieren wenn Bedingung erfüllt
Christian

Hallo,
das Forum ist mir empfohlen worden. Also erstmal "Hallo" und vielen Dank für Antworten im Voraus.
Ich möchte meine Umsatztabelle anpassen. Im ersten Tabellenblatt sind Daten enthalten wie Auftragsnummer, Monat, Kundenname, Gerät, Vk-Preis, Land...
Nun möchte ich für jedes Ger...
23.12.2010 13:07:26
Thread-ID: 1192626
2 Beiträge
wenn Bedingung erfüllt, String in Grossbuchst umw.
Peter

Guten Abend
Ich möchte mit
Privat Sub Workbook_SheetChange(ByVal Sh as Object, ByVal Target as Range)
Eingaben prüfen und wenn gewisse Bedingungen erfüllt sind, diese in Grossbuchstaben umwandeln (UCASE).
Bedingungen:
Sh: Tabellenname darf nur aus Zahlen bestehen, z.b. "0000...
27.01.2011 20:43:03
Thread-ID: 1197702
11 Beiträge
Anzeige
Auslesen von Werten wenn Bedingungen erfüllt sind
Werten

Hallo Leute,
ich möchte gern in der Tabelle 3 alle Ziffern die mit 5 anfangen in einer Spalte untereinander anzeigen lassen, wenn folgende Bedingungen erfüllt sind: 1. in der Tabelle 1 (rot) muss in einer der drei Kategorien entw. eine 1 oder 2 stehen und die Ziffer muss mit 5 anfangen.
...
23.03.2011 21:23:17
Thread-ID: 1207240
3 Beiträge
Anzeige
Zellen zählen, wenn zwei Bedingungen erfüllt sind
MB

Hallo zusammen,
ich möchte eine Matrix aufstellen, mit der ich verschiedenen Mitarbeitern verschiedene Ereignisse zuschlüsseln kann.
In Tabelle 1 steht in Zeilen der Name und auch das Ereignis. Der Mitarbeiter kann mehrmals vorkommen und auch die Ereignisse können unterschiedlich sein:<...
03.05.2011 19:03:16
Thread-ID: 1212923
4 Beiträge
Anzeige
X wenn Bedingung von Auswahlliste erfüllt ist
Auswahlliste

Hallo,
Ich habe ein Problem. Und zwar geht es um folgendes. Ich muss eine Tabelle erstellen bei der je nach meiner Auswahl in Meiner Auswahlliste ein X stehen soll.
Wenn ich zum Beispiel aus meiner Auswahl das A anklicke dann soll in der Tabelle unten drunter, wo die verschiedenen Mögli...
12.05.2011 11:03:17
Thread-ID: 1214134
7 Beiträge
Zelleintrag nur wenn Bedingung erfüllt
Dietmar

Hallo in die Runde,
kann mir jemand sagen, wie nachfolgenden Code anpassen muss, so dass zusätzlich in Spalte
C2:C10 Werte nach Eintrag wieder gelöscht werden, wenn in Spaltenbereich A2_A10 in der entsprechenden Zeile ein "E" oder nichts steht.
Eine Msgbox mit der entsprechedhenden...
29.07.2011 13:56:57
Thread-ID: 1224155
3 Beiträge
Serienmail wenn Bedingung erfüllt ist
Dietmar

Guten Abend in die Runde,
leider bin ich bisher nicht fündig geworden.
Gibt es eine Möglichkeit aus einer Exceldatei eine Serienmail in Outlook zu generieren, wenn eine Bedingung erfüllt ist.
Die Mail soll nicht automatisch abgeschickt werden, weil ich sie textlich noch ergänzen möc...
02.01.2012 01:19:16
Thread-ID: 1244177
10 Beiträge
Anzeige
In Zielzelle kopieren wenn Bedingung erfüllt
Heiner

Hallo zusammen,
ich möchte gerne Werte aus einer Tabelle in eine andere kopieren unter folgenden Voraussetzungen:
Ausgangstabelle enthält folgende spalten
artikel, menge, woche, kopieren
Zieltabelle enthält folgende spalten:
artikel, woche 1, woche 2, ....
Es sollen per...
28.02.2012 00:21:55
Thread-ID: 1252724
10 Beiträge
Summe, wenn 2 Bedingungen erfüllt sind
Onneraibe

Hallo,
möchte die Summe aus einer Spalte bilden, wenn 2 Spalten davor (die beiden Spalten stehen nicht unmittelbar nacheinander) ein Kriterium erfüllen:
z.B. möchte ich die Summe aus Spalte M angezeigt bekommen, wenn: in Spalte A "Hans" & in Spalte E "Peter" steht...
Gruß
...
06.09.2012 14:54:42
Thread-ID: 1277655
10 Beiträge
Wenn Bedingung erfüllt, dann Zeile kopieren
mike

Hallo,
ich bräuchte ein VBA Macro, dass mir automatisch und sofort nach einer Eingabe folgendes macht:
In Tabelle 1 stehen in Spate C5:C100 Positionsnamen (Achtung es kann auch sein, dass in Zelle C5, C6 was steht und dann in C7 nichts aber dann in C8 wieder was steht) also mit Lücken!<...
21.03.2013 20:41:03
Thread-ID: 1305386
2 Beiträge
Zeilen aus Range löschen, wenn Bedingung erfüllt
Peter

Guten Tag
Mit untenstehendem Code lösche ich gewisse Zeilen, wenn diese in einmem String auf der gleichen Zeile eine bestimmte Bedingung erfüllen.
Das funktioniert so lange, bis die Bedingung auf der zweitletzten Zeile und der letzten Zeile zutrifft. Dann wird die letzte Zeile nicht gel...
04.06.2013 12:06:44
Thread-ID: 1316229
4 Beiträge
VBA Zeilen verschieben wenn Bedingungen erfüllt
Jochen

Hallo zusammen,
ich habe hier ein Problem bei dem ich absolut nicht weiterkomme.
Ich habe eine Projektübersicht (Tabelle1) in Excel. Nun würde ich gerne wenn ein Projekt abgeschlossen ist, dieses komplett in ein Archivtabellenblatt (Tabelle2)verschieben.
In Spalte B habe ich die Pro...
05.07.2013 08:50:01
Thread-ID: 1321225
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zelleninhalt in Excel löschen, wenn eine Bedingung erfüllt ist

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und lade die Tabelle, in der Du den Inhalt bestimmter Zellen löschen möchtest.

  2. Aktiviere den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsx)“ und wähle „Einfügen“ > „Modul“.

  4. Kopiere den folgenden VBA-Code in das Modul:

    Option Explicit
Sub PunkteLoesch()
   Dim rngBer As Range, rngC As Range, rngL As Range
   Dim i As Long, ii As Long
   Dim aStr(23)
   Set rngBer = Range("A:B") ' Wirkungsbereich anpassen
   For i = 0 To 3
       For ii = 0 To 2
           aStr((i * 3 + ii) * 2) = WorksheetFunction.Rept("…", i) & WorksheetFunction.Rept(".", ii)
           aStr((i * 3 + ii) * 2 + 1) = WorksheetFunction.Rept(".", i * 3 + ii)
       Next ii
   Next i
   For Each rngC In Intersect(rngBer, ActiveSheet.UsedRange).SpecialCells(xlCellTypeConstants, 2)
       If IsNumeric(Application.Match(rngC.Value, aStr, 0)) Then
           If rngL Is Nothing Then
               Set rngL = rngC
           Else
               Set rngL = Union(rngL, rngC)
           End If
       End If
   Next rngC
   If Not rngL Is Nothing Then rngL.ClearContents
End Sub

  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Führe das Makro aus:

    • Drücke ALT + F8, wähle „PunkteLoesch“ aus und klicke auf „Ausführen“.

Damit wird der Inhalt der Zellen in dem angegebenen Bereich gelöscht, wenn die Zellen die Bedingung erfüllen.

Häufige Fehler und Lösungen

  • Problem: Das Makro löscht nicht alle Punkte.

    • Lösung: Stelle sicher, dass Du das richtige Zeichen verwendest. Bei drei Punkten handelt es sich um das Zeichen mit dem ASCII-Code 133 ("…"). Verwende Cells.Replace Chr(133), "" im Makro, um dieses Zeichen zu entfernen.

  • Problem: Das Makro findet die Zellen nicht.

    • Lösung: Überprüfe den Wirkungsbereich (Set rngBer = Range("A:B")) und stelle sicher, dass die Zellen in diesem Bereich liegen.

Alternative Methoden

  • Autofilter verwenden:

    • Du kannst die Zellen auch mit dem Autofilter filtern. Setze die Bedingung auf „enthält“ und füge die entsprechenden Punkte ein. Markiere die sichtbaren Zellen und lösche sie.

  • Bearbeiten -> Ersetzen:

    • Eine manuelle Methode ist, den Befehl „Bearbeiten -> Ersetzen“ zu nutzen, um alle Punkte durch nichts zu ersetzen.

Praktische Beispiele

  1. Beispiel für ein Makro, das auch andere Zeichen berücksichtigt:

    Sub Punkte_ersetzen()
   Cells.Replace Chr(133), ""
   Cells.Replace ".", ""
End Sub

    Dieses Makro entfernt sowohl die drei Punkte als auch die normalen Punkte.

  2. Beispiel für das Löschen einer ganzen Zeile:

    Sub ZeileLoesch()
   Dim rng As Range
   For Each rng In Range("A1:A10")
       If rng.Value = "Bedingung" Then
           rng.EntireRow.Delete
       End If
   Next rng
End Sub

    Hier wird die gesamte Zeile gelöscht, wenn eine Zelle die Bedingung erfüllt.

Tipps für Profis

  • Nutze die Möglichkeit, mehrere Bedingungen in Deinem Makro zu kombinieren, um komplexere Anforderungen zu erfüllen.
  • Speichere regelmäßig Sicherungskopien Deiner Datei, bevor Du Makros ausführst, um Datenverluste zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich den Inhalt in bestimmten Spalten löschen? Du kannst den Bereich im Makro anpassen, z. B. Set rngBer = Range("C:D"), um nur die Spalten C und D zu betreffen.

2. Funktioniert das Makro in allen Excel-Versionen? Ja, das Makro sollte in den meisten modernen Excel-Versionen (2010 und höher) funktionieren, solange die VBA-Funktionalität aktiviert ist.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige