Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Excelspalte in Listbox einlesen?
Autor: ELD
Datum: 24.04.02 14:01
Hallo hier ist ein Makro, dasman in Excel einbinden kann. ----------------------------------------------------- Dim z, unterordner As Variant Sub SuchenUnpack() Dim Laufwerk, Dateien As String z = 2 'Tabellenbereich löschen [a1:d4000] = "" Laufwerk = "C:\" Laufwerk = InputBox("In welchen Ordner wollen Sie suchen:", "Laufwerk &Ordner", "C:isdnunpacked") If Laufwerk = "" Then Exit Sub unterordner = MsgBox("Unterordner mit einbeziehen?", vbYesNo, "Unterordner") Dateien = "*.*" Dateien = InputBox("Nach welchen Dateien wollen Sie suchen:", "Dateityp", "*.*") If Dateien = "" Then Exit Sub Dateisuche Laufwerk, Dateien End Sub Sub Dateisuche(Laufwerk, Dateien) Dim temp, wdhlg, Dateiname As String On Error Resume Next If Right(Laufwerk, 1) <> "\" Then Laufwerk = Laufwerk + "\" temp = Dir(Laufwerk & Dateien) Do While Len(temp) Dateiname = Laufwerk & temp Application.StatusBar = Dateiname Cells(z, 1).Select Cells(z, 1) = Laufwerk & temp Cells(z, 2) = FileLen(Laufwerk & temp) Cells(z, 3) = FileDateTime(Laufwerk & temp) Cells(z, 4) = temp z = z + 1 temp = Dir() Loop temp = Dir(Laufwerk, vbDirectory) If unterordner = vbNo Then temp = "" Do While Len(temp) If (temp <> ".") And (temp <> "..") Then If (GetAttr(Laufwerk & temp) And vbDirectory) = vbDirectory Then Dateisuche Laufwerk & temp, Dateien z = z + 1 wdhlg = Dir(Laufwerk, vbDirectory) z = z + 1 Do While wdhlg <> temp wdhlg = Dir() Loop End If End If temp = Dir() Loop On Error GoTo 0 Application.StatusBar = False End Sub ------------------------------------------------ einfach alles kopieren und abspeichern, notfalls sende ich es die per mail. Gruß ELD

Excelspalte in Listbox einlesen?	36	Karl	24.04.02 13:43
Re: Excelspalte in Listbox einlesen?	25	ELD	24.04.02 14:01
Re: Excelspalte in Listbox einlesen?	27	ELD	24.04.02 14:09
Re: Excelspalte in Listbox einlesen?	18	Karl	24.04.02 14:34

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen