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

Zellen automatisch löschen

Forumthread: Zellen automatisch löschen

Zellen automatisch löschen
09.10.2024 13:47:17
ChocoMog
Hallo zusammen,

bisher konnte ich alle meine Excel-Probleme immer mit Formeln und bedingten Formatierungen zu meiner Zufriedenheit lösen, jetzt stoße ich aber an meine Grenzen und benötige Hilfe. Im Bereich VBA habe ich keine Erfahungen und vielleicht kann mir jemand von euch helfen.

Ich möchte eine Excel-Tabelle erstellen, in der sich Zellen unter bestimmten Voraussetzungen automatisch leeren. Es soll dadurch sozusagen ein Kreislauf entstehen.

In meiner Tabelle sollen in den Zellen E5, F5,G5 & H5 jeweils ein Datum eingeben werden. Jetzt ist meine Vorstellung, dass sich die Zelle

E5 leert, wenn in den Zellen F5 und G5 ein Datum steht
F5 leert, wenn in den Zellen G5 und H5 ein Datum steht
G5 leert, wenn in den Zellen H5 und E5 ein Datum steht
H5 leert, wenn in den Zellen E5 und F5 ein Datum steht

Das Ganze soll auch für die Zeilen 6-15 so umgesetzt werden.

Liebe Grüße

Florian
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen automatisch löschen
09.10.2024 14:29:06
Onur
Das klappt aber nur, wenn der User alles in der richtigen Reihenfolge eingibt.
AW: Zellen automatisch löschen
09.10.2024 15:31:41
ChocoMog
Ja, so ist es gedacht. Das Ganze soll die vier Quartale im Jahr darstellen. Wenn ich quasi im neuen Quartal einen Termin (also Datum) eingebe, dann soll das Datum, das im Vor-Vor-Quartal eingestellt ist, verschwinden. Ich möchte keine unendlich lange bzw. anwachsende Liste erstellen, sondern wie bereits geschildert einen Kreislauf, der auf vier Daten pro Zeile begrenzt ist. Zumindest wenn es so funktioniert, wie ich es mir vorstelle ;)
Anzeige
AW: Zellen automatisch löschen
10.10.2024 18:32:59
GerdL
Hallo Florian,
abgestellt auf Werte (nicht nur Datumswerte). 
Private Sub Worksheet_Change(ByVal Target As Range)



    With Target

    

        If Intersect(.Cells, Range("E5:H15")) Is Nothing Then Exit Sub

        If .CountLarge > 1 Then Exit Sub

        If .Cells = "" Then Exit Sub

        Application.EnableEvents = False

    

        Select Case .Column

            Case 5 'E

                    .Offset(0, 2) = ""

                    If .Offset(0, 3) > "" Then .Offset(0, 1) = ""

            Case 6 'F

                    If .Offset(0, -1) > "" Then .Offset(0, 1) = "": .Offset(0, 2) = ""

                    If .Offset(0, 1) > "" Then .Offset(0, -1) = "": .Offset(0, 2) = ""

            Case 7 'G

                    If .Offset(0, -1) > "" Then .Offset(0, -2) = "": .Offset(0, 1) = ""

                    If .Offset(0, 1) > "" Then .Offset(0, -2) = "": .Offset(0, -1) = ""

            Case 8 'H

                    .Offset(0, -2) = ""

                    If .Offset(0, -3) > "" Then .Offset(0, -1) = ""

        End Select

            

    End With



    Application.EnableEvents = True



End Sub

Gruß Gerd
Anzeige
AW: Zellen automatisch löschen
09.10.2024 15:41:08
Onur
Wieso antwortest du dir sebst?
In welcher Reihenfolge soll denn eingegeben werden?
AW: Zellen automatisch löschen
10.10.2024 00:18:45
ChocoMog
Hallo Onur,

die Reihenfolge der Eingabe ist:

E5 -> F5 -> G5 -> H5

und dann soll es wieder mit E5 neu beginnen. Und wie gesagt, in den Zeilen 6 - 15 soll es genauso angewandt werden können.

Viele Grüße

Florian
Anzeige
AW: Zellen automatisch löschen
10.10.2024 00:31:25
Onur
"die Reihenfolge der Eingabe ist: E5 -> F5 -> G5 -> H5 " ???
Dann passiert jedes mal Folgendes:

Eingabe E5 - E5 leert, wenn in den Zellen F5 und G5 ein Datum steht - NEIN, da F5 und G5 leer.
Danach
Eingabe F5 - F5 leert, wenn in den Zellen G5 und H5 ein Datum steht - NEIN, da G5 und H5 leer.
Danach
Eingabe G5 - G5 leert, wenn in den Zellen H5 und E5 ein Datum steht - NEIN, da H5 leer.
Danach
Eingabe H5 - H5 leert, wenn in den Zellen E5 und F5 ein Datum steht - JA, da in den Zellen E5 und F5 ein Datum steht.
Anzeige
AW: Zellen automatisch löschen
10.10.2024 01:17:30
ChocoMog
Hallo Onur,

es tut mir leid, wenn ich mich unverständlich ausdrücke und Danke, dass du dir die Zeit nimmst. Ich bin dir dafür sehr dankbar. Die Ausgangslage ist folgende:

in den Zellen G5 und H5 steht ein Wert (Datum) -> ich gebe in E5 einen Wert (Datum) ein -> dadurch soll der Wert in G5 gelöscht werden
jetzt steht in den Zellen H5 und E5 ein Wert -> ich gebe in F5 einen Wert ein -> dadurch soll der Wert in H5 gelöscht werden
jetzt steht in den Zellen E5 und F5 ein Wert -> ich geben in G5 einen Wert ein -> dadurch soll der Wert in E5 gelöscht werden
jetzt steht in den Zellen F5 und G5 ein Wert -> ich gebe in H5 einen Wert ein -> dadurch soll der Wert in F5 gelöscht werden

jetzt steht in den Zellen G5 und H5 ein Wert -> und ich bin wieder bei der Ausgangslage
Anzeige
;

Forumthreads zu verwandten Themen

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
Alle komplett leeren ZEILEN löschen
Tobias

Hallo allesamt,
ich würde gerne alle Zeilen Löschen, wenn nichts in den zellen steht
habs hiermit versucht:
Sub LeereZeilenLöschen() Dim tmp Dim x Application.ScreenUpdating = False ActiveSheet.Unprotect Password:=passw tmp = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row For...
14.03.2009 00:09:37
Thread-ID: 1060081
8 Beiträge
Formate in Zellen per Makro entfernen.
Joachim

Hi,
gibt es in VBA einen Befehl, mit dem man zB Spalte D so bearbeiten kann, dass alle Formateinstellungen rausfliegen, also alles sozusagen auf Standard steht.
Danke
Joachim
25.03.2009 18:56:49
Thread-ID: 1063929
4 Beiträge
Zeilen nicht drucken, wenn Spalte leer oder 0
Berlenbach

Hallo,
ich habe ein Problem mit dem unten angegebenen und hier veröffentlichten Makro:
Sub Drucken() Dim iRowL As Integer, iRow As Integer iRowL = Cells(Rows.Count, 3).End(xlUp).Row For iRow = 1 To iRowL If IsEmpty(Cells(iRow, 3)) Or Cells(iRow, 3).Value = 0 Then Rows(iRow).Hidden = T...
01.04.2009 09:37:06
Thread-ID: 1065835
8 Beiträge
Hyperlink entfernen und Zelle einfärben / Wert ?
Selma

Hallo Leute,
was muss ich in unten stehendem Makro anpassen, damit nicht nur der Hyperlink in Spalte C entfernt wird, sondern auch der Wert der nach dem Entfernung des Hyperlinks stehen bleibt ?
Sub Hyperlink_Makro() 'Wenn in Spalte C die Zelle die Füllfarbe 22 und ein Hyperlink hat d...
07.05.2009 15:13:04
Thread-ID: 1073652
17 Beiträge
Zeilen löschen wenn ...
Marion65

Hi zusammen,
habe eine Tabelle hochgeladen, mein Problem ist dort beschrieben.
Gruß Marion
https://www.herber.de/bbs/user/62707.xls
24.06.2009 04:57:02
Thread-ID: 1083974
8 Beiträge
Zeilen löschen wenn ...
Marion65

Hallo zusammen,
habe mein Problem in der Beispieldatei beschrieben. Für Eure Hilfe wäre ich Dankbar.
Gruß Marion
https://www.herber.de/bbs/user/62728.xls
Ps. Franz hatte mir schon ein Makro gebastelt, doch leider funktioniert es nicht richtig.
Sub BegriffSuchenZeilenLoesc...
24.06.2009 20:27:47
Thread-ID: 1084196
8 Beiträge
Leere und Nichtleere Zellen einer Spalte rechnen
Urmila

Hallo,
habe ien Problem, ich habe eine Liste, in Spalte A stehen Werte (Zahlen), in der Spalte B stehen Namen.
Nun will ich, dass er mir in der Zelle D1 alle Werte aus spalte A ausrechnet, wo die Zellen in Spalte B Inhalte haben, und in Zelle E1 wo kein Inhalt steht.
Ich hoffe ich k...
30.06.2009 12:41:41
Thread-ID: 1085323
4 Beiträge
Zeile Löschen wenn aktuelle Spalte leer ist
Lutz

Hallo Excel-Spezialisten,
ich bekommen immer sehr umfangreiche Listen und muß nach bestimmten Kriterien löschen.
Ich bräuchte jetzt ein Makro, dass alle Zeilen löscht bei denen in der aktiven Spalte kein Eintrag ist - und eines, dass alle Spalten löscht bei denen in der aktuellen Zeile...
10.07.2009 21:58:59
Thread-ID: 1087780
4 Beiträge
Anzeige
leere Zellen löschen
Udo

Hallo zusammen,
ich hab folgendes Problem:
In Spalte A und B stehen Zahlen drin, wenn in Spalte A eine Zelle leer ist, steht in Spalte B eine Zahl und umgekehrt. Nun möchte ich die Werte der Spalten A und B zusammenführen, so dass ich nur eine Spalte mit den Zahlen habe ohne leere Zelle...
25.07.2009 21:51:47
Thread-ID: 1091320
20 Beiträge
Zeilen löschen, wenn in Spalte A nicht fett?
Selma

Hallo Leute,
ich möchte ab Zeile 1 bis Zeile 5000 folgende Zeilen löschen:
Wenn in Spalte A die Zelle leer ist, dann Zeile löschen
Wenn in Spalte A die Zelle gefüllt ist, aber nicht fett ist, dann die Zeile löschen.
Wie mache das per VBA ?
Besten Dank im Voraus !
VG,
...
28.07.2009 22:58:24
Thread-ID: 1092081
7 Beiträge
Alle Zeilen löschen mit Spaltenbedingung ?
alexander

Hallo,
wie ist es möglich das mir ein Makro alle Zeilen löscht wo in Spalte G nichts steht. Das Makro sollte in Zeile 5 beginnen zu laufen.
Danke,
Alex
16.09.2009 10:37:32
Thread-ID: 1103140
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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