Tabellenblatt einlesen

Bild

Betrifft: Tabellenblatt einlesen
von: Holger Meinert
Geschrieben am: 18.03.2005 08:20:30
Hallo Excel-Experten
Habe folgenden Code der mir die Daten eines Tabellenblattes in ein anderes
einließt.
Ich möchte die Zeile "Set shQuelle..." so verändern, das der Bezug der Datei(d160305...) aus Der Zelle A1 kommt.
Kann mir jemand weiterhelfen ?
Gruss
Holger


Sub Kombinieren()
Dim shQuelle As Worksheet, shZiel As Worksheet
Dim Rng As Range
Dim intRow%, nRow%, nColumn%
Application.ScreenUpdating = False
Workbooks.Open Range("M34"), False
Set shQuelle = Workbooks("d160305_424859801__SummeNetznutzung_1.xls").Worksheets("Tabelle")
Set shZiel = Workbooks("EZ.xls").Worksheets("Daten")
On Error Resume Next
intRow = shZiel.Cells.Find("*", shZiel.Range("A1"), , , _
xlByRows, xlPrevious).Row
If Err > 0 Then intRow = 1
On Error GoTo 0
nRow = shQuelle.UsedRange.Rows.Count
nColumn = shQuelle.UsedRange.Columns.Count
Set Rng = shQuelle.Range(shQuelle.Cells(2, 1), shQuelle.Cells _
(nRow, nColumn))
Rng.Copy shZiel.Range("A" & intRow + 1)
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub

Bild

Betrifft: AW: Tabellenblatt einlesen
von: Ramses
Geschrieben am: 18.03.2005 08:27:13
Hallo
Set shQuelle = Workbooks("" & Range("A1") & "").Worksheets("Tabelle")
Sollte so in etwa gehen, allerdings muss die Mappe offen sein
Gruss Rainer
Bild

Betrifft: AW: Tabellenblatt einlesen
von: Holger Meinert
Geschrieben am: 18.03.2005 08:45:05
Hallo Rainer
Die Datei "d160305...ist offen.
Es kommt bei der neuen Zeile folgede Fehlermeldung.
"Die Methode'Range' für das Objekt'Global! ist fehlgeschlagen"
Kannst Du mir helfen ?
Gruss
Holger
Bild

Betrifft: AW: Tabellenblatt einlesen
von: Ramses
Geschrieben am: 18.03.2005 09:18:07
Hallo
gerade ausprobiert und funktioniert.
Hast du eine Tabelle die "Tabelle" heisst in dieser Mappe ?
Gruss Rainer
Bild

Betrifft: AW: Tabellenblatt einlesen
von: Holger Meinert
Geschrieben am: 18.03.2005 11:22:55
Hallo Rainer
Sorry, der Bezug der Datei befindet sich nicht in der Quell-Datei sonder in der
Ziel-Datei (EZ.xls/"A1"), war mein Fehler.
Hast Du dafür auch ne Lösung ?
Gruss Holger
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblatt einlesen"