Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten importieren aus eimem Überordner

Forumthread: Daten importieren aus eimem Überordner

Daten importieren aus eimem Überordner
13.11.2007 15:55:51
edie
Hallo Zusammen,
importiere Daten aus einer geschlossenen Arbeitsmappe,
die im gleichen Verzeichnis liegt mit, hier ausschnitt:
Dim sPath As String, sFile As String
sPath = ThisWorkbook.Path
sFile = "Test.xls"
If Dir(sPath & "\" & sFile) = "" Then
Beep
MsgBox "Datei " & sFile & " nicht gefunden!"
Exit Sub
End If
...
Nun möchte ich importieren aus einer geschlossenen Arbeits-
mappe die eine Ebene höher liegt im "Überordner".
Wie lautet dann der Pfad?
Hat jemand eine Idee oder Beispiel?
Vielen Dank im Voraus.
Grüße

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten importieren aus eimem Überordner
13.11.2007 16:44:00
Rudi
Hallo,

Sub tt()
Dim sPATH As String
sPATH = ThisWorkbook.Path
sPATH = Left(sPATH, InStrRev(sPATH, "\"))
MsgBox sPATH
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Daten importieren aus eimem Überordner
13.11.2007 17:07:44
Peter
Hallo Rudi
Darf ich da noch eine Anschlussfrage stellen:
Wie müsste der Code erweitert werden, wenn der Pfad zwei Ebenen höher zurückgegeben werden soll?
Danke für eine Rückmeldung.
Peter

Anzeige
AW: Daten importieren aus eimem Überordner
13.11.2007 17:22:00
Rudi
Hallo,
schau in die Hilfe zu Textfunktionen.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Daten importieren aus eimem Überordner
13.11.2007 17:56:00
Peter
Hallo Rudi
In diesem Fall verstehe ich davon nur Bahnhof.
Peter

AW: Daten importieren aus eimem Überordner
13.11.2007 18:30:32
edie
Hallo Rudi,
vielen Dank der Pfad funktioniert,
leider bekomme ich #BEZUG! in allen Zellen.
Hier der Code, vielleicht eine Idee zur Optimierung?

Sub Daten_Import()
Dim x As Integer
Dim sPATH As String, sFile As String, sWks As String
Dim sRange1 As String
Dim sRange2 As String
sWks = "Tabelle1"
x = ActiveSheet.UsedRange.Rows.Count
sRange1 = ("A2:A" & x)
sRange2 = ("B2:B" & x)
sPATH = ThisWorkbook.Path
sPATH = Left(sPATH, InStrRev(sPATH, "\"))
' MsgBox sPATH
'sPATH = ThisWorkbook.Path
sFile = "Test.xls"
If Dir(sPATH & "\" & sFile) = "" Then
Beep
MsgBox "Datei " & sFile & " nicht gefunden!"
Exit Sub
End If
Application.ScreenUpdating = False
On Error Resume Next
Range("A2:A").Formula = "='" & sPATH & _
"\[" & sFile & "]" & sWks & "'!" & sRange1
'  Range("A2:A100").Formula = "='" & sPATH & _
'"\[" & sFile & "]" & sWks & "'!" & sRange1
Range("B2:B").Formula = "='" & sPATH & _
"\[" & sFile & "]" & sWks & "'!" & sRange2
' Range("B2:B100").Formula = "='" & sPATH & _
'"\[" & sFile & "]" & sWks & "'!" & sRange2
Application.ScreenUpdating = True
End Sub


Vielen Dank im Voraus.
Grüße

Anzeige
AW: Daten importieren aus eimem Überordner
13.11.2007 19:07:00
edie
Hallo Rudi,
ich hab's so funktioniert 's z.B.:
Range("A2:A100").Formula = "='" & sPATH & _
"[" & sFile & "]" & sWks & "'!" & sRange1
Vielen vielen Dank.
Grüße
;

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
Anzeige
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
Anzeige
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
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
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