Hallo,
das Makro soll in Artikelnamen von Spalte A in Tab1 und Tab2 abgleichen. Wenn die Werte gleich sind soll der Preis in Spalte B von Tabelle2 nach Tabelle1 kopiert werden.
„Laufzeitfehler ‚438': Objekt unterstützt diese Eigenschaft oder Methode nicht“ tritt auf.
Habe schon gegoogelt, aber komme leider überhaupt nicht weiter. Kann mri wer helfen?
Ist das Objekt ThisWorkbook. nötig?
Sub Test()
Dim tab2 As Integer
Dim tab1 As Integer
For tab2 = 1 To 13
For tab1 = 1 To 13
If ThisWorkbook.Sheets("Tabelle1").cell(a, tab1).Value = ThisWorkbook.Sheets("Tabelle2").cell(a, tab2).Value Then
ThisWorkbook.Sheets("Tabelle2").cell(b, tab2).Value = ThisWorkbook.Sheets("Tabelle1").cell(b, tab1).Value
End If
Next tab1
Next tab2
End Sub
Vielen Dank schonmal für helfende Antworten!
Grüße
Aluoxid |