Schleifen und Verzweigungsprobleme...
23.01.2006 09:27:11
Mark
In den Tabellen info und tmp sind Informationen wie Straße, Hausnummer und Zusatz. Ich will in die Tabelle info einen Link einbauen, der auf ein Bild auf einer CD verweist. Der Link ist in der Tabelle tmp zufinden. Jetzt soll das Makro erst den Straßennamen vergleichen. Wenn der Straßenname stimmt, soll er dann DIE Zeile gefunden hat, die mit dem übereinstimmt, was in der Info-Tabelle die Hausnummer vergleichen und am Ende das ganze noch mit einem Zusatz. Wenn er steht, dann soll er den Link, der dann in der Zeile ist, in die Info-Tabelle kopieren.
Das ist zumindest die Theorie. Leider bin ich nicht unbedingt der begnadete Programmierer und deswegen komm ich auch momentan nicht weiter. Ich bekomme immer die Fehlermeldung Next ohne For. Obwohl ich ja das For habe, aber das sieht der irgendwie nicht.
Ich bin dankbar für jeden Tipp und würde mich über eure Unterstützung freuen.
Vielen Dank und Gruß
Mark
Code:
1:
Sub setlinks()
2:
3: Ende = Application.Worksheets("info").Range("B65536").End(xlUp).Row
4: EndeTMP = Application.Worksheets("tmp").Range("B65536").End(xlUp).Row
5:
6: For f = 1 To Ende
7: Zelle = Zelle + 1
8: ZelleTMP = 0
9: z = 0
10: y = 0
11: For z = 1 To EndeTMP
12: ZelleTMP = ZelleTMP + 1
13: If Sheets("info").Range("AO" & Zelle) = Sheets("Tmp").Range("C" & ZelleTMP) Then
14: For y = 1 To EndeTMP
15: ZelleTMP = ZelleTMP + 1
16: If Sheets("info").Range("AM" & Zelle) = Sheets("Tmp").Range("P" & ZelleTMP) Then
17: If Sheets("info").Range("AS" & Zelle) = Sheets("Tmp").Range("K" & ZelleTMP) Then
18: ZPA = Sheets("Tmp").Range("R" & ZelleTMP).Value
19: Selection.Copy
20: Sheets("info").Range("B" & Zelle).Select
21: ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
22: ZPA
23: Next f
24: Else
25: Normal = Sheets("Tmp").Range("R" & ZelleTMP).Value
26: Selection.Copy
27: Sheets("info").Range("B" & Zelle).Select
28: ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
29: Normal
30: Next f
31: End If
32: Else
33: Next y
34: End If
35: Else
36: Next z
37: End If
38: Next f
39:
40: End Sub
41: