Makro fehler
16.04.2008 10:23:46
Kolja
ich sitz jetzt schon ne halbe stunde vor diesem bl### Makro und weiß einfach nicht was excel daran zu bemängeln hat... kann mir bitte jemand helfen?
Aufgabe soll sein, eine Tabelle mit PLZ-Daten um das Bundesland zu erweitern, die in einem anderen Tabellenblatt stehen. Sollte eigentlich nicht so schwer sein, bringt mich aber gerade zu Verzweiflung...
Danke schon mal im Voraus!!
Kolja
PS: Fehler wird in der Zeile "Fundzeile =" angezeigt
Sub PLZ_Bundesland()
Dim Quelltabelle As Worksheet 'Quelltabelle
Dim Zieltabelle As Worksheet 'Zieltabelle
Dim Zielzeilen As Long, i As Long
Dim Fundzeile As Long
Dim PLZ As Long
'Variablen zuweisen:
Set Quelltabelle = Sheets("Tabelle1")
Set Zieltabelle = Sheets("Gesamt")
Zielzeilen = Zieltabelle.Range("A65536").End(xlUp).Row
For i = 2 To Zielzeilen
PLZ = Zieltabelle.Cells(i, 6)
Fundzeile = Quelltabelle.Range("A:A").Find(What:=PLZ).Row
Zieltabelle.Cells(i, 8) = Quelltabelle.Cells(Fundzeile, 4)
Next i
End Sub