Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
960to964
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
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sheets-Namen im Pfad einlesen

Sheets-Namen im Pfad einlesen
15.03.2008 17:48:11
Heinz
Hallo Leute
Ich habe im Verzeichnis C:\Dokumente und Einstellungen\Heinz\Desktop\Packanweisung
Lauter Sheets mit Namen zB. 12518.xls, 22346.xls usw.. es sind ca.600 Sheets .
Es sind immer 5 Stellige Zahlen mit der Endung .xls
Ich möchte das mir alle Sheets in "Artikeln" ab A3 eingetragen werden, ohne Endung .xls
Also nur 12158 , 22346 als Wert,
Es können eventuell auch andere Sheets ohne .xls Endung im Verzeichnis existieren.
Diese einfach überspringen.
Eventuell vorher alte Einträge ab A3 löschen.
Könnte mir dazu bitte jemand dabei helfen.
Gruß Heinz

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

Betreff
Datum
Anwender
Anzeige
AW: Sheets-Namen im Pfad einlesen
15.03.2008 19:45:00
Erich
Hallo Heinz,
probier mal 

Option Explicit
Sub Dateiliste()
Dim lngZ As Long, strE As String
Const strVerz As String = _
"C:\Dokumente und Einstellungen\Heinz\Desktop\Packanweisung\"
lngZ = 2
strE = Dir(strVerz & "?.xls")
While strE  ""
strE = Left(strE, 5)
If IsNumeric(strE) Then
lngZ = lngZ + 1
Cells(lngZ, 1) = strE
End If
strE = Dir()
Wend
Range(Cells(lngZ + 1, 1), Cells(Rows.Count, 1)).ClearContents
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Dateinamen einlesen
15.03.2008 19:49:00
Erich
Hallo Heinz,
eine Bemerkung hatte ich vergessen:
Sheets sind Tabellenblätter (Namen stehen unten im Blattregister).
Sheets sind Bestandteile von Excelmappen.
Was du meinst, sind Excelmappen / Workbooks / Arbeitsmappen / Exceldateien
(meint alles das selbe).
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Sheets-Namen im Pfad einlesen
16.03.2008 09:17:00
Heinz
Hallo Erich
Erstmals recht herzlichen DANK für Dein Makro.
Läuft Spitze !!
Das sollte ich eigentlich schon wissen !!

Was du meinst, sind Excelmappen / Workbooks / Arbeitsmappen / Exceldateien


Danke für Deine Fachmänische Auskunft.
Danke & Gruß Heinz

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige