|
Hallo miteinander,
ich habe ein kleines Problem mit einem Makro das ich geschrieben habe.
Und zwar habe ich in einem Blatt mit dem Namen 'Tiere' in der Spalte A mehrere Tiere eingetragen.
In einem anderen Blatt mit dem Namen 'Deklaration' stehen alle Tiere (nehmen wir mal an alle die es gibt, ich weiß nicht ob es wirklich ALLE sind) mit der jeweiligen Deklaration der Art dahinter. Im Blatt 'Deklaration' stehen in Spalte A und D die Tiere und die Deklaration davon jeweils rechts daneben , also im Beispiel:
A | B | C | D
Pferd | Säugetier | Frosch | Amphibie
Forelle | Fisch | Hund | Säugetier
....
jetzt möchte ich, dass mein code das Blatt 'Tiere' durchläuft, das jweilige Tier abspeichert, dann in das Blatt 'Deklaration' geht, nach der entsprechenden Deklaration für das Tier sucht, z.B. 'Säugetier' und diese Deklaration dann im Blatt 'Tiere' in Spalte B, neben das jweilige Tier einträgt.
Hab da grad totale Probleme mit weil ich voll der Newie bin was programmieren angeht.
Hier mal mein Code. Es hackt an der Stelle mit dem Fehler: "anwendungs- oder objektdefinierter Fehler"
|
|
|
For Each rng1 In Sheets("Ressourcen").UsedRange.Range("A:D2") |
Hier mal der ganze Code
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
|