Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn in "B" leer; dann "A" löschen mit VBA

Forumthread: Wenn in "B" leer; dann "A" löschen mit VBA

Wenn in "B" leer; dann "A" löschen mit VBA
25.01.2005 20:30:25
Korl
Hallo,
ich hole mir den Schichtplan meiner Frau von Excel in Outlook herüber um ihn wiederum stets auf meinen PDA als ganztägiges Ereignis zur Hand zu haben.
Nun nervt es mich, wenn ein freier Tag mit dem Text "ohne Betreff" auf den PDA angezeigt wird.
Hierzu muß ich stets das Datum manuell löschen. Eigentlich kein Problem aber meistens vergesse ich es doch.
In meiner Exceltabelle müsste nun folgendes über VBA passieren.
Wenn in Spalte "B" eine Zelle leer, dann soll in Spalte "A" selbige Zeile der Inhalt (Datum) gelöscht werden.
Da ich von VBA keine Ahnung habe bin ich auf Hilfe angewiesen.
Währe jemand so nett?
Gruß Korl
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn in "B" leer; dann "A" löschen mit VBA
25.01.2005 20:59:14
neimes
hi Korl,
das wär ne möglichkeit

Sub BAdelete()
anzahlzellena = 1
Do Until Cells(anzahlzellena, 1) = ""
anzahlzellena = anzahlzellena + 1
If anzahlzellena > 32 Then Exit Do
Loop
MsgBox anzahlzellena
For i = 1 To anzahlzellena
If Cells(i, 2) = "" Then Cells(i, 1).Clear
Next i
End Sub

keine ahnung wie lange die schicht ist, gehe mal von max. 31 Tagen aus
du musst darauf achten, dass in spalte A keine leeren zellen dazwischen sind, sonst bricht das makro zu früh ab
alternative
Cells(anzahlzellena, 1) = "" and Cells(anzahlzellena + 1, 1) = ""
jetzt müssen zwei leere zellen aufeinander folgen
ciao
neimes
Anzeige
AW: Wenn in "B" leer; dann "A" löschen mit VBA
25.01.2005 21:17:00
Korl
Hallo neimes,
genauso hab ich es mir vorgestellt. Hat prima hingehauen.
Besten Dank dafür.
Gruß Korl
AW: Wenn in "B" leer; dann "A" löschen mit VBA
25.01.2005 21:17:45
Ralf
Hallo Korl,
hier mal eine Beispieldatei:
https://www.herber.de/bbs/user/16860.xls
Hoffe es hilft.
Gruß
Ralf
Anzeige
Danke Ralf, es läuft gut und man lernt !!
25.01.2005 23:07:18
Korl
Hallo Ralf,
Danke für Deine Beispielmappe, sie hat geholfen!
Man lernt immer wieder dazu.
Gruß Korl
;

Forumthreads zu verwandten Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Bitte um Excel Hilfe / Wenn & Leere Zellen
Hans

Hallo Leute,
ich hoffe mir kann hier jemand helfen, da ich vergeblich versucht habe dahinter zu kommen.
Folgendes, ich habe eine Arbeitszeitübersicht in der ich die Arbeitszeit ausrechnen will und der Übersichtlichkeit wegen an Tagen an denen ich nicht arbeite die Zelle leer bleibt.
02.09.2008 15:53:00
Thread-ID: 1006840
7 Beiträge
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
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Anzeige
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Kopieren von Nichtleeren Zellen per Formel
Nichtleeren

Moin,
auf der Arbeit soll ich eine Tabelle anpassen:
In Tabellenblatt1 ist eine Matrix M6:P109, in einigen Zeilen (Artikelnummern in loser Reihenfolge) stehen Werte, (die Artikel, die im Bürobestand fehlen) in den meisten nicht.
Die Zeilen, in denen Werte stehen, sollen nun in Tabel...
10.01.2009 20:43:46
Thread-ID: 1038525
4 Beiträge
Kurze , dumme Frage: Prüfen, ob Zelle leer
Dieter

Hi,
wie kann ich denn prüfen , ob die Zelle B230 im Tabellenblatt "Umsatz" leer ist ?
(Wichtig, es ist nicht das Aktive Tabellenblatt)
Danke Dieter
29.01.2009 13:21:56
Thread-ID: 1044976
8 Beiträge
Anzeige
Zählenwenns... Leere Zelle
UweD

Hallo
Ich habe 2 Tabellen, wo (fast) täglich 1. Produktionsrückstände und 2. Fehler aufgelistet sind.
Es kommt vor, daß eine Tabelle mal an einem Tag nicht abgefragt und gefüllt wird.
In der Zusammenfassung wird dieser Tag dann mit 0 gewertet. Wie stelle ich es an, daß an diesem Tag...
13.02.2009 10:55:00
Thread-ID: 1050400
5 Beiträge
Wenn istleer
Reuter

Hallo
habe ein kleines problem. Ich muss die "Wenn Istleer" Formel anwenden, aber nur dann wenn 2 bestimmte Zellen leer sind. Bsp:
Wenn(istleer A1 und B2) dann mache gar nichts ansonsten einen Sverweis.
Mfg
Ich hoffe auf baldige Antwort
02.04.2009 10:33:43
Thread-ID: 1066230
4 Beiträge
vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Leere Zellen löschen wenn
walli

Hallo Fachfrauen u. Männer,
ich möchte gern zellen löschen wenn beide Spalten Leerzellen sind.
Beispiel:
In an D5 u. E5 stehen zahlen
D6 u. E6 stehen keine zahlen dann bitte beide also d+E nnach oben schieben
siehe Beispiel Mappe:
https://www.herber.de/bbs/user/62422...
14.06.2009 14:16:37
Thread-ID: 1081380
24 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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