Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
684to688
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
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aus Excel-Dokumenten holen

Daten aus Excel-Dokumenten holen
24.10.2005 18:11:06
Nimmermehr
Hi Leute,
ich habe ein kleines Problemchen... Ich möchte bzw. muss aus einer Reihe von Excel-Dokumenten (ein Ordner) jeweils 2 Zellen kopieren und alle in EIN neues Dokument einfügen.
Konkreter: Ich benötige den Inhalt der Zelle B3 und B96 aus mehreren Dokumenten und möchte diese in eine Tabelle untereinander aufgelistet bekommen.
Ist das möglich oder phantasier ich hier... :-)
danke!
gruß
Nimmermehr

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

Betreff
Datum
Anwender
Anzeige
AW: Daten aus Excel-Dokumenten holen
24.10.2005 18:34:05
Hajo_Zi
Hallo Hans Bärbel,
ja es ist machbar und es ist keine phantasie.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP2.


AW: Daten aus Excel-Dokumenten holen
24.10.2005 18:50:36
Nimmermehr
Dann sollte ich vielleicht noch fragen wie... :-)
Also wie ist es möglich?
Danke und Gruß
Nimmermehr
AW: Daten aus Excel-Dokumenten holen
24.10.2005 19:10:04
Hajo_Zi
Hallo Hans Bärbel,
als erstes gefällt es mir nicht Personen Namenlos anzusprechen. Mit Meine Anrede liege ich min. 50% richtig beim Geschlecht.
Als zweites "einer Reihe von Excel-Dokumenten (ein Ordner)" sind damit alle Excel Dateien in dem Ordner gemeint?
Sollen die Ordner in der Reihenfolge wie Excel Sie festlegt abgearbeitet werden?
Soll B3 in Spalte A ind B96 in Spalte B, soll der Dateiname dazu geschrieben werden?
Das sind nur paar Fragen die mir auf die schnelle einfallen.
Überlege Dir Deine Aufgabe nochmal ganz genau und schreibe Sie dann detalliert auf. Für VBA muß das schon sein.
Anzeige
AW: Daten aus Excel-Dokumenten holen
24.10.2005 20:22:00
Nimmermehr
Hi Hajo,
Nimmermehr ist ein Rabe, also männlich. :-)
Was soll das Teil machen:
Ich habe ein leeres Excel-Sheet. Das Makro soll aus allen Dateien im Ordner c:\Gutachten den Zelleninhalt von B3 und B96 in mein Sheet schreiben. Also von der ersten Excel-Datei die Inhalte aus B3 in mein neues Sheet in A1 und von B96 in B1. Für die zweite Datei dann in A2 und B2. usw... bis alle Dateien abgearbeitet wurden.
Gruß
Pierre
AW: Daten aus Excel-Dokumenten holen
24.10.2005 21:04:13
Hajo_Zi
Hallo Pierre,
mal ohne Testung.

Sub Dateiliste_Öffnen()
'* H. Ziplies                                     *
'* 24.10.05                                       *
'* erstellt von Hajo.Ziplies@web.de               *
'* <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a> *
'   erstellt von Hajo.Ziplies@web.de
' <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a>
'   alle Dateien eines Ordners öffnen
Dim strVerzeichnis As String
Dim StrDatei As String
Dim StrTyp As String
Dim LoI As Long
Dim Dateiname As String
strVerzeichnis = "D:\Eigene Dateien\Hajo\Internet\Test\"
StrTyp = "*.xls"
Application.ScreenUpdating = False
Dateiname = Dir(strVerzeichnis & StrTyp)
Do While Dateiname <> ""
Workbooks.Open Filename:=strVerzeichnis & Dateiname
With ThisWorkbook.Worksheets("Tabelle1")
.Cells(LoI + 1, 1) = ActiveSheet.Range("B3")
.Cells(LoI + 1, 2) = ActiveSheet.Range("B96")
LoI = LoI + 1
End With
ActiveWorkbook.Close True
Dateiname = Dir
Loop
Application.ScreenUpdating = True
End Sub

Gruß Hajo

"Wer Rechtschreibfehler findet, darf sie behalten!"
Anzeige
AW: Daten aus Excel-Dokumenten holen
25.10.2005 09:49:43
Nimmermehr
Hi Hajo,
es funktioniert und ich bin beeindruckt! Hab vielen Dank!
Gruß
Pierre

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige