Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
200to204
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
200to204
200to204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

fillistbox in vba?

fillistbox in vba?
14.01.2003 13:45:20
Tim
Hallo zusammen,
Ich wollte mal fragen, ob es in vba eine Möglichkeit gibt wie bei vb die Files in einem Ordner aufzulisten, dann eines zu wählen und den Inhalt in einer Variablen zu speichern.
Konkret, ich habe einen Ordner voller Textdateien, die alle ein bestimmtes Format haben. Nun will ich eine *.xlt Starten, es erscheint ein Formular mittels welchem ich eines der Textfiles auswähle, dann klicke ich ok und der Inhalt der Textfiles wird nach einer bestimmten Formatierung in eine *.xlt geschrieben.
Leider scheitere ich schon am Auflisten der Files ...
Wenn das generell nicht möglich ist kann ich auch in vb auf eine *.exe ausweichen die ihrrerseits eine Exceltabelle erzeugt, aber anderes wäre es mir lieber.

Gruß, Tim

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

Betreff
Datum
Anwender
Anzeige
Re: fillistbox in vba?
14.01.2003 13:49:21
Bernd Held
Hallo Tim,

folgender code listet Dir alle Excel-Dateien eines Ordners in einer Tabelle auf.

Sub DateienAuflisten()
Dim i As Long
Const verz = "C:\temp\"
On Error GoTo fehler
ChDir verz
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Offset(1, 0).Select
Next i
End With
Exit Sub
fehler:
MsgBox "Es gibt kein Verzeichnis mit dem Namen " & verz
End Sub

Über die Eigenschaft FileType kannst Du die Art der Dateien auswählen,nach denen Du sichen möchtest.

Viele Grüße
Bernd
MVP für Microsoft Excel
Neue VBA-Bücher, Office-FAQs und Makros unter: http://held-office.de

Anzeige
Re: fillistbox in vba?
14.01.2003 13:49:40
Hajo_ZI
Hallo Tim

dat = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
' Auf die Variable dat wird der Dateinamen geschrieben


Gruß Hajo

Re: fillistbox in vba?
14.01.2003 14:39:36
Tim
Ich danke euch sehr ;o) Excel Tabellen sind also vom Typ
msoFileTypeExcelWorkbooks
Was schreibt man für .txt dateien und wie bekomme ich das ggf. für andere Datentypen raus? Gibt es auch eine "all" funktion?

Gruß, Tim.

Re: fillistbox in vba?
14.01.2003 14:41:39
Tim
Ups, selber beantwortet, der Editor gibt ja die Möglichkeiten vor ;o))
fertiger quelltext
14.01.2003 15:22:54
Tim
Hallo,
Nur falls irgendwann jemand das Selbe machen möchte. So werden die Files zum auswählen in eine Combobox gebracht:

Private Sub UserForm_Initialize()
Dim i As Long
Dim newtxtdat As String
Const verz = "E:\Daten\Textdateien\"
On Error GoTo fehler
ChDir verz

With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
newtxtdat = .FoundFiles(i)
With UserForm1.ComboBox1
.AddItem newtxtdat
End With
Next i
End With
Exit Sub
fehler:
MsgBox "Das Stammverzeichnis wurde nicht gefunden. Bitte erstellen Sie: " & verz

End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Liste "definierter Namen" per VBA?
David

Hallo zusammen,
ist es per VBA möglich, die in einer Tabelle definierten Namen auszulesen, in einem neuen Sheet aufzulisten und daneben den/die mit dem Namen verbundene(n) Bereich bzw. Formel?
Ich würde mir gern bei umfangreichen Namensdefinitionen das Nachschauen im Menü ersparen, da j...
14.08.2008 12:15:44
Thread-ID: 1001809
5 Beiträge
Anzeige
Listbox mit verschiedenen Einträgen mit VBA ausles
Erik

Hallöle.
Folgende Situation:
Auf einem Excel-Sheet liegt eine Listbox. Hier sind unterschiedliche Werte eingetragen die auch einzeln markiert werden können.
Wie lese ich die Listbox mit einem Macro aus und wie vergebe ich ggf. dem Formular-Element einen Namen? Ich möchte dahin komm...
02.02.2009 14:46:09
Thread-ID: 1046261
5 Beiträge
per VBA eine ListBox füllen
Peter

Guten Morgen!
Dank der freundlichen Unterstützung von Tino konnte ich meine Datei bis hierher erstellen.
Ich habe folgendes Problem:
Wenn über die Userform Daten eingegeben werden, werden diese einmal in die Seite Gesamt geschrieben und dann noch in die Seite des ausgewählten Verein...
10.03.2009 08:50:59
Thread-ID: 1058467
13 Beiträge
Anzeige
Dateilisten Makro in VBA?
Christopher

Hallo zusammen,
ich bin via google auf Sie gestossen und habe folgendes bei Ihnen gefunden:
aus dem Beitrag:
https://www.herber.de/forum/archiv/196to200/t197136.htm
Option Explicit
Sub Dateiliste() ' erstellt von Hajo Ziplies 24.12.02 ' Dateiliste für ein Verzeichnis...
30.06.2009 14:23:49
Thread-ID: 1085363
3 Beiträge
Variable Liste in VBA
Diana

Liebes Forum,
ich habe ein Problem. Ich lese mit einem VBA-Makro Messwerte aus. Diese Messwerte werden über einen Namen auf einem anderen Rechner angesprochen. Derzeit gebe ich diese Namen (Adressen) direkt in das Makro ein.
strSQL = "SELECT k055z02_0.Zeit, k055z02_0.A00100001, ..., .....
14.08.2009 14:59:47
Thread-ID: 1096000
4 Beiträge
[VBA] Dreidimensionales Array in Tabellen ausgeben
Thomas

Hallo,
ich habe ein Problem mit der Ausgabe eines Arrays in eine Excel-Tabelle.
Ausgangspunkt ist folgender: With ThisWorkbook.Worksheets(1) .Cells(4, l).Resize(UBound(array, 1), UBound(array, 2)).Value = array End With
Das Array 'array' ist hierin zweidimensional, l wird durch...
06.10.2009 10:25:00
Thread-ID: 1107423
5 Beiträge
Für Array Spezialisten (VBA)
Peter

Hallo Forum,
lässt sich die beigefügte Prozedur vereinfachen?
Danke Peter
Private Sub CmdSpeichern_Click() Dim i As Long Dim ShQ As Worksheet Set ShQ = Worksheets("Test") With ShQ .Cells(2, 58).ClearContents '.Cells(2, 59).Clear '.Cells(2, 60).Clear '.Cells(2, 61).Clear For i = 1 To...
16.11.2009 23:53:28
Thread-ID: 1117799
2 Beiträge
VBA-Einstellung: Elemente automatisch auflisten
Cathy

Hallo zusammen,
in der Entwicklungsumgebung, nach Eingabe einer Anweisung und des Punktes bekomme ich keine automatische Auflistung der logisch, möglichen Elemente mehr.
Meine Einstellungen in der Entwicklungsumgebung unter EXTRAS - OPTIONEN - EDITOR: Elemente automatisch auflisten ist...
02.10.2010 11:00:32
Thread-ID: 1180373
5 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
4
2
4
12
6
2
3
4
1
4
1
5
2
2
5
4
1
8
5
4
1
1
4
6
16