Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
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
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auslesen Erstellungsdatum aus Dateiname

Forumthread: Auslesen Erstellungsdatum aus Dateiname

Auslesen Erstellungsdatum aus Dateiname
29.06.2006 15:34:07
Sebastian
Hallo Liebe wissende,
ich habe ein kleines Programm mit Hilfe des Forums gebastelt, mit dessen Hilfe man ein Verzeichnis sozusagen durchsuchen und auflisten kann.
Ich habe aber zwei Sachen, die mir noch am Herzen liegen:
Zum einen würde ich gerne das Erstellungsdatum des Files noch in die 4te Spalte eintragen.
Zum anderen eine kleine Frage, kann man die Auflistung in ein mehrdimensionales Array schreiben, um dann beim Sortieren etwas schneller zu sein?
Das heißt, wenn man doppelte Einträge sucht, dass man im Array nur nach entsprechenden Einträgen schauen muss.
Ist das denn möglich? ich bin euch für jede Hilfe dankbar.
Gruss Sebastian
Hier der File:
https://www.herber.de/bbs/user/34749.xls
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auslesen Erstellungsdatum aus Dateiname
29.06.2006 22:10:11
fcs
Hallo Sebastian,
mit folgeden Anpassung wird auch das Datum in der Tabelle ausgegeben und die Daten in ein Feld geschrieben

Sub t(ByVal strF As String)
Dim FSO, FO, FU, F, Feld()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FO = FSO.GetFolder(strF)
Set FU = FO.SubFolders
With Sheets("Tabelle1")
.Range(Cells(2, "D"), .Range("E65536").End(xlUp)).ClearContents 'alte Liste löschen
'Daten in tabelle schreiben
For Each F In FU
.Range("D65536").End(xlUp).Offset(1, 0).Value = Right(F, Len(F) - Len(Pfad))
.Range("E65536").End(xlUp).Offset(1, 0).Value = VBA.FileDateTime(F)
Next F
' Daten in Feld schreiben
ReDim Feld(1 To .Range("D65536").End(xlUp).Row - 1, 1 To 2)
For I = 1 To .Range("D65536").End(xlUp).Row - 1
For J = 1 To 2
Feld(I, J) = .Cells(I + 1, 3 + J).Value
Next
Next
End With
End Sub

mfg
Franz
Anzeige
AW: Auslesen Erstellungsdatum aus Dateiname
30.06.2006 07:39:34
Sebastian
Kannst du mir das vielleicht so in mein Programm reinbauen, dass es funktioniert?
Ich hab wohl irgend wie den Curchblick verloren...
AW: Auslesen Erstellungsdatum aus Dateiname
30.06.2006 13:47:11
fcs
Hallo Sebastian,
war es so schwierig, das von dir erstellte, vorhandene Makro durch meines zu ersetzen?
Was du jetzt mit dem 2-dimensionalen Array Feld() anstellen willst, das muss du ja noch festlegen .
Hier die Datei: https://www.herber.de/bbs/user/34769.xls
mfg
Franz
Anzeige
;

Forumthreads zu verwandten Themen

Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Anzeige
Datumswerte in Spalte richtig umwandeln
chris

Hallo zusammen,
ich habe ein Problem und würde ecuh um Hilfe bitten.
ich habe eine Exceldatei.in dieser habe ich eine Spalte in dieser stehen Datumswerte.
Nur das Problem ist manche zellen sind nicht als Datum formatiert das merke ich z.b wenn ich den Autofilre verwende sind die Dat...
02.12.2008 11:57:00
Thread-ID: 1029457
6 Beiträge
Datum in Monaten (mit 0,5) - ohne VBA
Wolfgang

Hallo,
ich bin auf der Suche nach einer Formel (nicht VBA), welche die Differenz zwischen Datum in Spalte F und Spalte G (z.B. 12.01.09 - 28.02.09) ermittelt und mir als Monat mit einer Stelle nach dem Komma z.B. 1,5 auswirft. Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
...
20.01.2009 14:30:25
Thread-ID: 1041840
5 Beiträge
Anzeige
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Datum in Zahl umwandeln
Johannes

Hallo!
Habe eine Frage zu Excel:
Ich möchte über eine WENN-Funktion das Datum aus G2 als Zahl in dem entsprechenden Feld (AJ - AP) haben.
Z.B. für "Freitag, 2. Januar 2009" soll in der Spalte AN eine 1 stehen.

Über Hilfe wäre ich SEHR dankbar.
Liebe Grüße
Johannes
04.03.2009 12:20:18
Thread-ID: 1056301
7 Beiträge
Ausgangsdatum + X Monate
Bertram

Hallo zusammen,
ich stehe heute mal wieder voll auf dem Schlauch, daher sollte mein Level lauten "Excel warum-einfach-wenn's-kompliziert-geht"
Ich möchte von einem Ausgangsdatum 3,6,9 und 12 Monate addieren und diese Monate Xen. Mit folgender Formel geht das. Aber geht das auch kürzer?<...
06.03.2009 10:39:42
Thread-ID: 1057192
7 Beiträge
Anzeige
Aus Datum Monat ausgeben
B4u

Hallo,
ich gebe ein Datum ein, aus dessen der Monat vollständig angeben werden soll.
Eingabe = 01.06.2009; Ausgabe = Juni
Hierzu habe ich folgendes Sub. Allerdings wird immer der Januar ausgegeben.
Private Sub txb_aDate_AfterUpdate() Dim strMonat As String Dim anfdate As Var...
01.06.2009 13:33:26
Thread-ID: 1078450
9 Beiträge
Datumsformat in Zahl umwandeln
Karsten

Hallo,
in meiner Zelle steht z.B. 8. im Datumsformat T"." .
Läßt diese 8. auf irgendweise umwandeln in eine Zahl 8. umwandeln?
Mit copy und paste spezial... komme ich nicht weiter.
Danke für eure Hilfe.
Gruß
Karsten
11.07.2009 14:18:15
Thread-ID: 1087869
17 Beiträge
Anzeige
Aus Systemdatum Monatszahl ermitteln
Wolfgang

Hallo,
wäre denkbar, aus dem Systemdatum den Monat als Monatszahl darzustellen, so dass bei WorkbookOpen in Zelle A1 des Tabellenblattes "Start" automatsch die aktuelle Monatszahl minus 1 Monat, also nun 08 erscheint? Kann hierzu unter Recherche bzw. auf der Excel-CD nichts entdecken, so da...
19.09.2009 18:41:39
Thread-ID: 1104115
12 Beiträge
Monat Spalte, Jahres Spalte Datum abziehen
Fred

Hallo,
ich bräuchte mal Hilfe von Euch.
in Zelle A1 steht die Monatszahl (z.B. "5" für Mai)
in Zelle B1 steht die Jahreszahl (z.B. "2009")
darunter in Zelle A2 wieder eine Monatszahl (z.B. "7" für Juli)
und in B2 eine Jahreszahl (z.B. "2004")
nun möchte ich die Differenz...
12.10.2009 15:29:07
Thread-ID: 1109111
3 Beiträge
Enddatum eines Monats bestimmen? (28/29/30/31)
Tim

Hallo,
gibt es in VBA eine Möglichkeit dass Enddatum eines Monats zu bestimmen? Also ich sag ihm Juli und er gibt mir 31 zurück ? Ich könnte auch eine case-anweisung bauen aber vielleicht kann VBA das ja auch schon..
04.11.2009 20:40:00
Thread-ID: 1114589
5 Beiträge
Aus Monats und Jahreszahlen ein Datum erzeugen.
Josef_T

Guten Abend zusammen.
Habe in C1 eine zweistellige Monatszahl und in D1 eine vierstellige Jahreszahl.
zB. so: in C1 steht 08 (August)und in D1steht 2010. Der Monat und das
Jahr wird händig eingetragen. Nun möchte ich, dass in B1 aus den Daten ein Datum erstellt wird,
dass immer...
18.12.2009 21:37:54
Thread-ID: 1124989
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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