Moin Liebe Leute,
ich habe ein kleines Problem mit meinem Excel VBA Code. Ich möchte den Wert einer bestimmten Zeile meines Aktiven Worksheets mit derselben Zeile von anderen Worksheets vergleichen.
Wenn die Zahl übereinstimmt, dann soll der Name des passenden Worksheets in eine andere Zeile geschrieben werden.
Sub Check()
Dim i As Long
For i = 4 To 7
If Worksheets(i).Cells(22, 17) = Cells(22, 17) Then
Cells(19 + i, 3) = Worksheets(i).Name
End If
Next i
End Sub
Es sollen also die Zellen von den Worksheets 4-7 mit der Zelle des Aktiven Worksheets verglichen werden und bei übereinstimmung der passende Tabellenname in einer andere Zelle gespeichert werden.
Nur bekomme ich jedes mal einen Fehler. Kann mir einer hefen?
Viele Grüße!
|