Daten in vorhandene Tabelle kopieren

Hallo Experten!
Ich habe ein Problem bei der Quell und Ziel-Range Angabe für variabel zu öffnende Dateien.
Im Moment sieht der Code so aus:


Sub Dateneinfügen()
Dim PathAndFileNames As Variant 'kein String !
Dim strPathAndFile$
Dim strPath$
Dim strFileName$
Dim xi&
Dim wbk As Workbook
Dim xlsChart As Excel.Chart
Dim wks As Worksheet
Dim objWbkS As Workbook  'Quell-Mappe
Dim objWksS As Worksheet 'Quell-Tabelle
Dim objWbkT As Workbook  'Ziel-Mappe
Dim objWksT As Worksheet 'Ziel-Tabelle
Dim objRngT As Range     'Ziel-Zelle
ChDir _
"C:\Dokumente und Einstellungen\Annette\Desktop\Meteonorm Daten"
PathAndFileNames = Application.GetOpenFilename( _
FileFilter:="Excel Files (*.xls), *.xls", _
Title:="Auswahl Zielmappe", _
MultiSelect:=True)
If VarType(PathAndFileNames) = vbBoolean Then
MsgBox "Abgebrochen!"
Else
'alle ausgewählen File bearbeiten
For xi& = LBound(PathAndFileNames) To UBound(PathAndFileNames)
strPathAndFile = PathAndFileNames(xi&)
strFileName = Split(Dir(strPathAndFile, 63), ".", -1, 0)(0)
strPath$ = Mid(strPathAndFile, 1, Len(strPathAndFile) - Len(strFileName))
Set objWbkT = Workbooks.Open(Filename:=strPathAndFile)
ChDir _
"C:\Dokumente und Einstellungen\Annette\Desktop\Meteonorm Daten\"
PathAndFileNames = Application.GetOpenFilename( _
FileFilter:="Excel Files (*.xls), *.xls", _
Title:="Auswahl Südwand", _
MultiSelect:=False)
Range("G4:G19,I4:J19").Select
Range("I4").Activate
Selection.Copy
Windows("objWbkT.Worksheet(1)").Activate 'das funktioniert so nicht
Range("G42").Select
ActiveSheet.Paste
ChDir _
"C:\Dokumente und Einstellungen\Annette\Desktop\Meteonorm Daten\"
PathAndFileNames = Application.GetOpenFilename( _
FileFilter:="Excel Files (*.xls), *.xls", _
Title:="Auswahl Nordwand", _
MultiSelect:=False)
Windows("BISSAU Nord Wand.xls").Activate
Range("G4:G19,I4:J19").Select
Range("I4").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("BISSAU.xls").Activate
Range("A42").Select
ActiveSheet.Paste
ChDir _
"C:\Dokumente und Einstellungen\Annette\Desktop\Meteonorm Daten\"
PathAndFileNames = Application.GetOpenFilename( _
FileFilter:="Excel Files (*.xls), *.xls", _
Title:="Auswahl Ostwand", _
MultiSelect:=False)
Windows("BISSAU Ost Wand.xls").Activate
Range("G4:G19,I4:J19").Select
Range("I4").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("BISSAU.xls").Activate
Range("D42").Select
ActiveSheet.Paste
ChDir _
"C:\Dokumente und Einstellungen\Annette\Desktop\Meteonorm Daten\"
PathAndFileNames = Application.GetOpenFilename( _
FileFilter:="Excel Files (*.xls), *.xls", _
Title:="Auswahl Westwand", _
MultiSelect:=False)
Windows("BISSAU West Wand.xls").Activate
Range("G4:G19,I4:J19").Select
Application.CutCopyMode = False
Selection.Copy
Windows("BISSAU.xls").Activate
Range("B42").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Globalstrahlung"
Range("C42").Select
ActiveCell.FormulaR1C1 = "Diffusstrahlung"
ActiveSheet.Paste
Next
End If
End Sub

Das Problem hier bei ist, daß er die Spalten der Zieltabelle auch als Quelldaten ansieht und nicht die aus der speziell dafür geöffneten Datei.
Wie kann ich das ändern und wie muß die Angabe für die Zielzellen sein?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Entweder so: Range("G4:G19,I4:J19").Select Range("I4").Activate Selection.Copy ' Windows("objWbkT.Worksheet(1)").Activate 'das funktioniert so nicht objWbkT.Activate 'aktiviert die Zielmappe objWbkT.Worksheets(1).Select 'selektiert das Blatt Range("G42").Select ActiveSheet.Paste 'oder (besser) so: Range("G4:G19,I4:J19").Copy _ Destination:=objWbkT.Worksheets(1).Range("G42")

Hallo Annette,
dein Problem ist nicht vergessen oder verdrängt - ich will dich gern etwas technische Unterstützung für deine Arbeit leisten.
Klar ist es angesichts der Anzahl sinnvoll, eine Schleife über die Zielfiles laufen zu lassen. Die Frage ist, über welche Orte genau diese Schleife laufen könnte.
Allmählich verdichten sich bei mir die Infos, die du hier geschrieben hast, zu folgender Struktur - wobei ich dich frage, ob das so stimmt:
a) Alle benötigten Files (Quellen und Ziele) liegen in ein und demselben Verzeichnis (...\Desktop\Meteonorm Daten")
b) Es gibt mehrere hundert Zielfiles mit dem Namen ORT.xls (wobei ORT auch Leerzeichen usw. enthalten kann).
c) Zu jedem Zielfile gibt es in dem Ordner vier Quellfiles mit den Namen
ORT Nord Wand.xls
ORT West Wand.xls
ORT Ost Wand.xls
ORT Süd Wand.xls (oder: ORT Sued Wand.xls ?)
d) Die Daten der vier Quellfiles, jeweils die Bereiche G4:G19,I4:J19, sollen immer kopiert werden auf einen Bereich, der in Zeile 42 des Zielfiles beginnt:
Spalten A bis C für Nord
Spalten D bis F für Ost
Spalten G bis I für Süd
Spalten J bis L für West (hier stand im Makro Spalte B, aber das würde Werde von "Nord" überschreiben.)
e) Gibt es pro Ort diese vier Datenlieferungen nur einmalig? Vermutlich werden die Daten doch zu verschiedenen Terminen ermittelt, und du bekommst von einem Ort mehrfach die vier Himmelsrichtungen. Soll dann eine neue Datenlieferung die alten Daten überschreiben? Oder sollten neue Daten "hinter" die bereits vorhandenen Daten geschrieben werden?
f) Um zu klären, ob überhaupt ein Datei-Öffnen-Dialog gebraucht wird: Sind ALLE Files in dem Verzeichnis, deren Name nicht mit " Wand.xls" endet, Zielfiles? (Dann könnten alle diese Files automatisch als Zielfiles bearbeitet werden.)
Oder hast du eine Tabelle mit den Namen aller untersuchten Orte? Dann könnten alle Files zu den Orten der Liste als Zielfiles ausgesucht und bearbeitet werden. (Wenn ja, in welchen Zellen stehen die Orte?)
g) Wenn das jeweilige Ortsfile klar ist, dann ergeben sich die Namen der vier Quellfiles automatisch als "ORT Richtung Wand.xls". Da braucht es keinen Dialog.
Wenn du mir die Fragen beantworten bzw. meine Struktur korrigieren könntest, versuche ich gern, dein Makro so umzuschreiben, dass du mit der Umsetzung der Daten nicht mehr viel Arbeit haben wirst.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Daten in vorhandene Tabelle kopieren

32 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

32
Beiträge zum Forumthread

Beiträge zu diesem Forumthread