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"