Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1668to1672
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle leeren, wenn bestimmtest Datum erreicht ist

Zelle leeren, wenn bestimmtest Datum erreicht ist
25.01.2019 09:22:48
Timo
Hallo zusammen, 😊
ich bin überfragt, liegt wohl daran, dass ich Neuling mit VBA bin.
Vielleicht könnt ihr mir ja helfen.
Ich habe eine Datei mit folgenden Daten:
Spalte U = Datum(Bsp. 31.07.2019)
Spalte K bis P = Private Daten
Ich möchte gerne, wenn das Datum in U7 der 31.07.2019 ist, dass die Zellen K7 – P7 automatisch am 31.07.2019 geleert (nicht gelöscht) werden und die Zellen K7 – P7 auch am 31.07.2019 automatisch gefärbt werden (z. B. Grau, Farbindex 16).
Das ganze dann für alle Zeilen.
Ist es überhaupt möglich?
Freue mich auf eure Antworten.

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle leeren, wenn bestimmtest Datum erreicht ist
25.01.2019 10:20:55
Daniel
Hallo Timo,
versuchs mal so:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Loeschdatum As Date
Dim cell As Range
Dim Check As Boolean
For Each cell In Range(Cells(1, "U"), Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, "U"))
Loeschdatum = Cells(cell.Row, "U")
If Loeschdatum
Das Ganz musst du unter "Diese Arbeitsmappe" einfügen. In diesem Fall führt er den Code vor dem Speichern der Tabelle aus. Du könntest das Event natürlich auch ändern auf Workbook_Open oder was auch immer am Meisten Sinn macht.
Gruß
Daniel
Anzeige
AW: Zelle leeren, wenn bestimmtest Datum erreicht ist
25.01.2019 11:49:00
Timo
Hallo Daniel,
vielen, vielen Dank für deine sehr schnelle Antwort ;)
Leider tut sich nichts, anscheindend speichert Excel das Makro auch nicht.
Ich bin wie folgt vorgegangen:
Entwicklertools\Code\Makros
- - - Beliebigen Makroname eingegeben
- - - Makros in "Diese Arbeitsmappe" ausgewählt
- - - Erstellen
- - - - Automatisch eingefügten Code entfernt
- - - - Dein Code eingefügt
- - - - Gespeichert
- - - - Geschlossen über "X"
Über Datei\Speichern habe ich es als ".xlsm" gespeichert und geschlossen.
Nach erneuten öffnen, sind die Zellen noch gefüllt.
Nach Überprüfung unter Entwicklertools\Code\Makros\Diese Arbeitsmappe ist auch kein Makro aufgezeichnet.
Vielleicht kannst du mir weiter behilflich sein :)
Danke und Gruß
Timo
Anzeige
AW: Zelle leeren, wenn bestimmtest Datum erreicht ist
25.01.2019 12:00:13
Daniel
Nicht ganz, dann speichert er das Makro trotzdem in einem Modul.
Speicher am besten deine Tabelle schon vorher als .xlsm ab. Dann öffnest du mit Alt+F11 den VBA Editor. Links oben siehst du die aktiven Arbeitsmappen. Unter deiner Arbeitsmappe siehst du unter Microsoft Excel Objekte ein Feld "DieseArbeitsmappe". Da gehst du rauf und kopierst den Code rein.
Der Code wird jetzt ausgeführt, sobald du die Tabelle speicherst.
Versuch noch mal.
AW: Zelle leeren, wenn bestimmtest Datum erreicht ist
25.01.2019 12:46:27
Timo
Hallo Daniel,
danke für deine weitere Rückmeldung. Ich hoffe ich stelle mich jetzt nicht zu d*** an. Leider sehe ich im Editor keine aktiven Arbeitsmappen - Screenshot anbei - und wo finde ich bzw. was meinst du mit unter Microsoft Excel Objekte ein Feld "DieseArbeitsmappe".
Userbild
Anzeige
AW: Zelle leeren, wenn bestimmtest Datum erreicht ist
25.01.2019 12:50:02
Daniel
Unter Ansicht müsstest du dann erstmal den Projekt-Explorer und den Code anzeigen. Dann sollte es offensichtlicher werden.
AW: Zelle leeren, wenn bestimmtest Datum erreicht ist
25.01.2019 13:08:42
Timo
Hallo Daniel,
danke :)
Das Problem ist leider immer noch nicht gelöst
"Laufzeitfehler '13': Typen unverträglich"
Loeschdatum = Cells(cell.Row, "U") wird gelb markiert.
AW: Zelle leeren, wenn bestimmtest Datum erreicht ist
25.01.2019 13:52:52
Daniel
In Uwes Lösung sieht man, dass die Variable auch überflüssig ist (keine Ahnung warum der Fehler hochkommt). Lösch einfach die Zeile und ändere die If Abfrage:
For Each cell In Range(Cells(1, "U"), Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, "U"))
If cell

Anzeige
AW: Zelle leeren, wenn bestimmtest Datum erreicht ist
25.01.2019 14:19:34
UweD
Hallo Daniel
der Fehler tritt auf, wenn die Zelle Text enthält (Überschrift)
Da du Loeschdatum als Datum definiert hast.
Deshalb arbeite ich nur die Zellen mit Zahlen ab SpecialCells(xlCellTypeConstants, 1)
(Prüfe natürlich vorher ob überhaupt welche da sind)
LG UweD
AW: Zelle leeren, wenn bestimmtest Datum erreicht ist
25.01.2019 14:22:16
Daniel
Danke Uwe, das mit den SpecialCells wird ich mir auf jeden Fall merken!
AW: Zelle leeren, wenn bestimmtest Datum erreicht ist
25.01.2019 13:22:57
UweD
Hallo
hier noch eine Lösung
Muss in DieseArbeitsmappe
Microsoft Excel Objekt DieseArbeitsmappe 
Option Explicit 
 
Private Sub Workbook_Open() 
    Dim RNG1 As Range, RNG2 As Range, Zeile, i As Long 
     
    Set RNG1 = Columns(21) ' Spalte U 
    Set RNG2 = Columns(11).Resize(, 6) 'K:P 
     
    If WorksheetFunction.Count(RNG1) > 0 Then 
        'Zahlen in Spalte vorhanden 
        For Each Zeile In RNG1.SpecialCells(xlCellTypeConstants, 1) 
            'Wenn kleiner/gleich heute dann weg 
            If Zeile <= Date Then 
                With Intersect(Zeile.EntireRow, RNG2) 
                    .ClearContents 'leeren 
                    .Interior.ColorIndex = 16 'färben 
                    i = i + 1 
                End With 
            End If 
        Next 
        MsgBox i & " x Datensatz gelöscht" 
    Else 
        MsgBox "Keine Daten gelöscht" 
    End If 
End Sub

LG UweD
Anzeige
AW: Zelle leeren, wenn bestimmtest Datum erreicht ist
25.01.2019 13:56:13
Daniel
Schöne Lösung Uwe!
Warum benutzt du Intersect für die Auswahl der zu leerenden Zellen? Freue mich immer drüber, dazuzulernen!
AW: Zelle leeren, wenn bestimmtest Datum erreicht ist
25.01.2019 14:23:31
UweD
Hallo nochmal
Ich arbeite gerne mit Variablen, die ich im Kopf angebe. Bei Änderungswünschen muss man dann nur an einer Stelle suchen. Also in dem Fall die beiden Spaltenbereiche
Interscet ist dabei die Schnittmenge aus der aktuellen Zeile mit den festgelegten Spalten
LG UweD
AW: Zelle leeren, wenn bestimmtest Datum erreicht ist
25.01.2019 14:31:19
Daniel
Ja das klingt sinnvoll, besser gleich richtig machen.
Intersect war mir prinzipiell bekannt aber in dem Zusammenhang nicht wirklich in den Sinn gekommen. Aber stimmt, das ist dann natürlich sehr flexibel wenn plötzlich Änderungswünsche auftauchen (was ja offensichtlich regelmäßig der Fall ist...).
Grüße und Danke nochmal
Anzeige
AW: Zelle leeren, wenn bestimmtest Datum erreicht ist
28.01.2019 07:37:09
t.re@mail.de
Hallo,
vielen Dank euch beiden :)
Ihr habt mir sehr geholfen.
Den Code von Uwe konnte ich problemlos einfügen und es funktioniert ;)
Vielen Dank!
Grüße

331 Forumthreads zu ähnlichen 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
Leere Zellen Überspringen
Michael

Moin zusammen,
habe ja gestern durch euch einige Probleme lösen können:-) Danke nochmal.
Ich habe einen einfachen Makro erstellt, um den gesamten Inhalt eine Arbeitsmappe zu markieren, um die Werte dann in eine andere zu kopieren.
Range("A2:AD2").Select
Range(Selection, Selectio...
11.09.2008 10:06:00
Thread-ID: 1008990
5 Beiträge
"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
Anzeige
Warum leere Zelle "" >0 ???
Simon

Hallo,
ich verstehe das Ergebnis meiner Formel nicht ganz:
ich habe eine wenn Funkion nach folgendem Schema gemacht:
wenn(A1=5;"ok";"")
Das Ergbnis ist also entweder 5 oder eine leere Zelle. Wenn ich nun mit dieser "leeren Zelle" weiter arbeite, behandelt Excel die "" Zelle imme...
15.09.2008 10:08:00
Thread-ID: 1009683
13 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
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
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
6
4
15
5
12
2
9
2
9
4
3
10
4
2
5
5
4
2
7
7
1
5
9
1