Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
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
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

dateien aus ordner anzeigen/öffnen

Forumthread: dateien aus ordner anzeigen/öffnen

dateien aus ordner anzeigen/öffnen
21.10.2005 13:07:16
lexika
HI,
kann mir vielleicht jemand sagen was man tun muß um sich Dateien aus einem Ordner anzeigen zu lassen und bei auswahl einer datei diese dann in einem extra blatt zu öffnen?
Danke
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: dateien aus ordner anzeigen/öffnen
21.10.2005 13:14:25
Matthias
Hallo lexika,
eine Mappe in einem Blatt anzuzeigen, ist etwas schwierig. Machbar wäre, ein bestimmtes Blatt einer Mappe in eine andere Mappe zu kopieren.
Gruß Matthias
AW: dateien aus ordner anzeigen/öffnen
21.10.2005 13:16:35
lexika
HI Matthias,
sorry wegen meiner schlechten Beschreibung.
von der ausgewählten Datei soll nur das erste Blatt kopiert werden.
Gruß
lexika
Anzeige
AW: dateien aus ordner anzeigen/öffnen
21.10.2005 13:23:47
Matthias
Hallo Lexika,

Sub BlattEinfügen()
Dim fn
Dim wb As Workbook, wb2 As Workbook
Set wb = ActiveWorkbook
fn = Application.GetOpenFilename("Excel-Dateien (*.xls),*xls")
If fn = False Then Exit Sub 'Abbrechen geklickt
Application.ScreenUpdating = False
Set wb2 = Workbooks.Open(Filename:=fn)
wb2.Sheets(1).Copy After:=wb.Sheets(wb.Sheets.Count)
wb2.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub

Gruß Matthias
Anzeige
AW: dateien aus ordner anzeigen/öffnen
21.10.2005 13:28:59
lexika
Hallo Matthias,
kannst Du mir bitte noch sagen wo ich einen festen Pfad eingeben kann?
Danke
AW: dateien aus ordner anzeigen/öffnen
21.10.2005 14:01:55
Matthias
Hallo Lexika,

Sub BlattEinfügen()
Const Pfad = "D:\xl" 'anpassen
Dim fn
Dim wb As Workbook, wb2 As Workbook
Set wb = ActiveWorkbook
ChDrive Pfad
ChDir Pfad
fn = Application.GetOpenFilename("Excel-Dateien (*.xls),*xls")
If fn = False Then Exit Sub
'Pfad prüfen:
If UCase(Left(fn, InStrRev(fn, "\") - 1)) <> UCase(Pfad) Then
MsgBox "Falscher Pfad!"
Exit Sub
End If
Application.ScreenUpdating = False
Set wb2 = Workbooks.Open(Filename:=fn)
wb2.Sheets(1).Copy After:=wb.Sheets(wb.Sheets.Count)
wb2.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub

Ein wenig unelegant, aber ansonsten bräuchtest du eine Userform.
Gruß Matthias
Anzeige
Danke
24.10.2005 09:58:51
lexika
Hi Matthias,
vielen Dank für Deine Hilfe
Gruß
lexika
AW: dateien aus ordner anzeigen/öffnen
21.10.2005 13:50:39
lexika
HI Matthias,
wollte in Deinen Code noch etwas hinzufügen jedoch ohne erfolg.
Da es csv-Dateien sind schreibt excel alles in die erste spalte. Denn code welchen ich einfügen wollte benutze ich auch beim importieren und da geht er. Wollte danach automatisch aus der tabelle ein diagramm erstellen lassen.
Vielleicht kannst Du mir ja helfen.

Sub BlattEinfügen()
Dim fn
Dim wb As Workbook, wb2 As Workbook
Set wb = ActiveWorkbook
fn = Application.GetOpenFilename("Excel-Dateien (*.csv),*csv")
If fn = False Then Exit 


Sub 'Abbrechen geklickt
Application.ScreenUpdating = False
Set wb2 = Workbooks.Open(Filename:=fn)
wb2.Sheets(1).Copy After:=wb.Sheets(wb.Sheets.Count)
With ActiveSheet
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileDecimalSeparator = "."
.Refresh BackgroundQuery:=False
End With
wb2.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub



Danke
Anzeige
Danke
24.10.2005 09:59:40
lexika
HI Bernd,
vielen Dank für Deine Hilfe
Gruß
lexika
;

Forumthreads zu verwandten Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Datein aus Ordner in Listbox
Markus

Hallo,
brauch wieder mal eure Hilfe.
Möchte über ein UserForm nach bestimmte Dateien eines Ordners inkl. Unterordner suchen.
Button: Ordner wählen öffnet Msg Box such dort mein Ordner aus klappt schon.
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDispla...
30.09.2008 12:45:47
Thread-ID: 1013354
2 Beiträge
Dateinamen-Übertrag aus Verzeichnis in Excelspalte
Joerschi

Hallo liebe Excel-Freunde,
folgendes Excel-Problem kann ich nicht lösen:
ich möchte aus einem beliebigen Verzeichnis auf meiner Festplatte die vollständigen Namen aller darin enthaltenen Dateien in eine Excel-Tabelle übertragen. Die Sortierung sollte dabei alphabetisch/nummerisch aufste...
10.10.2008 14:46:00
Thread-ID: 1015594
9 Beiträge
Anzeige
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
daten aus einem ordner öffnen
Swen

Hi @ all,
ich möchte gerne in einem Ordner "C:\Testdaten\"
alle wk1 files öffnen und verarbeiten!
wie kann ich den machen das alle in dem ordner liegenden files
göffnet werden und ich dann eine verarbeitung starten, und wenn das file fertig
bearbeitet ist das nächste geöff...
17.10.2008 19:49:00
Thread-ID: 1017267
3 Beiträge
Daten aus anderen Quellen auslesen
Ryu

Hallo,
ich habe eine Excel Tabelle wo ich den Verbrauch von Materialien der letzten 6 Monate erfasse. Den Verbrauch kann ich entweder mir Monat für Monat, Artikel für Artikel zusammenkopieren oder ich kann den Verbrauch jeden Monats in die oben genannte Tabelle (andere sheets) kopieren und...
23.10.2008 16:34:00
Thread-ID: 1018740
4 Beiträge
Anzeige
alle Dateien und Verknüpfungen aus Ordner löschen
marcl

Guten Morgen Forumsgemeinde,
ich habe zwar ein Makro von Ramses, welches alle Dateien eines Ordners auflistet und löscht. Aber die Verknüpfungen findet es leider nicht. Hatte naiv mal mit "*.lnk" als Dateiname versucht. Aber das funzt net.
Wer kann mir weiter helfen?
Danke und Gruß...
26.11.2008 06:40:00
Thread-ID: 1027911
3 Beiträge
Dateinamen aus Zelle mit Bedingung
Daniel

Hallo Leute,
ich brauche mal wieder Eure Hilfe:
Mit dem folgenden Makro (hier aus dem Forum) bilde ich den Dateinamen aus dem Zellinhalt; das klappt soweit ganz gut:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True Application.EnableEvent...
18.12.2008 14:02:47
Thread-ID: 1033865
3 Beiträge
Auslesen Ordnerinhalte
Thomas

Hallo zusammen,
ich habe folgendes Problem und bitte um Hilfe.
Ich will eine Datei erstellen die Ordnerinhalte wiedergeben soll.
Beispiel:
Es gibt einen Datei-Ordner "Kunden", der beinhaltet weitere Ordner die nach Städten sortiert sind. In den Städteordnern befinden sich Exceld...
19.12.2008 22:25:05
Thread-ID: 1034294
21 Beiträge
Daten aus Dateien auslesen
Bark

Ich habe ein Makro geschrieben, der Dateien in einem bestimmten Verzeichnis der Reihe nach öffnet und bestimmte Inhalte in Variablen packt und die Werte dieser Variablen in einer anderen Datei (Gesamtliste) wieder einfügt.
Läuft alles soweit gut. Aber die Laufzeit könnte besser sein. Was ka...
02.02.2009 14:29:21
Thread-ID: 1046247
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