und zwar hab ich ein Problem. Ich möchte mit folgendem Makro den Inhalt zweier Zellen vergleichen und dann 2 Spalten aus Tabele Anlagedatum in das Sheet Tabelle 1 des anderen Workbooks kopieren.
Leider funktioniert das nicht, jedoch bringt das Makro auch keine Fehlermeldung.
Sub SVerweis_Versuch1()
Dim wbQuelle As Workbook, wbZiel As Workbook
Dim wbQuelleSheet As Worksheet, wbZielSheet As Worksheet
Dim rngC As Range
Set wbQuelle = Workbooks("SVERWEISNEU.xls")
Set wbQuelleSheet = wbQuelle.Worksheets("Tabelle1")
Set wbZiel = Workbooks("03_Anlagedatum+ Prognosedatum.xls")
Set wbZielSheet = wbZiel.Worksheets("03_Anlagedatum+ Prognosedatum")
Set rngC = wbZiel.Worksheets(1).Range("B:B").Find(wbQuelle.Worksheets(1).Range("A2").Value)
If Not (rngC Is Nothing) Then
wbZiel.Worksheets(1).Range("I" & rngC.Row) = wbQuelle.Worksheets(1).Range("C2").Value
wbZiel.Worksheets(1).Range("J" & rngC.Row) = wbQuelle.Worksheets(1).Range("D2").Value
End If
End Sub
Über Hilfe würde ich mich mega freuen.
Danke :)