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
1532to1536
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
1532to1536
1532to1536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalt mit VBA nur löschen wenn HEUTE oder älter

Inhalt mit VBA nur löschen wenn HEUTE oder älter
18.01.2017 16:22:08
Ralph
Hallo Zusammen
Ich bin mit meinem Tool leider immer noch nicht fertig und ich habe immer wieder zusätzliche Ideen.
Wie muss ich den CommandButton1 mit VBA ergänzen, damit es nur die Zelleninhalt löschte welche das heutige Datum aufweisen oder älter sind?
https://www.herber.de/bbs/user/110676.xlsm
Besten Dank für eure Unterstützung.
Gruss Ralph

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Inhalt mit VBA nur löschen wenn HEUTE oder älter
18.01.2017 16:47:29
Hajo_Zi
Hallo Ralph,
mal aus mweinem Archiv. 
Sub löschen()
‘ mit bestimmten Datum löschen, Heute =Date
Dim LoI As Long
Dim LoLetzte As Long
' letzte Zelle in Spalte A unabhängig von Version
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
On Error Resume Next
For LoI = LoLetzte To 1 Step -1
If IsDate(Cells(LoI, 1)) Then
If CDate(Cells(LoI, 1)) = CDate("23.12.1989") Then Rows(LoI).Delete
End If
Next
On Error Goto 0
End Sub

Inhalt mit VBA nur löschen wenn HEUTE oder älter
18.01.2017 16:56:01
Ralph
Hallo Hajo
Muss ich den bestehenden löschen oder mit deinem ergänzen?
Gruss Ralph
Anzeige
Inhalt mit VBA nur löschen wenn HEUTE oder älter
18.01.2017 16:58:34
Hajo_Zi
Hallo Ralph,
ich habe mir Deine Datei nicht angeschaut, und da Du schon ein Programm geschrieben hast nin ich davon ausgegangen das Du Dich mit VBA auskennst.
Gruß Hajo
Inhalt mit VBA nur löschen wenn HEUTE oder älter
18.01.2017 17:02:22
Ralph
Hallo Hajo
Leider nein, den Code verstehe ich langsam, aber schreiben oder viel ändern kann ich noch nicht.
Könntest Du mir weiterhelfen?
Gruss Ralph
geänderter Code
18.01.2017 17:18:41
Hajo_Zi
Halo Ralph,
ich teste nichts. 
Private Sub CommandButton1_Click()
Dim letzteZeile&, aktZeile&
'letzte Zeile in Spalte A bestimmen
letzteZeile = Cells(Rows.Count, 12).End(xlUp).Row
'Geschwindigkeitsoptimierung einschalten
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For aktZeile = 2 To letzteZeile
If Cells(aktZeile, 12)  "x" Then
Cells(aktZeile, 12) = ""
'                .AddComment
'                .Comment.Text Text:="bla"
End If
If IsDate(Cells(aktZeile, 12)) Then
If CDate(Cells(aktZeile, 12)) = CDate("23.12.1989") Then Rows(LoI).Delete
End If
Next
'Geschwindigkeitsoptimierung einschalten
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Gruß Hajo
Anzeige
AW: geänderter Code
18.01.2017 17:32:02
Ralph
Hoi Hajo
Leider löscht es mir wieder alle Datum heraus. Es sollte jedoch nur die löschen welche älter oder gleich Heute sind und das x sollte auch stehen bleiben.
Ich teste doch gerne, da ich froh um Euch bin.
Gruss Ralph
Danke
AW: geänderter Code
18.01.2017 17:35:30
Hajo_Zi
Hallo Ralph, 

mein Code vergleicht mit = CDate("23.12.1989") lesen kannstz Du doch? da sollte

