Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spalteninhalt löschen bei 1.Zelle = " "

Forumthread: Spalteninhalt löschen bei 1.Zelle = " "

Spalteninhalt löschen bei 1.Zelle = " "
14.08.2002 13:28:28
Ark
Mahlzeit Excelspezies

Ich suche ein Makro, womit ich in einer Spalte den Inhalt löschen kann, wenn in der ersten Zelle nichts steht, diese also leer ist.
Habs zwar schon mit der Suche probiert, aber im Archiv/Forum nichts passendes gefunden.

schonmal Danke im voraus

Ark

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Spalteninhalt löschen bei 1.Zelle = " "
14.08.2002 13:51:13
Valente Christian
Hallo!

Ausgehend von der Annahme, dass die Spaltenlänge fix ist, könntest Du das in etwa so lösen:

If IsEmpty(Cells(1, 1)) Then

Range("A1:A27").Select
Selection.ClearContents

End If

Wahrscheinlich wirst Du mehrere Spalten haben und in allen Spalten eine bestimmte Zelle abfragen wollen - dazu müsstest Du aber eine Schleife einsetzen (do/loop oder for/next).

Ich hoffe, Du kannst damit was anfangen -

viel Erfolg

vbChr


Anzeige
Re: Spalteninhalt löschen bei 1.Zelle = " "
14.08.2002 14:21:17
Ark
Danke !!!

Genau sowas hab ich gesucht. Ich will in jeder Spalte der Tabelle die 1.Zelle abfragen, und wenn diese leer ist, soll der Rest, der darunter in der Spalte steht, gelöscht werden(nur der Inhalt).

schönen Tag noch

Ark

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Spalteninhalt löschen, wenn erste Zelle leer ist


Schritt-für-Schritt-Anleitung

Um den Inhalt in einer Excel-Spalte zu löschen, wenn die erste Zelle leer ist, kannst Du ein einfaches Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Gehe zu Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub InhaltLoeschenWennErsteZelleLeer()
       Dim ws As Worksheet
       Set ws = ThisWorkbook.Sheets("DeinBlattname") ' Ersetze "DeinBlattname" mit dem Namen deines Blattes
    
       Dim i As Integer
       For i = 1 To ws.UsedRange.Columns.Count
           If IsEmpty(ws.Cells(1, i)) Then
               ws.Range(ws.Cells(2, i), ws.Cells(ws.Rows.Count, i)).ClearContents
           End If
       Next i
    End Sub
  4. Ändere den Namen des Arbeitsblattes im Code.

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

  6. Drücke ALT + F8, wähle das Makro InhaltLoeschenWennErsteZelleLeer aus und klicke auf Ausführen.

Jetzt werden alle Inhalte unter der ersten Zelle in jeder Spalte gelöscht, wenn diese leer ist.


Häufige Fehler und Lösungen

  • Fehler: Das Makro wird nicht ausgeführt.

    • Lösung: Stelle sicher, dass die Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen und aktiviere die Option für die Ausführung von Makros.
  • Fehler: Es werden die falschen Zellen gelöscht.

    • Lösung: Überprüfe, ob Du den richtigen Blattnamen im Code angegeben hast. Achte darauf, dass der Blattname exakt übereinstimmt.

Alternative Methoden

Falls Du nicht mit Makros arbeiten möchtest, kannst Du auch die Funktion WENN in Kombination mit LÖSCHEN verwenden. Hier ist eine einfache Möglichkeit:

  1. Füge in einer Hilfsspalte die Formel ein, z. B. in Zelle B1:
    =WENN(A1="";"";A1)
  2. Ziehe diese Formel nach unten, um sie auf die gesamte Spalte anzuwenden.
  3. Kopiere die Hilfsspalte und füge sie als Werte in die Originalspalte ein, um die nicht benötigten Zellen zu löschen.

Praktische Beispiele

Angenommen, Du hast folgende Werte in Spalte A:

A
1
2
3

Nach Ausführung des Makros wird die Spalte A so aussehen:

A
3

Das Makro löscht den Inhalt der Zellen, wenn die erste Zelle leer ist.


Tipps für Profis

  • Verwende Schleifen effizient: Wenn Du in mehreren Blättern arbeiten musst, kannst Du das Makro erweitern, um alle Blätter zu durchlaufen.
  • Fehlerbehandlung einfügen: Füge Fehlerbehandlungsroutinen in Dein Makro ein, um unerwartete Fehler abzufangen.
  • Teste in einer Kopie: Führe das Makro immer zuerst auf einer Kopie deiner Datei aus, um sicherzustellen, dass alles wie gewünscht funktioniert.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um nur bestimmte Spalten zu bearbeiten?
Du kannst die Schleife anpassen, indem Du den Bereich, den Du durchlaufen möchtest, einschränkst, z. B. von 1 To 5 für die ersten fünf Spalten.

2. Funktioniert das Makro in allen Excel-Versionen?
Ja, das Makro sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen, wie Excel 2010 und höher.

Beliebteste Forumthreads (12 Monate)

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