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

Zelleninhalt löschen, wenn Bedingung erfüllt

Forumthread: Zelleninhalt löschen, wenn Bedingung erfüllt

Zelleninhalt löschen, wenn Bedingung erfüllt
06.08.2018 13:42:40
Isabel
Hallo Zusammen,
ich habe ein kleines Problem und hoffe, dass mir jemand helfen kann. Meine VBA Kenntnisse sind leider noch sehr begrenzt.
Hier findet ihr erstmal meine Besipiel-Datei:
https://www.herber.de/bbs/user/123161.xls
Diese Informationen bekomme ich in etwa so von meiner Datenbank ausgegeben (diese wird dann mithilfe von Markos soweit aufgearbeitet, wie ihr sie jetzt seht).
Im Prinzip ist es nur eine kleine optische Sache, wenn es also nicht klappt, geht die Welt auch nicht unter.
Es geht um Spalte J. Wie man sieht, sind die Zelleninhalte je "Auftrag" gleich. Am besten wäre es, wenn ich nur in der letzten Zeile über dem Rahmen die Information stehen habe.
Ich hatte mir überlegt, dass man es ja einfach von Spalte A abhängig machen kann unter zu Hilfenahme der Leerzeilen.
Quasi: wenn in Spalte A die Zeile x+1 nicht leer ist, dann lösche Zelleninhalt in Spalte J, sonst ignorieren und weiterprüfen bis zum Ende.
Nur hilft mir hierbei der Makro-Recorder logischerweise auch nicht wirklich weiter und nach langem Suchen habe ich auch nichts gefunden, mit dem ich was anfangen könnte.
Ich bedanke mich schonmal im Voraus für alle Hinweise.
mit freundlichen Grüßen
Isabel
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalt löschen, wenn Bedingung erfüllt
06.08.2018 14:10:03
Daniel
HI
würde ich so lösen:
1. in einer Hilfsspalte am Tabellenende in Zelle L2 die Formel eintragen und bis zum Ende runter ziehen:
=Wenn(J3="";J2&"";"")
2. diese Formel dann kopieren und in Spalte J als Wert eintragen.
als Makro dann genau das gleiche: 

With Range("L2:L" & Cells(Rows.count, 10).end(xlup).row)
.FormulaLocal = "=WENN(J3="""";J2;"""")"
.Copy
.Range("L2").PasteSpecial xlpastevalues
.ClearContents
End with
Gruß Daniel
Anzeige
AW: Zelleninhalt löschen, wenn Bedingung erfüllt
06.08.2018 14:25:00
Isabel
Hallo Daniel,
Danke für den Hinweis. Allerdings schreibt er die Werte in Spalte W? Und sie sollen nicht in der Zeile mit dem Gesamtpreis stehen, sondern eine Zeile darüber.
Gruß
Isabel
AW: Zelleninhalt löschen, wenn Bedingung erfüllt
06.08.2018 14:32:19
Daniel
HI
sorry, Fehler von mir.
mach aus dem .Range("L2") ein Range("J2") (kein Punkt vor dem Range), dann sollte es gehen
Gruß Daniel
Anzeige
AW: Zelleninhalt löschen, wenn Bedingung erfüllt
06.08.2018 14:40:33
Isabel
Hallo,
Vielen, vielen Dank!!! Das funktioniert wunderbar. Du bist echt klasse.
Gruß
Isabel
AW: Zelleninhalt löschen, wenn Bedingung erfüllt
06.08.2018 14:12:35
JoWE
Hallo Isabel,
weiß nicht ob ich Dich richtig verstehe,
wenn Du den Eintrag in Spalte J jeweils nur rechts neben dem Gesamtpreis benötigst, dann vllt. so:
Sub versuch()
Dim a As String
Dim i As Long
ze = Sheets("A_Sammelrechnung").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ze
If Cells(i, 9) = "" Then
a = Cells(i, 10)
Cells(i, 10) = ""
Else
Cells(i, 10).NumberFormat = "@"
Cells(i, 10) = a
End If
Next
End Sub

Gruß
Jochen
Anzeige
AW: Zelleninhalt löschen, wenn Bedingung erfüllt
06.08.2018 14:23:17
Isabel
Hallo Jochen,
vielen Dank, das sieht funktioniert schonmal sehr gut. Eine kleine Sache ist nur, dass der Wert, der stehen bleiben soll nicht neben dem Gesamtpreis sein soll, sondern genau eine Zeile darüber (in Spalte J). (Meine erklärung war wirklich nicht eindeutig).
Bei deinem Lösungsvorschlag sehe ich jetzt leider nicht, wo ich das ändern muss.
Gruß
Isabel
Anzeige
AW: Zelleninhalt löschen, wenn Bedingung erfüllt
06.08.2018 14:47:45
JoWE
aahhh! Dann so: 
Sub versuch()
Dim a As String
Dim i As Long
ze = Sheets("A_Sammelrechnung").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ze
If Cells(i, 9) = "" Then
a = Cells(i, 10)
Cells(i, 10) = ""
Else
Cells(i - 1, 10).NumberFormat = "@"
Cells(i - 1, 10) = a
End If
Next
End Sub

Gruß
Jochen
Anzeige
AW: Zelleninhalt löschen, wenn Bedingung erfüllt
06.08.2018 14:57:33
Isabel
Hallo,
jaa, danke!! Das funktioniert super!!
Gruß
Isabel
Danke für die Rückmeldung
06.08.2018 15:06:48
JoWE
AW: Zelleninhalt löschen, wenn Bedingung erfüllt
06.08.2018 15:11:24
Daniel
Hi
hier nochmal eine andere Makro-Variante:
Sub test()
Dim AR As Range
For Each AR In Range("J2:J" & Cells(Rows.Count, 10).End(xlUp).Row).SpecialCells( _
xlCellTypeConstants).Areas
If AR.Rows.Count > 1 Then AR.Resize(AR.Rows.Count - 1).ClearContents
Next
End Sub
Gruß Daniel
Anzeige
! Prima Lösung !
06.08.2018 15:16:21
JoWE
Danke für die Rückmeldung!
06.08.2018 15:22:16
Daniel
Gruß Daniel

Forumthreads zu verwandten Themen

Wenn Zeile doppelt dann löschen
walli

Guten Morgen,
ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
löschen.
Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
es soll dann die doppelte Zeile nur von A-M gelöscht werden.
mfg walli
24.06.2009 11:29:15
Thread-ID: 1084058
5 Beiträge
Wenn 0 dann löschen
Ralf

Hallo und eien schönen 4 adv.
ich habe da mal ein anliegen und zwar habe ich eine Formel z.B in F 17
=E17-(B161)*RegelMoDo-(B16=6)*RegelFr
Kann man die auch noch so ummodelieren, dass wenn in D 17 = 0 Dann inhalt in E und F 17 löschen also das die Zellen leer sind
20.12.2009 11:39:13
Thread-ID: 1125105
12 Beiträge
Wenn Zirkelbezug Dann Formel löschen | Herbers Excel-Forum
Heinz H
Schönen Tag im Forum
In einer Tabelle kann es durch einen VBA Code in C3:L35 (dort werden Formel eingetragen) zu einem Zirkelbezug kommen.
Ist es möglich mittels VBA Wenn Zb.in E10 ein Zirkelbezug auftritt, diese Einträge in C10:L15 zu löschen ?
Range("C10:L10").EntireRow.ClearContents<...
12.01.2010 10:48:03
Thread-ID: 1129094
4 Beiträge
Zelle FETT markieren, wenn bestimmter Inhalt | Herbers Excel-Forum
Stef@n
Hallo Excel-Friends,
nochmal eine kurze Frage:
Wenn in einer Zelle mit einem längeren Text ein bestimmter Inhalt enthalten ist (z.b. ein bestimmter Text)
soll die jeweilige Zelle FETT markiert werden -- oder farblich markierter Zellhintergrund
also wenn der Text "Beispiel" enth...
03.02.2010 15:25:44
Thread-ID: 1135461
5 Beiträge
Wenn in Zelle P Inhalt dann schreibe in Zelle X
Viktoria

Hallo Leute,
hab ne doofe Frage:
Also Ich hab in Zelle P einen Inhalt dann möchte ich, das mir das Makro den Inhalt überprüft, und anhand des Inhaltes in eine Zelle einen String setzt den ich vorgebe.
Bei meinem Lösungsweg ist das Problem, das das Makro komischerweise nicht am Ende...
13.04.2010 09:14:04
Thread-ID: 1151360
6 Beiträge
multiple "wenn-dann"-funktionen in EINER zelle
RoB

Hallo Leute,
ich möchte anhand einer nutzwertanalyse kriterien gegenüberstellen und auswerten.
ich möchte, dass excel mir ein der einen hälfte der tabelle die entsprechenden werte automatisch ausfüllt, je nachdem welchen wert ich auf der anderen hälfte eingegeben habe. es sind allerding...
07.05.2010 15:47:47
Thread-ID: 1156124
3 Beiträge
Zellen löschen wenn Nachbarzelle belegt
Bernhard

Hallo zusammen,
ich probiere hier schon den ganzen Tag an meinem Problem:
Ich habe eine Tabelle in der sollen drei Spalten "live" angepasst werden.
In Spalte A oder B werden bei Bedarf Werte eingegeben.
In der Spalte C soll soll der Wert aus der Zeile gelöscht werden wenn in A o...
15.12.2010 15:16:44
Thread-ID: 1191614
2 Beiträge
Zeile löschen wenn bestimmter Wert
Simon

