Sub tiere()
Dim rng As Range
Dim rng1 As Range
Dim tier As Variant
Dim tierArt As Variant
Dim art As Long
art = 1
For Each rng In Sheets("Tiere").UsedRange.Range("AA2")
tier = rng.Value
If Not IsEmpty(tier) Then
For Each rng1 In Sheets("Deklaration").UsedRange.Range("A:D2")
If tier = rng1.Value Then
tierArt = rng1.Offset(0, 1).Value
Sheets("Tiere").Cells(art, 2).Value = tierArt
art = art + 1
End If
Next rng1
End If
End Sub
Ich weiß, dass man das ganze auch durch einen S-Verweis machen kann, aber der Code soll durch das klicken auf einen Button gestartet werden.
Und da mein Office 2003 die Vlookup funktion nicht untrstützt, brauche ich das ganze als Makro.
Sieht jmd das problem, bzw ist das ganze vllt anders und besser zu lösen? Ich dreh mit dieser Fehlermeldung fast durch,
weil sie einfach nichts aussagt :D
Viele Lieben Dank und vg
Baira