Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
320to324
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
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten einlesen über Pull-down

Daten einlesen über Pull-down
15.10.2003 06:44:02
junny
Hallo Leute,
ich möchte Mappen-Inhalte und Tabellen aus einem bestimmetn Ordner einlesen.
Das Ganze soll ungefähr so aussehen:
Ich starte das Makro, Pull-down menu geht auf, (Anzeige der Mappen des festgelegten Ordners) nun Auswahl der gewünschten Mappe. Dabei soll nur der Inhalt von "Tabelle1" sowie "Tabelle2" als komplettes Sheet eingefügt werden.

>Das mit Inhalte eines Ordner habe ich schon, jedoch nicht über Pull-down<

Wäre nett wenn mir da jemand irgendwie weiterhelfen könnte.

Grüsse volker

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten einlesen über Pull-down
15.10.2003 17:58:18
GraFri
Hallo

Gib deine EMail-Adresse bekannt (oder schick sie mir zu) und ich schicke dir eine Lösung

mfg, GraFri
AW: Daten einlesen über Pull-down
16.10.2003 08:20:30
junny
Hai GraFri,
das ist aber ein nettes Angebot v.weil@kappler.de

Gruss volker
AW: Daten einlesen über Pull-down
15.10.2003 18:48:01
Willie
Hallo Volker
Hier habe ich dir ein Makro gebastelt!
Gruß
Willie


Sub junny()
wert = 1
Dim datei As String
ZuÖffnendeDatei = Application.GetOpenFilename("Textdateien (*.xls), *.xls")
If ZuÖffnendeDatei <> False Then
Workbooks.Open FileName:=ZuÖffnendeDatei
datei = Mid(ZuÖffnendeDatei, 9) 'hier abzählen vonlinks Pfad:
'Bei mir C:\test\ das sind 8 plus 1 = 9
End If
Application.Wait (Now + TimeValue("0:00:1"))
For i = 1 To 2
ThisWorkbook.Sheets(1).Activate
Sheets.Add
Workbooks(datei).Activate
ActiveWorkbook.Sheets(wert).Activate
Cells.Select
Selection.Copy
ThisWorkbook.Sheets(i).Activate
Cells.Select
ActiveSheet.Paste
Sheets(wert).Name = datei & i
Next
Workbooks(datei).Close SaveChanges:=False
Application.DisplayAlerts = False
End Sub

Anzeige
Danke Willie! (muss noch Testen) volker
16.10.2003 08:23:20
junny
o.T.
Willie! schau noch mal
16.10.2003 08:32:27
junny
Hai,
vielleicht eine dumme Frage aber:
wo muss ich meinen Pfad reinschreiben

C:\Dokumente und Einstellungen\vw\Eigene Dateien\Test\Zeitenliste (mit Leerzeichen 64)+1

Grüsse volker
Testen und nochmal melden
16.10.2003 11:21:53
Willie
Hallo Volker hier die Lösung ...Gruß Willie


Sub junny()
wert = 1
Dim datei As String
ChDir "C:\Dokumente und Einstellungen\vw\Eigene Dateien\Test\Zeitenliste"
ZuÖffnendeDatei = Application.GetOpenFilename("Textdateien (*.xls), *.xls")
If ZuÖffnendeDatei <> False Then
Workbooks.Open FileName:=ZuÖffnendeDatei
datei = Mid(ZuÖffnendeDatei, 64) 'hier abzählen vonlinks Pfad:
'Bei mir C:\test\ das sind 8 plus 1 = 9
End If
Application.Wait (Now + TimeValue("0:00:1"))
For i = 1 To 2
ThisWorkbook.Sheets(1).Activate
Sheets.Add
Workbooks(datei).Activate
ActiveWorkbook.Sheets(wert).Activate
Cells.Select
Selection.Copy
ThisWorkbook.Sheets(i).Activate
Cells.Select
ActiveSheet.Paste
Sheets(wert).Name = datei & i
Next
Workbooks(datei).Close SaveChanges:=False
Application.DisplayAlerts = False
End Sub

Anzeige
AW: Testen und nochmal melden
16.10.2003 12:48:37
junny
Hai Willie,
Datei passt, aber wenn ich dann eine auswähle, kommt Fehler (Nr.9) Ziel liegt außerhalb des gültigen Bereichs, (hab mal die Hilfe gelesen, war für mich jedoch nicht besonders hilfreich)

weißt Du noch weiter?

Gruss volker
AW: Testen und nochmal melden
16.10.2003 12:51:38
Willie
Ja da ist dein Netzwerk zu langsam die Datei ist noch nicht geöffnet ...
Mußt die Zeit bei wait auf 5 oder 6 Sekunden hochsetzen! oder Dann manuell weiterlaufen lassen!
Gruß
Willie
AW: Testen und nochmal melden
16.10.2003 13:26:37
junny
Hai Willie,
ich hab mal die Zeit länger gemacht!

Das makro bleibt hier stehen (makro als Modul)
Workbooks(datei).Activate

auch bei 50 sec. , dabei ist im aufgerufenen Tabellenblatt nur ein Bereich von ~ 60 Zellen belegt.
Ziel liegt außerhalb des gültigen Bereichs (makro in der Arbeitsmappe)

Und nu? Mit ausgieben testen könnte ich evtl. den Range eingeben (damit nicht das GAnze Sheet kopiert werden muss)
Was moinsch??

junny
Anzeige
AW: Testen und nochmal melden
16.10.2003 13:31:10
willie
Hast du schon mal geschaut, ob der Dateiname Vollständig ist bei datei?
Denn durch das Abschneiden, wenn du nicht richtig gezählt hast kann sein das
das Müll drin steht
Willie
AW: Testen und nochmal melden
16.10.2003 14:57:56
junny
Hai Willie,
habe jetzt eine Ergebnis!!
Habe nun noch DisplayAlerts eingefügt.

Allerdings koiert es mir Sheet 1 (der ausgewählten Liste) 2mal rein sowie 2 leere Tabellen

Die Sheets sind dann folgendermaßen drin:
Sheet1 leer, Sheet2 O.K., Sheet3 wie 1, Sheet4 wie 2, Sheet5 in diesem steht das makro

Der Code


Sub junny()
wert = 1
Dim datei As String
Application.DisplayAlerts = False
ChDir "C:\Dokumente und Einstellungen\vw\Eigene Dateien\Test\Zeitenliste"
ZuÖffnendeDatei = Application.GetOpenFilename("Textdateien (*.xls), *.xls")
If ZuÖffnendeDatei <> False Then
Workbooks.Open Filename:=ZuÖffnendeDatei
datei = Mid(ZuÖffnendeDatei, 67) 'hier abzählen vonlinks Pfad:
'Bei mir C:\test\ das sind 8 plus 1 = 9
End If
Application.Wait (Now + TimeValue("0:00:01"))
For i = 1 To 2
ThisWorkbook.Sheets(1).Activate
Sheets.Add
Workbooks(datei).Activate
ActiveWorkbook.Sheets(wert).Activate
Cells.Select
Selection.Copy
ThisWorkbook.Sheets(i).Activate
Cells.Select
ActiveSheet.Paste
Sheets(wert).Name = datei & i
Next
Workbooks(datei).Close SaveChanges:=False
Application.DisplayAlerts = True
End Sub


Hoffe Du hast noch Lust und LAune, Gruss volker
Anzeige
AW: Testen und nochmal melden
16.10.2003 16:24:06
Willie
Hallo Volker ich weis ja nicht ob du auch die F8 Taste kennst?
Einzelschritt Zeile für Zeile durchklicken, schauen was machen die
Variablen! Bei mir hat es einwandfrei funktioniert! Es wurden alle
Tabellen eingefügt! mit dem Dateinamen plus 1 bzw 2. mehr kann ich
eigentlich nicht sagen oder helfen!
Sorry
Willie
Willie, Danke
17.10.2003 08:18:31
junny
Hai, Willie, das mit der F8 wußte ich nicht,
ich teste und probier nun erts mal kräftig rum.
Mir hast Du nun schon einen ganzen Batzen weitergeholfen.

Gruss volker
(soll Dir im Kindersegen wieder reinkommen)
AW: Willie, Danke
17.10.2003 14:03:34
Willie
Habe die Familienplanung schon abgeschlossen!
totzdem Danke!
Gruß
Willie
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige