Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.10.2025 18:39:44
Hilfe beim VBA-Code
08.10.2025 12:36:22
Hinweis für Word auf dem MAC
08.10.2025 12:35:32
Datumsabhängige Einträge in Zellen. Bedingter Formatierung.
08.10.2025 11:44:01
Faktor Uhrzeit hinzu fügen
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
1804to1808
1804to1808
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen vergleichen und ggf löschen

Forumthread: Zellen vergleichen und ggf löschen

Zellen vergleichen und ggf löschen
15.01.2021 13:16:27
max
Hallo,
ich würde gerne das Eintrittsdatum mit den anderen vielen Daten in der gleichen Zeile vergleichen und falls das Eintr.Datum kleiner ist, den Inhalt des größeren Datums löschen. dh Datum + weitere 2 Zeilen die davor sind.
(siehe screenshot und txt.file)
Userbild
https://www.herber.de/bbs/user/143031.txt
Ich hoffe es war verständlich.
LG
Max
Anzeige

27
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen vergleichen und ggf löschen
15.01.2021 13:48:46
Günther
Moin Max,
wenn die Daten in der Original-Tabelle geändert werden sollen (nicht empfehlenswert), dann verwende VBA. Soll eine Kopie der Rohdaten entsprechend bearbeitet werden, dann mache ich so etwas mit Power Query.
 
Gruß
Günther  |  mein Excel-Blog
Anzeige
AW: Zellen vergleichen und ggf löschen
15.01.2021 14:15:01
max
Danke Günther für deinen Vorschlag.
Leider kann ich mit Power query nichts anfangen.
Ich kenn mich auch leider nicht so gut aus mit Excel usw.
Ich war so blauäugig und war der Meinung, dass es evtl. mit "wenndann Formel" funktioniert.
Trotzdem danke.
AW: Zellen vergleichen und ggf löschen
15.01.2021 14:38:16
Daniel
Hi
Sinnvoller ist, die Exceldatei hochzuladen und die Inhalte, die gelöscht werden sollen zu kennzeichnen oder auf zwei Blättern Vorher und Nacher darzustellen.
Ich würde hier nach Spalte D eine zusätzliche Spalte einfügen mit der Formel
=$A2&ltD2
Dann filterst du in diese Spalte nach WAHR
Damit sind nur die Zeilen sichtbar, in denen Spalte B:D gelöscht werden sollen, was du bedenkenlos tun kannst, da in gefilterten Tabellen die ausgeblendeten Zeilen nicht bearbeitet werden.
Wenn du mehrere Spalten hast, wiederholt du das für jede Spaltengruppe.
Gruß Daniel
Anzeige
AW: Zellen vergleichen und ggf löschen
15.01.2021 15:16:45
max
Hallo Daniel,
vielen Dank für deinen Vorschlag!
Leider konnte ich keine Excel Datei hochladen, war zu groß.
Ich habe glaube ich über 400 Spalten, das wird lange dauern, bis ich das habe.
LG
Max
AW: Zellen vergleichen und ggf löschen
15.01.2021 15:20:40
Daniel
ein kleiner Ausschnitt, aus dem man erkennt worum es geht, reicht ja.
wenn du dazuschreibst, wie groß die Datenmenge tatsächlich ist, dann genügt das in der regel.
war mein Vorschlag jetzt für dich hilfreich oder nicht?
Gruß Daniel
Anzeige
AW: Zellen vergleichen und ggf löschen
15.01.2021 14:46:07
Yal
Hallo Max,
kurz gemeinsam, aber langsam nochmal lesen:
ich würde gerne das Eintrittsdatum mit den anderen vielen Daten in der gleichen Zeile vergleichen
und falls das Eintr.Datum kleiner ist,
den Inhalt des größeren Datums löschen.
dh Datum + weitere 2 Zeilen die davor sind.
Was will uns der Künstler damit sagen?
Meinst Du: 

