Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
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ü
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
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aktive zelle leer ist, dann

Forumthread: Aktive zelle leer ist, dann

Aktive zelle leer ist, dann
02.01.2004 21:53:09
Walter
Guten Abend Zusammen,
habe nur eine kelinigkeit.
Habe folgende Zeile geschrieben:
If ActiveCell.Select <= 0 Then ' <> "" ob leer ist
' MsgBox "walter"
ActiveCell.Offset(-1, 0).Select
Selection.Delete
ActiveCell.Offset(0, 2).Select
MsgBox "walter"
Else
MsgBox "richtig"
End If
soll bewirken, wenn die aktive Zelle leer ist, eine Zeile nach oben und dort
den Inhalt der Zelle entfernen.
Bei mir zeigt immer MsgBox Walter an
Wieso?
Gruß Walter
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktive zelle leer ist, dann
02.01.2004 22:02:07
Ulf
If ActiveCell <= 0 Then

Ulf
Dank, ging super schnell, läuft...
02.01.2004 22:15:14
Walter
Hallo Ulf,
erst mal noch ein gesundes neues Jahr,
herzlichen DANK war super schnell !!!
Gruß Walter
Dann ist sie aber nicht leer.. ;-)
02.01.2004 22:23:22
Ramses
Hallo Ulf

sondern der Wert muss kleiner 0 sein

If IsEmpty(ActiveCell) Then

sollte es dann lauten wenn Sie leer sein soll ;-))

Gruss Rainer
Anzeige
AW: läuft auch...
03.01.2004 14:04:03
Walter
Hallo Rainer,
hatte so wie Ulf durchgeführt,
läuft auch.
Gruß Walter
AW: Aktive zelle leer ist, dann
02.01.2004 22:26:24
PeterW
Hallo Walter,

noch eine Kleinigkeit: mit Selection.Delete löschst du die Zelle und nicht nur deren Inhalt. Die Alternative wäre ClearContents.

Gruß
Peter
AW: Danke, wenn auch später
03.01.2004 14:05:04
Walter
Hallo Peter,
danke für den Hinweis.
Gruß Walter
Anzeige
;

Forumthreads zu verwandten Themen

Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Anzeige
Wenn übernomme Zelle leer - dann Ziel auch leer
Werner

Hallo,
ich habe eine hoffentlich einfache Frage:
Wenn ich in Zelle B10 schreibe =B6, so wird ja der Inhalt von B6 übernommen.
Wenn B6 aber leer ist, dann soll in B10 keine null erscheinen sondern diese soll auch leer bleiben.
Wie kann ich dies tun (außer über die Einstellungen v...
01.03.2010 11:58:44
Thread-ID: 1142333
3 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
VBA Wenn Zelle Leer dann
Philipp

Hallo,
ich habe eine Tabelle und möchte daraus automatisch eine Liste generieren.
Die Tabelle sieht in etwa so aus
A B C
1 XYZ ABC
2 Bla 23%
3 Blub 2% 7%
4 ...
Das Makro soll nun schauen ob in der Spalte A...
12.07.2012 16:29:13
Thread-ID: 1270809
3 Beiträge
Bereich(Wenn Zelle leer dann Text)
Steffen

Guten Morgen,
ich hoffe Ihr könnt mir weiterhelfen.
In meiner Excel Datei möchte ich einen Bereich prüfen lassen, sobald hier eine
Formel gelöscht wird und keine Text eingegeben wurde, soll die Formel wieder gesetzt werden.
Bis jetzt sieht mein Code so aus: Private Sub Workshe...
17.10.2013 12:03:15
Thread-ID: 1334731
3 Beiträge
VBA Wenn dann Zelle 5x kopieren in nächste Leere
Max

Hallo *,
ich würde mich freuen, wenn ihr mir weiterhelfen könnt.
Wenn in Zelle A1 beispielsweise etwas steht, dann würde ich gerne die Zellen A1,B1,D1,E1 und G1 auf ein neues Tabellenblatt kopieren. Aber nicht nur einmal, sondern 5x untereeinander.
In Zeile 2 meiner Tabelle steht na...
29.07.2014 08:57:02
Thread-ID: 1372823
2 Beiträge
VBA - Formel ändern wenn Zelle nicht leer
Thomas

Hallo,
ich brauch bitte Hilfe, weil ich an folgender Aufgabenstellung hänge:
Ich verwende in Spalte N folgende Formel:
=WENN($M2="";"";INDEX(Preismatrix!$E$5:$E$200;VERGLEICH($M2;Preismatrix!$D$5:$D$200;0)))
Nun muss ich diese Formel per Buttondruck von E5:E200 in F5:F200 ändern...
15.10.2014 15:25:28
Thread-ID: 1386815
6 Beiträge
Anzeige
VBA Wenn Datum in Zelle, dann summieren...
Susanne

Hallo,
in Spalte A habe ich Rohdaten mit Datum (ein Datum kommt immer mehrmals vor). In einem zweiten Tabellenblatt habe ich das Datum für jeweils einen Tag in einer Spalte aufgelistet.
Nun möchte ich, dass wenn z.B. der 20.10.2014 mehrmals im ersten Tabellenblatt ist, diese Zeilen gezä...
18.12.2014 10:36:32
Thread-ID: 1398826
6 Beiträge
Wenn Zelle leer, dann Formel einfügen
mic13

Hallo
Ich habe ein Problem mit einem Formular mit Blattschutz, das ich nicht lösen kann und zwar folgendes:
In der verbundenen Zelle AY12 (AY12:BG1) steht eine Formel drin, welche den Vornamen ausweist, wenn er das Kurzzeichen im Sverweis findet und sonst leer lässt:
=WENN($AT12=""...
07.10.2015 13:39:50
Thread-ID: 1451203
2 Beiträge
vba Abfrage wenn leer dann
Peter

Hallo Excel-Spezialisten,
ich habe ein Makro erstellt und weiss jetzt nicht, wie ich eine Abfrage erstellen soll, dass wenn in die Unterordner leer sind dann soll nichts geschehen, wenn Dateien vorhanden sind, dann sollen diese übertragen werden.
Sub verschieben() Dim strPfad As String...
02.03.2016 15:33:47
Thread-ID: 1479322
4 Beiträge
Anzeige
Wenn Zelle leer dann Wert von rechts ü. 30 Spalten
Marcel
Hallo zusammen,
ich habe eine Tabelle mit knapp 7000 Zeilen und 30 Spalten.
Der Regelfall ist, dass je Zeile die 30 Spalten unterschiedlich befüllt sind (mal die ersten 2 nicht dann die 3. und die 12. wieder etc. - vgl. Tabellenblatt "Ausgangssituation")
Ziel soll es sein, dass je Zeile...
07.09.2016 10:05:38
Thread-ID: 1513294
3 Beiträge
wenn zelle leer dann zeile aus!
Al

hallo zusammen,
gibt es ein Möglichkeit in einem Makro Folgendes zu programmieren?
Betrachtet werden die Spalten J14:J1013 und entsprechend AG14:AG1013
Wenn in Zelle Jx ein Wert steht und in entsprechend AGx kein Wert enthalten ist, dann soll er die gesamte Zeile ausblenden. Dies so...
16.09.2016 08:39:52
Thread-ID: 1514687
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Aktive Zelle leer? So reagierst Du richtig in Excel VBA

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor: Drücke ALT + F11.

  2. Erstelle ein neues Modul: Klicke auf Einfügen > Modul.

  3. Füge den folgenden Code ein:

    Sub ZellePruefen()
    If IsEmpty(ActiveCell) Then
        ActiveCell.Offset(-1, 0).Select
        ActiveCell.ClearContents
        MsgBox "Inhalt der oberen Zelle wurde gelöscht."
    Else
        MsgBox "Die aktive Zelle ist nicht leer."
    End If
End Sub

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

  5. Führe das Makro aus: Gehe zu Entwicklertools > Makros, wähle ZellePruefen und klicke auf Ausführen.

Der Code prüft, ob die aktive Zelle leer ist. Falls ja, wird die Zelle darüber ausgewählt und ihr Inhalt gelöscht.

Häufige Fehler und Lösungen

  • Fehler: Die MsgBox zeigt immer den Text "Die aktive Zelle ist nicht leer." an.

    • Lösung: Stelle sicher, dass die aktive Zelle tatsächlich leer ist. Verwende IsEmpty(ActiveCell) für die Überprüfung.

  • Fehler: Die Zelle wird gelöscht statt nur der Inhalt.

    • Lösung: Verwende ClearContents anstelle von Selection.Delete, um nur den Inhalt zu entfernen.

Alternative Methoden

Du kannst den gleichen Effekt auch mit einer anderen Methode erzielen, indem Du eine If-Bedingung ohne VBA nutzt:

  1. Verwende eine Hilfsspalte: Füge in einer neuen Spalte eine Formel ein, die überprüft, ob die Zelle leer ist.
  2. Formel: =WENN(ISTLEER(A1); "Leer"; "Nicht leer")
  3. Diese Methode erfordert kein VBA und kann einfach in Formeln integriert werden.

Praktische Beispiele

Hier sind einige Beispiele, wie Du die If-Bedingung in verschiedenen Szenarien nutzen könntest:

  • Beispiel 1: Wenn Du die aktive Zelle leer machst, wenn der Wert kleiner als 10 ist:

    If ActiveCell.Value < 10 Then
    ActiveCell.ClearContents
End If

  • Beispiel 2: Um eine Warnung anzuzeigen, wenn die aktive Zelle leer ist und eine andere Zelle ausgewählt wird:

    If IsEmpty(ActiveCell) Then
    MsgBox "Die aktive Zelle ist leer. Bitte fülle sie aus."
End If

Tipps für Profis

  • Nutze With...End With, um mehrere Aktionen auf das gleiche Objekt anzuwenden. Dies verbessert die Lesbarkeit und Leistung Deines Codes.
  • Kommentiere Deinen Code: Verwende ' für Kommentare, um den Zweck Deiner Bedingungen und Aktionen zu erklären.
  • Teste Deine Makros in einer Kopie Deiner Arbeitsmappe, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich die aktive Zelle in Excel VBA überprüfen? Du kannst die aktive Zelle mit ActiveCell und die Funktion IsEmpty verwenden, um zu prüfen, ob sie leer ist.

2. Was ist der Unterschied zwischen Delete und ClearContents? Delete entfernt die Zelle vollständig, während ClearContents nur den Inhalt der Zelle löscht, die Zelle selbst bleibt jedoch erhalten.

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