Datenimport

Sub gefunden, die Daten nur aus dem ersten TB auslesen kann. Sub DatenImport() Dim rngTarget As Range Set rngTarget = Range("b1:b20") Application.ScreenUpdating = False Workbooks.Open "C:\Dokumente und Einstellungen\RSpringer\Mappe2.xls" rngTarget.Value = Range("b1:b20").Value Application.DisplayAlerts = False ActiveWorkbook.Close savechanges:=False Application.DisplayAlerts = True End Sub Meine Daten stehen aber im 2. bzw. 3. Blatt. Wer kann mir bitte helfen? Gruß Reinhardt.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datenimport

15.10.2008 15:08:42

Ramses

AW: Datenimport

15.10.2008 16:23:03

Erich

AW: Datenimport

16.10.2008 08:49:00

Erich

Sub DatenImport() Dim rngTarget As Range Dim tarWks as Worksheet Set tarWks = Worksheets("Tabelle2") Set rngTarget = tarwks.Range("b1:b20") Application.ScreenUpdating = False Workbooks.Open "C:\Dokumente und Einstellungen\RSpringer\Mappe2.xls" rngTarget.Value = Range("b1:b20").Value Application.DisplayAlerts = False ActiveWorkbook.Close savechanges:=False Application.DisplayAlerts = True End Sub

Sub DatenImport() Dim rngTarget As Range Set rngTarget = Range("b1:b20") Application.ScreenUpdating = False Workbooks.Open "C:\Dokumente und Einstellungen\RSpringer\Mappe2.xls" rngTarget.Value = Sheets(2).Range("b1:b20").Value ActiveWorkbook.Close savechanges:=False Application.ScreenUpdating = True End Sub

Hallo Reinhardt,
diese Antwort bezieht sich auf deine Frage im Thread https://www.herber.de/forum/messages/1016720.html
Warum bist du mit deiner Rückfrage nicht hier im Thread geblieben? Und warum hast du auf meinen Vorschlag
https://www.herber.de/forum/messages/1016609.html nicht geantwortet?
Die folgende Prozedur überträgt
Daten von Mappe2.xls, Tabelle2, Bereich b1:b30 in Mappe1, Tabelle1, Bereich b1:b30,
Daten von Mappe2.xls, Tabelle3, Bereich b1:b10 in Mappe1, Tabelle1, Bereich b31:b40.
Hast du dir das so ungefähr vorgestellt?


Sub DatenImport()
'   Application.ScreenUpdating = False ' nach dem Test aktivieren
Workbooks.Open "C:\Dokumente und Einstellungen\RSpringer\Eigene Dateien\" & _
"05 Excel\Mappe2.xls", UpdateLinks:=0, ReadOnly:=True
With ThisWorkbook.Sheets("Tabelle1")
.Range("b1:b30") = ActiveWorkbook.Sheets("Tabelle2").Range("b1:b30").Value
.Range("b31:b40") = ActiveWorkbook.Sheets("Tabelle3").Range("b1:b10").Value
End With
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread