Laufzeitfehler 13
09.12.2008 15:27:52
steffen
steh mal wieder auf'm Schlauch :(
Ich möchte den letzen Eintrag aus A auslesen diesen um 1 erhöhen und unterhalb des letzen Eintrages setzen. Danach wird der Wert in einen Hyperlink umgewandelt.
Dim x as Integer
x = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Cells(x + 1, 1).Value = ActiveSheet.Cells(x, 1).Value + 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(x + 1, 1), Address:="", SubAddress:= _
"'" & Cells(x + 1, 1).text & "'!A1", TextToDisplay:=Cells(x + 1, 1).text
Hat bisher auch geklappt, doch jetzt bekomme ich den laufzeitfehler 13 "Typen unverträglich" angezeigt.
Und ich weiß nicht, was ich verändert habe.
Was ist jetzt falsch?
Gruß steffen