Für die gegebene Eintrittsdatum in A2 soll beim Vergleich mit Datum in A5:A8
_ Wenn Datum kleiner als Eintrittsdatum, gesamte Zeile komplett löschen
_ Wenn Datum gleich Eintrittsdatum, alle Daten dieser Zeile von Spalte B bis letzte Spalte  _
löschen

?
VG
Yal
Anzeige
AW: Zellen vergleichen und ggf löschen
15.01.2021 15:13:10
max
Hallo YAL,
musste laut lachen :))
nein so war das nicht gemeint. Schau dir mal bitte den Screenshot an.
Die Zeilen sind voneinander unabhängig. In jeder 3. Spalte steht ein anderes Datum wie man sieht. Das Eintrittsdatum (A2) soll mit diesen Daten in den jeweiligen Spalten abgeglichen werden. und falls zBsp. A2 kleiner als D2, dann sollen B2 bis D2 gelöscht werden.
Ich hoffe ich habe es nicht noch komplizierter gemacht.
Lg
max
Anzeige
AW: Zellen vergleichen und ggf löschen
15.01.2021 15:45:00
Yal
Hallo Max,
folgendes sollte es tun (nicht getestet)
Sub test()
Dim r, c
For r = 2 To Me.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For c = 4 To Me.UsedRange.SpecialCells(xlCellTypeLastCell).Row Step 3
With Me.Cells(r, c)
If DateValue(.Text)
VG
Yal
Anzeige
Korr.: ClearContents mit "s" am Ende. oT
15.01.2021 15:45:53
Yal
AW: Korr.: ClearContents mit "s" am Ende. oT
17.01.2021 14:50:57
max
Hallo Yal,
vielen herzlichen Dank. Ich werde es dann am Montag gleich ausprobieren.
Echt super!
LG
Max
AW: Zellen vergleichen und ggf löschen
15.01.2021 15:57:15
Daniel
Hi
ganz einfache lösung, ohne VBA und sonstige "Tricks"
1. kopiere die Zeile 1 und die Spalte 1 in ein zweites Tabellenblatt (oder kopiere die ganze Tabelle, geht auch)
2. in die Zelle B2 der Tabelle2 kommt folgende Formel:
=WENN(Tabelle1!$A2&ltINDEX(Tabelle1!2:2;1;SPALTE()+VERGLEICH("Datum";B$1:E$1;0)-1);"";Tabelle1!B2)
diese ziehst du dann nach unten und nach rechts bis zum Ende der Tabelle2
3. kopiere die ganze Tabelle2 und füge sie an gleicher Stelle als Wert ein.
arbeite mit der 2. Tabelle weiter.
Gruß Daniel
Anzeige
AW: Zellen vergleichen und ggf löschen
17.01.2021 14:52:22
max
Hallo Daniel,
vielen vielen Dank auch an Dich!
Ihr erleichtert mir die Arbeit dadurch sehr.!
Werde es am Montag gleich testen.
LG
Max
AW: Zellen vergleichen und ggf löschen
15.01.2021 16:19:45
Daniel
Hi
Wenns mit VBA sein soll, dann kopiert man sich die Daten in ein Array und bearbeitet dieses Array in einer Schleife über Zeilen und Spalten.
dann schreibt man das Array zurück.
könnte man zwar auch in der Tabelle direkt nachen, ist aber langsam.
Code hierfür sieht so aus: 
Sub Makro1()
Dim arr
Dim z As Long, s As Long
With ActiveSheet.Cells(1, 1).CurrentRegion
arr = .Value
For s = 2 To UBound(arr, 2)
If arr(1, s) = "Datum" Then
For z = 2 To UBound(arr, 1)
If arr(z, 1)
oder man baut sich die Formellösung, die bereits vorgestellt habe, in VBA nach.
(Tabelle2 bitte vorher anlegen) (Codeformatierung funktioniert wegen der Formel leider nicht korrekt, daher so:
Sub Makro2()
Sheets("Tabelle1").Cells(1, 1).CurrentRegion.Copy Sheets("Tabelle2").Cells(1, 1)
With Sheets("Tabelle2").Cells(1, 1).CurrentRegion
With .Resize(.Rows.Count - 1, .Columns.Count - 1).Offset(1, 1)
.FormulaR1C1 = "=IF(Tabelle1!RC1&ltINDEX(Tabelle1!R,1,COLUMN()+MATCH(""Datum"",R1C:R1C[3],0)-1),"""",Tabelle1!RC)"
.Formula = .Value
End With
End With
End Sub

Gruß Daniel
Anzeige
AW: Zellen vergleichen und ggf löschen
15.01.2021 18:10:13
Yal
Hallo Daniel,
warum der Weg über einen 2-dimensionale Array, wenn eine Excel-Tabelle sowieso bereit ein 2-dimensionale Struktur ist?
Ausser bei der Ermittlung der letzte Zeile bzw Spalte mit UBound anstatt SpecialCells(xlCellTypeLastCell).Column, ist die zusätzliche Bequemlichkeit recht beschränkt.
Version CurrentRegion 
Sub Makro1()
Dim z As Long, s As Long
With ActiveSheet.Cells(1, 1).CurrentRegion
For s = 2 To .SpecialCells(xlCellTypeLastCell).Column
If .Cells(1, s) = "Datum" Then
For z = 2 To .SpecialCells(xlCellTypeLastCell).Row
If .Cells(z, 1)
Version UsedRange 
Sub Makro1()
Dim z As Long, s As Long
With ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.UsedRange)
For s = 2 To .SpecialCells(xlCellTypeLastCell).Column
If .Cells(1, s) = "Datum" Then
For z = 2 To .SpecialCells(xlCellTypeLastCell).Row
If .Cells(z, 1)
Wenn sowieso irgendwo etwas im ersten Zeile und etwas im ersten Spalte vorhanden ist,
dann die Kurzversion von UsedRange: 
Sub Makro1()
Dim z As Long, s As Long
With ActiveSheet.UsedRange
For s = 2 To .SpecialCells(xlCellTypeLastCell).Column
If .Cells(1, s) = "Datum" Then
For z = 2 To .SpecialCells(xlCellTypeLastCell).Row
If .Cells(z, 1)
Alles sehr ähnlich. Aber eben ohne den Umweg über einen Array.
VG
Yal
Anzeige
AW: Zellen vergleichen und ggf löschen
15.01.2021 18:26:29
Daniel
Hi
ja kann man machen bei kleinen Datenmengen, bei großen Tabellen ist der Weg übers Array schneller.
jede Zellwertänderung löst in Excel eine Reihe von hintergrundprozessen aus, die jedes mal ablaufen, wenn du einen Wert änderst.
wenn du direkt in der Tabelle arbeitest, stößt jedes einzelne Löschen diese Hintergrundprozesse an.
schreibe ich das Array als ganzes zurück, laufen diese Prozesse zwar auch, aber nur einmal für alle Zellen gemeisam.
Ist so, wie wenn beim Bäcker der Kunde vor dir jedes seiner 10 Brötchen einzeln bezahlt und dafür jedesmal die Cents in einer Geldbörse zusammen sucht, oder ob er alle auf einmal bezahlt.
einen Teil dieser Hintergrundprozesse kann man ausschalten, aber nicht alle (guckst du GetMoreSpeed)
außerdem muss man dafür sorge Tragen, dass diese Hintergrundprozesse auch wieder eingeschaltet werden, das tun nämlich nicht alle automatisch, und dann funktionieren u.U. nicht mehr alle Dinge wie gewohnt.
weitere Vorteil ist beim Debuggen.
Wenn beispielsweise in der Schleife ein Fehler auftritt den ich korrigieren muss, habe ich, wenn ich direkt in der Datei arbeite, u.U. schon einen Teil der Daten verändert, und muss ggf. die Orignialdaten wieder herstellen, um das Makro nach Korrektur erneut laufen lassen zu können.
passiert das im Array vor dem zurückschreiben (was ja immer der letzte schritt ist), so sind die Originaldaten noch unverändert und man kann direkt das Makro wiederholen.
oder man lässt sich das Array an anderer Stelle ausgeben und überschreibt die Originaldaten erst, wenn man sicher ist dass es korrekt läuft.
oder stellst dir so vor:
Excel ist ein Bürohaus und jede Zelle ist ein Büro mit einer Tafel die den Wert enthält.
jetzt kannst du von Büro zu Büro laufen, oder du schreibst dir erstmal alle Werte auf einen Zettel und arbeitest dann nur noch mit diesem Zettel.
Gruß Daniel
Anzeige
AW: Zellen vergleichen und ggf löschen
15.01.2021 21:36:52
Yal
Hallo Daniel,
ja, das ist schlüssig: Ereignis-Prozeduren und alles was im Hintergrund passiert nur einmal zu triggern, ist performanter.
Beim Debuggen ist es abzuwegen, zwischen die Komplexität von Code und "Rettung" der Stand. Aber die Komplexität war hier nicht ausschlaggebend.
Vielen Dank für deine Erklärung. Es öffnet mir "neue Sichten".
Schönes Wochenende
Yal
Anzeige
AW: Zellen vergleichen und ggf löschen
17.01.2021 16:20:05
max
Eine Frage noch
wie kann ich, die noch vorhandenen ICD-10 Codes, am Ende der Zeile verketten, ohne sie einzeln anzuklicken. dh wenn Feld ist nicht leer, dann soll verkettet werden. (NUR ICD-10)
siehe screenshot. Userbild
Vielen Dank an alle nochmal.
LG
Max
Anzeige
AW: Zellen vergleichen und ggf löschen
18.01.2021 10:55:44
Daniel
Hi
hängt von deiner Excelversion ab.
mit Excel 365 könnte da über TEXTVERKETTEN was gehen, so in der Art (ich hab noch kein 365)
=TextVerketten(Wenn(A$1:J$1="ICD-10";A2:J2);...)
mit ältern Excelversionen ohne Textverketten musst du jede Zelle einzeln anklicken.
dh da gibt es eine alternative, in dem du auf einem zweiten Tabellenblatt die Texte nach rechts immer erweiterst, bis in der letzten Zelle der vollständige Text steht.
dh auf einem dritten Tabellenblatt in Zelle C2:
=Wenn(Und(TAbelle2!C$1="ICD-10";Tabelle2!C2"");B2&", "&Tabelle2!C2;"")&B2
in der letzten Spalte steht dann das vollständige Ergbnis, dass du dann nach Tabelle2 übernehmen kannst.
Gruß Daniel
Anzeige
AW: Zellen vergleichen und ggf löschen
18.01.2021 11:31:28
Yal
Hallo zusammen,
ohne Office 365 baust Du einfach die Funktion TextVerketten als User Defined Function nach:
Public Function TextVerketten(Trennzeichen, Leer_ignorieren As Boolean, TextListe) As String
Dim E
Dim Erg
If IsMissing(Trennzeichen) Then Trennzeichen = ""
For Each E In TextListe
If Not (Leer_ignorieren And E = "") Then Erg = Erg & Trennzeichen & E
Next
TextVerketten = Erg
End Function
Dann so im Blatt verwenden:
{=TextVerketten(;Wahr;Wenn(A$1:J$1="ICD-10";A2:J2;""))}
Matrix-Formel: die geschweifte Klammer werden nicht eingegeben, das Editieren muß mit Shift+Strg+Enter abgeschlossen werden.
VG
Yal
Anzeige
äh, sorry. Unzureichend getestet
18.01.2021 11:39:13
Yal
so wird es besser aussehen:
Public Function TextVerketten(Trennzeichen, Leer_ignorieren As Boolean, TextListe) As String
Dim E
Dim Erg
If IsMissing(Trennzeichen) Then Trennzeichen = ""
For Each E In TextListe
If E = "" Then
If Not Leer_ignorieren Then
Erg = Erg & Trennzeichen & E
End If
Else
Erg = Erg & Trennzeichen & E
End If
Next
TextVerketten = Erg
End Function
VG
Yal
Anzeige
Verflixt, nochmal!!!
18.01.2021 12:01:58
Yal
Jetz' ham'ma's:
Public Function TextVerketten(Trennzeichen, Leer_ignorieren As Boolean, TextListe) As String
Dim E
Dim Erg
Erg = ""
If IsMissing(Trennzeichen) Then Trennzeichen = ""
For Each E In TextListe
If E = "" Then
If Not Leer_ignorieren Then Erg = Erg & Trennzeichen & E
Else
Erg = Erg & Trennzeichen & E
End If
Next
TextVerketten = IIf(Trennzeichen = "", Erg, Mid(Erg, 2))
End Function
Die gute alte Wahrheitstabelle ist doch manchmal sinnvoll!
VG
Yal
Anzeige
AW: Verflixt, nochmal!!!
18.01.2021 13:04:04
max
Danke Yal!
Ihr seid die Besten :)
LG
Max
AW: Zellen vergleichen und ggf löschen
18.01.2021 13:04:33
max
Hallo Daniel,
vielen Dank!
LG
Max
AW: Zellen vergleichen und ggf löschen
19.01.2021 14:59:35
max
Hello again,
könnte ihr mir bitte "wieder" weiterhelfen.
Ich möchte die Formel "..sverweis" nur für jede 2.Spalte übernehmen. (siehe screenshot)
(Es sind ca. 1300 Spalten und 750 Zeilen)
Falls ihr auch noch wisst, wie man die leeren Zellen löscht (grau markiert) und nach oben verschiebt, wäre ich umso dankbarer. (siehe screenshot)
Userbild
LG
Max
Anzeige
AW: Zellen vergleichen und ggf löschen
15.01.2021 18:34:33
Daniel
ergänzend zu meinem zuvor gesagten:
ersetze mal das 
.Cells(z, s - 0) = ""
.Cells(z, s - 1) = ""
.Cells(z, s - 2) = ""

durch ein 
.Cells(z, s).Offset(0, -2).Resize(, 3).ClearContents

und prüfe, ob das die Laufzeit verbessert, denn hier hast du nur noch 1/3 der schreibenden Zugriffe in der Tabelle.
(Datenmenge groß genug machen)
Gruß Daniel
Anzeige
AW: Zellen vergleichen und ggf löschen
19.01.2021 15:02:32
max
Hello again,
könnte ihr mir bitte "wieder" weiterhelfen.
Ich möchte die Formel "..sverweis" nur für jede 2.Spalte übernehmen.
(Es sind ca. 1300 Spalten und 750 Zeilen)
Falls ihr auch noch wisst, wie man die leeren Zellen löscht (grau markiert) und nach oben verschiebt, wäre ich umso dankbarer. (siehe screenshot)
Userbild
LG
Max
Anzeige
AW: Zellen vergleichen und ggf löschen
20.01.2021 14:04:30
Daniel
HI
Sverweis in jede zweite Spalte übernehmen ohne die dazwischenliegenden zu überschreiben ist etwas aufwendig.
ausgehend vom den Screenshot so:
wichitig ist hierbei die Menüfunktion START - BEARBEITEN - SUCHEN UND AUSWÄHLEN - INHALTE bzw deren Untermenü. Dieses wird in folge mehrfach verwendet, weshalb ich es nur als INHALTE abkürzen werde.
Gemeint ist dann dieser Menüpunkt, welchen du auch über F3 erreichen kannst
1. ganze Zeile 2 markieren
2. INHALTE - Konstanten - Zahlen
3. START - ZELLEN - FORMAT - SICHTBARKEIT - Spalten ausblenden
4. alle Zellen markieren, die die SVerweisformel erhalten sollen
5. INHALTE - nur sichtbare Zellen
6. Formel für die aktive Zelle eintippen und Eingabe mit STRG+ENTER abschließen.
die Formel wird unter Berücksichtigung von relativen und absoluten Zellbezügen in alle markierten Zellen übernommen. Die Bezüge auf ausgeblendete Zellen müssen eingetippt werden.
7. alles markieren und Spalten einblenden.
zu deiner zweiten Frage: das passiert automatisch, wenn du "Zellen löschen" ausführst.
wenn du nicht ganze Zeilen oder ganze Spalten markiert hast, fragt Excel dich dann ob die Zellen nach oben oder nach links nachrücken sollen, da musst du dann das passende auswählen.
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Zellen auf Inhalt prüfen
neonac

Hallo,
ich bekomme eine Prüfung von B2 bis M2 nicht hin, ich möchte A2 rot färben wenn in diesen Zellen irgend etwas steht. Über bedingte Format. mit Formel färbt er immer nur B2 :-(
Danke und Grüße Neo
12.11.2010 00:35:47
Thread-ID: 1186432
4 Beiträge
Zellen auf Inhalt prüfen
Isolde

Hallo VBA-Experten!
Ich bin auf der Suche nach einem Makro, das folgendes kann:
Das Makro soll zunächst in Spalte C die letzte Zeile erkennen. Danach sollen Spalte I8-S8 bis jeweils zu dieser letzten Zeile ausgelesen werden. Das Makro soll erkennen, ob der Zellbereich leere Zellen enthä...
12.07.2015 20:14:04
Thread-ID: 1435944
14 Beiträge
Zellen auf Inhalt prüfen
Pelic

Option Explicit Dim strDatei As String Dim istDa As Boolean Dim Zeilenzahl As Integer Dim intZeile As Integer Dim a As Integer Dim b As Integer Dim wks As Worksheet Dim arr Dim zielmappe As String Dim quellmappe As String Dim ZM As Workbook Dim zelle As Variant Public Sub Start() Call öffnen...
27.07.2016 12:02:19
Thread-ID: 1506466
19 Beiträge
Anzeige
Zellen auf Textinhalt prüfen
reiner

Hallo Leute,
in Spalte „A“ steht in mehreren nacheinanderfolgenden Zeilen der Text „1 Kontoauszug“ oder „2 Kontoauszug“ oder „3 Kontoauszug“ oder… „* Kontoauszug“.
Nun will ich mittels If-Abfrage in Verbindung mit einer Schleife alle Zellen in Spalte „A“ bis zur letzten vorhandenen Zeil...
15.03.2018 21:44:28
Thread-ID: 1614440
5 Beiträge
Anzeige
Mehrere Zellen auf Inhalt prüfen
Daniel

Hallo Zusammen,
ich stehe vor einem "kleinen" Problem und würde mich freuen, wenn mir von euch jemand auf die Sprünge helfen kann.
Ich habe eine Arbeitsblatt, in welches Daten eingetragen werden sollen. Bevor nun diese Blatt (per VBA Button) gedruckt oder als PDF gespeichert werden kann...
25.01.2021 08:39:16
Thread-ID: 1808057
8 Beiträge
Zellen auf mehrere Inhalte prüfen
Lopa21
Guten Abend zusammen,

ich komme einfach nicht weiter. Und zwar ist mein Problem folgendes:

Ich habe in der Spalte N unterschiedliche Texte in den Zellen, diese sind aber so leider nicht leserlich.
-> Beispiel: HalloxxDuxxDa.
Ich würde nun gerne, wenn der Text in der Z...
14.04.2023 18:38:15
Thread-ID: 1927596
12 Beiträge
Zellen auf Inhalt überprüfen
Chris
Hallo Forum,

ich möchte per VBA folgendes lösen:

Klicke ich in irgendeine Reihe, sollen alle Zellen in derselben Reihe in den Spalten D:J auf Inhalt überprüft werden.
Ist die jeweilige Zelle leer, soll dort "--" eingetragen werden. Ist irgendein Inhalt in den Zellen D bis J der...
04.04.2024 16:46:03
Thread-ID: 1972301
2 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

Zellen vergleichen und Inhalte löschen in Excel

Schritt-für-Schritt-Anleitung

  1. Daten vorbereiten: Stelle sicher, dass die Daten, die Du vergleichen möchtest, in einer Tabelle angeordnet sind. Das Eintrittsdatum sollte in einer Spalte stehen, und die anderen Datumswerte sollten in den benachbarten Spalten platziert sein.

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

  3. Neues Modul erstellen: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsm)" > Einfügen > Modul.

  4. Code einfügen: Füge den folgenden VBA-Code ein, um die Zellen zu vergleichen und Inhalte zu löschen:

    Sub ZellenVergleichen()
    Dim r As Long, c As Long
    For r = 2 To ActiveSheet.UsedRange.Rows.Count
        For c = 4 To ActiveSheet.UsedRange.Columns.Count Step 3
            If Cells(r, c).Value < Cells(r, 1).Value Then
                Cells(r, c).ClearContents
                Cells(r, c - 1).ClearContents
                Cells(r, c - 2).ClearContents
            End If
        Next c
    Next r
End Sub

  5. Makro ausführen: Schließe den VBA-Editor und führe das Makro über Entwicklertools > Makros aus.

Häufige Fehler und Lösungen

  • Fehler: Keine Änderungen sichtbar
    Lösung: Stelle sicher, dass Du das richtige Arbeitsblatt bearbeitest und das Makro korrekt ausgeführt wird.

  • Fehler: Makro kann nicht ausgeführt werden
    Lösung: Überprüfe, ob die Makros in Deinen Excel-Einstellungen aktiviert sind (Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen).

Alternative Methoden

  • Power Query: Wenn Du keine VBA-Programmierung nutzen möchtest, kannst Du Power Query verwenden, um Daten zu importieren und Bedingungen zum Löschen von Inhalten festzulegen.

  • WENN-Funktion: Verwende die WENN-Funktion in einer neuen Spalte, um zu prüfen, ob das Eintrittsdatum kleiner ist als andere Daten und markiere die Zeilen zur manuellen Löschung.

    =WENN(A2 < D2; "Löschen"; "")

Praktische Beispiele

  1. Zellen vergleichen: Du möchtest das Eintrittsdatum in Zelle A2 mit den Werten in D2, E2 und F2 vergleichen. Wenn A2 kleiner ist, sollen die Zellen in B2 bis D2 gelöscht werden.

  2. ICD-10 Codes verketten: Wenn Du die noch vorhandenen "alte ICD-10" Codes am Ende der Zeile verketten möchtest, kannst Du folgende Formel verwenden:

    =TEXTVERKETTEN(", "; WAHR; WENN(A$1:J$1="ICD-10"; A2:J2; ""))

    Diese Formel funktioniert jedoch nur in Excel 365 oder später.

Tipps für Profis

  • Array-Methoden nutzen: Wenn Du mit großen Datenmengen arbeitest, benutze Arrays, um die Leistung zu steigern. Es ist effizienter, alle Änderungen auf einmal vorzunehmen, anstatt jede Zelle einzeln zu bearbeiten.

  • Debugging: Halte immer eine Kopie Deiner Originaldaten bereit, um sicherzustellen, dass Du im Falle eines Fehlers leicht zurückkehren kannst.

FAQ: Häufige Fragen

1. Wie kann ich Excel prüfen, ob Zellen den gleichen Inhalt haben?
Du kannst die Funktion =A1=B1 nutzen, um zu prüfen, ob zwei Zellen identische Inhalte haben. Das Ergebnis ist WAHR oder FALSCH.

2. Wie lösche ich leere Zellen?
Markiere die Daten, gehe zu Start > Suchen und Auswählen > Inhalte > Leer, und wähle dann Zellen löschen, um die leeren Zellen zu entfernen.

3. Was ist die Wahrheitstabelle in Excel?
Die Wahrheitstabelle zeigt alle möglichen Werte einer logischen Aussage und deren Ergebnisse, was hilfreich ist, um logische Formeln zu analysieren.

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