Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
776to780
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
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

321 Forumthreads zu ähnlichen 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
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
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
Anzeige
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
Monat und Jahr aus Datum extrahieren
ItsMyLife

Hallo,
für ein Diagramm will ich die Anzahl von Datensätzen die nach dem Datumsfeld in einen Monat fallen ermitteln.
Wie kann ich den Monat und das Jahr aus einem Datumsfeld extrahieren.
Ich meine nicht die Anzeige (Format Zellen), sondern den tatsächlichen Feldinhalt?
19.05.2009 14:21:13
Thread-ID: 1076146
3 Beiträge
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
Teil des Datums in anderer Zelle als Zahl anzeigen
Karsten

Hallo,
in A1 steht bei mir 07.09.2009. Ich möchte, dass in B1 von diesem Datum nur die 7 als "normale" Zahl - nicht im Datumformat, angezeigt wird. Ich brauche diese Zahl zum weiterverarbeiten. Da sich das Datum auch ändert kann es auch eine andere Zahl außer der 7 sein.
Kann mir dabei...
05.09.2009 17:51:23
Thread-ID: 1100792
3 Beiträge
Anzeige

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