Range auslesen für WKB Open
16.11.2020 12:55:01
Kai
habe ein kleines Problem und hoffe, Ihr könnt mir da weiterhelfen.
Ich bin gerade dabei ein Programm zu schreiben, dass Daten aus einem Workbook in ein anderes überträgt.
Im ersten WKB soll nun angegeben werden in welcher Zeile und Spalte die Informationen im zweiten WKB zu übertragen sind. Ich lege also im ersten WKB fest, wohin die Daten gehen.
Zeile und Spalte sollen dann ausgelesen werden und die Daten darauf aufbauend ins zweite WKB übertragen werden.
Mein Problem ist, dass das Programm leider nicht erkennt, in welche Zelle die Daten übertragen werden sollen. br>
Mein Code:
Option Explicit
Public Sub Übertrag()
Dim vbWKB As Workbook
Dim objSource As Worksheet
Dim vbZeile As Range
Dim vbSpalte As Range
Set vbWKB = Workbooks.Open(Filename:=ThisWorkbook.Sheets("Dokument").Range("B15"), _
UpdateLinks:=3)
Set objSource = ThisWorkbook.Sheets("Datengrundlage")
Set vbSpalte = ThisWorkbook.Sheets("Datengrundlage").Range("B11")
Set vbZeile = ThisWorkbook.Sheets("Datengrundlage").Range("B10")
objSource.Range("C16").Copy
vbWKB.Worksheets("Tabelle 1").Range("vbSpalte:vbZeile").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Es scheint als kann das Programm die Zellen (Spalte A und Zeile 7) zwar auslesen aber nicht bei:
vbWKB.Worksheets("Tabelle 1").Range("vbSpalte:vbZeile").PasteSpecial Paste:=xlPasteValues
als Range übernehmen. Hoffe Ihr könnt mir dabei weiterhelfen.
LG
Kai