Abgleich von Daten und dann kopieren
03.01.2018 17:07:47
Daten
ich beiße mir nun schon seit einiger Zeit an einem VBA Problem die Zähne aus und konnte diesbezüglich noch keine Lösung im Netz finden, weshalb ich mich nun entschied mein Anliegen in dieses Forum zu posten. Es geht um folgendes:
Ich möchte gerne per VBA
Die Werte in Zeile 12 aus diesem Workbook
mit den Werten aus Zeile 15 in diesem Workbook abgleichen lassen
und wenn die Werte in Zeile 12 und 15 übereinstimmen, sollen die Werte aus Zeile 16 der ersten Tabelle in Zeile 31 der Zweiten kopiert werden.
Man sieht es leider auf den Bildern schlecht, aber die Tabellen gehen nach rechts noch ein ganzes Stück weiter. Wichtig ist zudem auch, dass die Spalten der beiden Tabellen nicht übereinstimmen.
Mein bisheriger Ansatz sah folgendermaßen aus und ging leider komplett schief:
Option Explicit
Sub Reserve()
Dim Path, Filename, Filetype As String
Dim Row, Column As Integer
Dim Menu, SheetSource, SheetDestination As Worksheet
Path = Sheets("Menu").Cells(2, 3)
Filename = Sheets("Menu").Cells(3, 3)
Filetype = Sheets("Menu").Cells(4, 3)
Set SheetSource = Workbooks.Open(Path & Filename & Filetype).Sheets("Reserves")
Set SheetDestination = ThisWorkbook.Sheets("Reserves_2017_Q4_IST")
For Column = 8 To 40
If SheetSource.Cells(12, Column).Value = SheetDestination.Cells(15, Column).Value Then
SheetSource.Cells(16, Column).Copy
SheetDestination.Cells(31, Column).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
Next Column
ActiveWorkbook.Close
End Sub
Ich hoffe ich habe alle relevanten Information zur Verfügung gestellt und bin für jede Hilfe dankbar :).