Hallo zusammen,
ich weiß es gibt schon Einträge zu dem Thema, aber ich bekomms einfach nicht hin.
Ich habe eine Datei, die 40000 x-y-z Koordinaten enhält (x in Spalte A, y in Spalte B und z in Spalte C)
Jetzt möchte ich alle Zeilen löschen die einen bestimmten y-Wert haben (Beispiel...
21.02.2011 11:08:18
Thread-ID: 1202039
3 Beiträge
Zellen verknüpfen wenn bestimmter Wert
Olly

Hallo Leute,

ich möchte wenn z.B. in Tabelle1 in Zelle A1 eine Name oder Zahl/Kundennummer steht in Bezug darauf aus Tabelle2/Adressdatei die dazugehörige Adresse in Tabelle 3 in den Zellen A2, B2 und C2 erscheinen lassen. Wie muß ich vorgehen?
Danke für Eure Hilfe
Oli
25.05.2002 19:31:23
Thread-ID: 123700
7 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
Wenn Zelle leer dann rechte Zelle
Eva-Maria

Hallo ihr Spezialisten,
Ich habe da mal eine Frage.
Gibt es eine Formel für folgende Ausgangslage:
Wenn in Tabelle2 ein Datum von C3 bis P3 steht das mit Tabelle1 C4 überein stimmt dann soll in der Tabelle1 ZelleA7 eine Zahl erscheinen die in Tabelle2 C3 steht. Wenn P3 erreicht ist...
08.05.2011 23:34:16
Thread-ID: 1213567
6 Beiträge
Wenn dann Zellenformatierung Währung
rene

Hallo zusammen
Hoffe ihr könnt mir weiter helfen
aus einer Tabelle Master ,habe ich eine Pivot Tabelle erstellt Tabelle 2 ,die Master Tabelle hat in A1 einen Wert 100 und in B2 wird in Abhängigkeit von C3 eine Währung eingefügt USD,EUR,CZK u.s.w
Frage :
Wie können nun die Fe...
27.05.2011 19:56:40
Thread-ID: 1216047
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zelleninhalt löschen, wenn Bedingung erfüllt

Schritt-für-Schritt-Anleitung

Um den Zelleninhalt in Excel zu löschen, wenn eine bestimmte Bedingung erfüllt ist, kannst Du die folgenden Schritte ausführen:

  1. Hilfsspalte einfügen
    Füge eine Hilfsspalte am Ende Deiner Tabelle hinzu, z.B. in Spalte L.

  2. Formel eingeben
    Trage in der Zelle L2 folgende Formel ein:

    =WENN(J3="";J2;"")

    Ziehe die Formel bis zum Ende der Spalte nach unten.

  3. Werte kopieren
    Kopiere die Ergebnisse aus Spalte L und füge sie als Werte in Spalte J ein.

  4. Inhalt löschen
    Um die Zellen in Spalte J zu leeren, kannst Du ein VBA-Makro verwenden:

    With Range("L2:L" & Cells(Rows.Count, 10).End(xlUp).Row)
   .FormulaLocal = "=WENN(J3="""";J2;"""")"
   .Copy
   .Range("J2").PasteSpecial xlPasteValues
   .ClearContents
End With

Häufige Fehler und Lösungen

Fehler 1: Die Werte erscheinen in der falschen Spalte.
Lösung: Stelle sicher, dass Du die Range korrekt angibst (Range("J2") statt Range("L2")).

Fehler 2: Das Makro funktioniert nicht.
Lösung: Überprüfe, ob die Makros in Excel aktiviert sind und dass Du die richtige Tabelle bearbeitest.

Alternative Methoden

  • Excel Formel: Du kannst auch die Funktion =WENN() verwenden, um den Zelleninhalt basierend auf Bedingungen zu bearbeiten.
  • VBA ohne Makro: Du kannst auch die Funktion SpecialCells nutzen, um gezielt Zellen zu leeren: 
    Sub ClearCells()
  Dim AR As Range
  For Each AR In Range("J2:J" & Cells(Rows.Count, 10).End(xlUp).Row).SpecialCells(xlCellTypeConstants)
      If AR.Rows.Count > 1 Then AR.Resize(AR.Rows.Count - 1).ClearContents
  Next
End Sub

Praktische Beispiele

Angenommen, Du hast eine Liste von Aufträgen in Excel und möchtest die Zellen in Spalte J leeren, wenn die Zelle in Spalte A nicht leer ist. Du könntest das folgende VBA-Skript verwenden:

Sub ClearContentBasedOnCondition()
    Dim i As Long
    Dim lastRow As Long
    lastRow = Sheets("DeinTabellenblatt").Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To lastRow
        If Sheets("DeinTabellenblatt").Cells(i, 1) <> "" Then
            Sheets("DeinTabellenblatt").Cells(i, 10).ClearContents
        End If
    Next i
End Sub

Tipps für Profis

  • Automatisierung: Setze VBA-Makros ein, um regelmäßig Zelleninhalte automatisch zu löschen, wenn Bedingungen erfüllt sind.
  • Datenüberprüfung: Verwende die Datenüberprüfung in Excel, um sicherzustellen, dass nur bestimmte Werte eingegeben werden, was das Löschen vereinfacht.
  • Testen: Teste Deine Formeln und Makros immer in einer Kopie Deiner Datei, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich Zelleninhalte automatisch löschen?
Du kannst VBA-Makros verwenden, um Zelleninhalte basierend auf Bedingungen automatisch zu löschen.

2. Gibt es eine Möglichkeit, dies ohne VBA zu tun?
Ja, Du kannst Formeln wie =WENN() verwenden, um Zelleninhalte basierend auf Bedingungen zu steuern, jedoch nicht direkt löschen.

3. Wie funktioniert die SpecialCells Methode in VBA?
SpecialCells ermöglicht es Dir, nur bestimmte Zellen auszuwählen, z.B. nur die mit konstanten Werten, und diese dann zu bearbeiten oder zu löschen.

Beliebteste Forumthreads (12 Monate)

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