Gruß Hajo
AW: geänderter Code
18.01.2017 17:42:25
Ralph
Sorry geht immer noch nicht. Hast Du noch mehr Ideen auf Lager?
Gruss Ralph
AW: geänderter Code
18.01.2017 17:45:59
Hajo_Zi
Hallo Ralph,
mir ist das nun nzu blöd, Du kannst nicht lesen.
Das Dein Datum niccht in Spalte 12 ist, fällt Dir nicht auf.
Ich bin dann raus. Da Du nicht lesen kannst.
Gruß Hajo
Anzeige
AW: geänderter Code
18.01.2017 19:03:19
Ralph
Hallo Hajo
Sorry wenn ich dich verärgert habe. Ich komme bei der Spalte L auf die Zahl 12.
Könnte mir sonst noch jemand helfen?
Gruss Ralph
Dank an Hajo
AW: geänderter Code
18.01.2017 19:19:53
Ralph
Hallo Zusammen
Endlich habe ich es geschafft auch mit der Hilfe von Hajo. Anbei der Code.
Private Sub Abgemacht_Click()
Dim letzteZeile&, aktZeile&
'letzte Zeile in Spalte A bestimmen
letzteZeile = Cells(Rows.Count, 12).End(xlUp).Row
'Geschwindigkeitsoptimierung einschalten
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For aktZeile = 2 To letzteZeile
If Cells(aktZeile, 12)  "x" And Cells(aktZeile, 12)
Besten Dank an alle
Gruss Ralph
PS: Es war die Spalte 12 ;-)
Anzeige
AW: geänderter Code
18.01.2017 19:20:33
Ralph
So jetzt ist er geschlossen.
AW: geänderter Code
18.01.2017 19:21:01
Ralph
Jetzt

301 Forumthreads zu ähnlichen Themen

Inputbox Schriftart oder Farbe verändern
Gunter

Hallo Zusammen,
ich habe eine Inputbox, über die eine Passwortabfrage gesteuert wird. Leider ist das Passwort im Eingabefeld zu sehen. Ist es möglich den Text z.B. in der Schriftart "Wingdings" zu formatieren, oder
die Schriftfarbe in weiss, damit das Passwort nicht mehr zu sehen ist?
28.08.2008 15:32:00
Thread-ID: 1005474
7 Beiträge
Anzeige
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
Zugriff auf Access-DB über DAO oder ADO
Armin

Hallo,
ich hätte eine allgemeine Frage zum Zugriff auf Access-Datenbanken.
Welche Zugriffsmethode auf eine Access-DB würdet Ihr generell empfehlen: ADO oder DAO?
Gibt es in der Praxis Vor- oder Nachteile für die eine oder andere Zugriffsweise?
Vielen Dank für Euere Meinungen und...
03.09.2008 14:28:55
Thread-ID: 1007110
2 Beiträge
Anzeige
PIVOTDATENZUORDNEN mit zwei Kriterien
Andi

Hallo Experten,
Ich versuch zurzeit eine Auswertung aus einer Pivot Tabelle zu erstellen, komm jedoch nicht weiter da ich zwei Kriterien in der X-achse und eins in der Y-achse berücksichtigen muss. Das heisst ich kann nicht einfach X-Achse und Y-achse mit der Pivot-tabelle abgleichen, sonde...
14.10.2008 12:16:00
Thread-ID: 1016295
5 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Schaltflächen oder Image Beispiele
Walter

Hallo Zusammen,
erst mal ALLEN ein gesundes neues Jahr !!!
Ich such Schaltflächen oder Image Beispiele, hatte mal in Google gesucht, leider
nichts gefunden,
vielleicht hat jemand eine Beispielmappe,
mfg Walter
01.01.2009 13:10:00
Thread-ID: 1036231
9 Beiträge
Excel-Bug oder was?
Andreas

Hallo,
Haben seit gestern folgendes Problem, welches auch schon zu
"Schäden" geführt hat. Sonst hätte ich es ja auch nicht bemerkt.
Excel-Problem nach Update von MS Office Kompatibilitätspack 2007
Wenn eine Exceldatei *.xls (2003) über Extras - Schutz - Arbeitsmappe schützen
...
16.01.2009 12:09:00
Thread-ID: 1040524
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
6
5
5
1
5
4
5
6
8
2
11
2
2
3
8
4
7
3
15
3
16
5
4
2
1