Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1524to1528
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
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum aus Zelle lesen

Datum aus Zelle lesen
24.11.2016 05:00:29
Dave
Hallöchen,
ich verzweifle gerade mit einer Aufgabe, aber naja ist Nachtschicht, ich hoffe mir wird verziehen.
Kommen wir zum Problem:
Ich habe in einer Zelle einen Ausdruck der aus Text und Datum besteht.
Beispiel: In "D38" steht "Freigabe / 25.10.2015"
Ich möchte nun in einem nach rechts verlaufendem Bereich (ca. "D38" bis "FQ47", kann aber entsprechend mehr dazu kommen), dass die Zellen in denen ein Datum steht, welches älter als 1 Jahr ist, gelöscht werden.
Dabei sollen aber nicht die Zeilen von gleich welcher Richtung nachrücken.
Ich hoffe mein Problem ist verständlich, ansonsten versuche ich es noch genauer zu erklären :)
Gruß
Dave

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum aus Zelle lesen
24.11.2016 07:19:20
baschti007
Also wenn das Datum immer mit einem / getrennt wird geht das so
Gruß Basti
Sub sdfsdf()
Dim A, r, c
A = ThisWorkbook.Worksheets("Tabelle1").Range("D38:H39") ' hier de range anpassen
For r = LBound(A, 1) To UBound(A, 1)
For c = LBound(A, 2) To UBound(A, 2)
If Date > DateAdd("yyyy", 1, CDate(LCase(Split(A(r, c), "/ ")(1)))) Then
A(r, c) = vbNullString
End If
Next
Next
ThisWorkbook.Worksheets("Tabelle1").Range("D38").Resize(UBound(A, 1), UBound(A, 2)) = A
End Sub

AW: Datum aus Zelle lesen
24.11.2016 09:44:09
Werner
Hallo Dave,
nachdem ich mir jetzt auch schon Gedanken darüber gemacht habe, stelle ich meine Version auch noch ein, obwohl du schon einen Lösungsvorschlag von Baschti hast.
Public Sub löschen()
Dim strInhalt As String
Dim rngLöschbereich As Range
Dim rngZelle As Range
With Sheets("Tabelle1") 'ggf. anpassen
Set rngLöschbereich = .Range("D38:FQ47") 'Löschbereich anpassen
For Each rngZelle In rngLöschbereich
strInhalt = Replace(rngZelle, " ", "") 'Leerzeihen entfernen
If Not strInhalt = vbNullString Then
strInhalt = Right(strInhalt, Len(strInhalt) - InStrRev(strInhalt, "/", ,  _
vbTextCompare))
If IsDate(strInhalt) Then
If CDate(strInhalt)
Gruß Werner
Anzeige
AW: Datum aus Zelle lesen
25.11.2016 01:14:30
Dave
Hallo Basti und Werner,
leider hat Bastis Antwort nicht geklappt, mir wurde immer wieder ein Index-Fehler angezeigt und da ich leider den Code selbst nicht so ganz verstehe kann ich ihn nicht sinnvoll abändern.
Werners Code funktioniert super, aber irgendwie erwischt er nicht alles.
Aus irgendeinem Grund, den ich nicht nachvollziehen kann, werden ab und an Zellen in denen das Datum definitiv älter ist als 365 Tage nicht gelöscht z.B. welche vom 31.4.15.
Obwohl die Zellen genauso wie die anderen sind und auch in der Range sind.
Vllt eine Idee woran es liegen könnte?
Hab schon versucht die Range genau auf den Bereich zu legen und es passiert trotzdem nix :/
Gruß
Dave
Anzeige
AW: Beispieldatei
25.11.2016 01:59:03
Werner
Hallo Dave,
das wäre gestochere im Nebel, ich vermute mal, dass es sich um kein echtes Datum handelt oder so. Lade mach eine Beispieldatei hoch bei der es nicht klappt.
Aber bitte eine xls, also ohne Makros. Dateien mit Makros kann ich im Moment nicht herunterladen.
Gruß Werner
AW: Was mir gerade auffällt!!!!
25.11.2016 02:21:22
Werner
Hallo Dave,
ist wohl der Zeit geschuldet (bei mir), dass mir das nicht aufgefallen ist.
Aber schau dir mal das Datum an, das nicht gelöscht wird.
In meinem Kalender gibt es den 31.04. (egal in welchem Jahr) nicht.
Gruß Werner

306 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
Zahlen aus aus Text extrahieren und addieren
Bernd

Hallo,
ich würde gerne aus einer Zelle, die sowohl Zahlen, aber auch Text enthält, die Zahlen "extrahieren" und miteinander addieren. Der Inhalt der Zelle B2 z.B. würde so aussehen:
'+15 Autos;-10 Waschmaschinen;-3 Schränke
Nun möchte ich in Zelle C2 das Ergebnis sehen: 2
Wie kö...
11.09.2008 16:20:36
Thread-ID: 1009173
10 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Anzeige
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
ich hab' immer noch mein kleines Problem, vielleicht weiß hier ja einer weiter?
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
18.03.2009 13:41:01
Thread-ID: 1061396
6 Beiträge
Einträge aus Textdatei extrahieren
Stefan

Hallo,
ich habe eine Textdatei, in der sich Email Adressen immer an einer Stelle finden, die so aufgebaut ist:
xxxxx@yahoo.de
Wie kann ich alle Email Adressen automatisiert aus dieser Datei auslesen?
Daaaanke
Stefan
31.03.2009 12:35:38
Thread-ID: 1065586
3 Beiträge
Datum und Uhrzeit aus Textbox passend in Tabelle e
Karsten

Hallo
Ich lese mit einer Userform ein Datum und eine Uhrzeit aus.
Wenn ich die wieder in die gleich Zelle schreiben lasse, werden sie nicht rechtsbündig sondern linksbündig gespeichert und nicht richtig "benutzt.
Wenn ich in der Zelle nur Enter drücke, wird das Datum und auch die Uh...
06.04.2009 19:01:58
Thread-ID: 1067159
3 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
6
6
9
3
2
5
3
5
2
2
4
2
13
3
4
3
2
2
3
8
7
10
4
2
8