Hallo zusammen,
ich bekomme es einfach nicht gebacken und bitte daher um Eure Hilfe.
Ich habe ein Excel-Makro geschrieben, welches den Inhalt der aktuellen Zelle (Zahl) ausliest und gemeinsam mit einem feststehenden Wert einen Hyperlink hinterlegt.
Danach wird der curser eine Zelle tiefer gesetzt.
Jetzt hätte ich gerne eine Schleife, die diese Aktion solange durchführt, bis die Zelle leer ist.
Ich bleibe bei dieser Aktion immer in der gleichen Spalte, wechsel lediglich eine Zeile tiefer.
So sieht mein Makro aus:
Sub Hyperlink_InnoN()
Zellinhalt = ActiveCell.Text
Hlink = "http://innoplace.solvay.com/Idea.aspx?idea=" & Zellinhalt
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Hlink
Application.SendKeys ("{Down}")
End Sub
Ich hatte nun gedacht, wenn ich das Makro (siehe nachstehend) abändere, würde es laufen.
Tja, das ist aber nicht der Fall. 1 Link wird gesetzt, Curser geht auch eine Zeile tiefer, aber dann tut sich nichts mehr.
Sub Ideennr_link()
For i = Anfang To Ende
If ActiveCell(i) <> "" Then
Zellinhalt = ActiveCell.Text
Hlink = "http://innoplace.solvay.com/Idea.aspx?idea=" & Zellinhalt
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Hlink
Application.SendKeys ("{Down}")
End If
Next i
End Sub
Es wäre nett, wenn mir jemand helfen würde, den Fehler auszumerzen.
Ich raufe mir die Haare, aber ich kapiere das mit der Schleife einfach nicht.
Lieben Dank im Voraus!