Hallo Freunde
ich versuche mit dem Makro(unten), die Einträge (ab Zelle A2 bis ….) zur Tabelle "Data" zu verlinken und bekomme eine Fehlermeldung "5" ungültiger Prozeduraufruf oder…
An der Stelle:
ThisWorkbook.Sheets("myNew").Hyperlinks.Add Anchor:=c, Address:="", SubAddress:=c.Value
Sub linked()
Dim m, c As Range
Set m = ThisWorkbook.Sheets("myNew").Range("A2", Range("A" & Rows.count).End(xlDown))
For Each c In m
ThisWorkbook.Sheets("myNew").Hyperlinks.Add Anchor:=c, Address:="", SubAddress:=c.Value
Next c
End Sub
Irgendeine Idee?
Danke für die Hilfe
t
Hallöchen,
was steht denn in c wenn der Fehler auftritt?
EDIT: Oh, ich sehe gerade, dass Fehler 5 bei ungültigen Prozeduraufrufen kommt. Wahrscheinlich dann eher doch ein "falscher" Parameter.
EDIT2: Mir ist aber etwas anderes aufgefallen. Müsste es hier nicht xlup heißen?
Code:
Set m = ThisWorkbook.Sheets("myNew").Range("A2", Range("A" & Rows.count).End(xlDown))
EDIT2: Mir ist aber etwas anderes aufgefallen. Müsste es hier nicht xlup heißen?
SUUUUUUPPPPPPPEEEER
danke das funktioniert
Hallöchen,
ja, genau, aber vor allem liegt es daran, dass in c nix steht
Ansonsten hätte es funktioniert, nur vielleicht nicht dort, wo es erwartet wird
Dass das möglicherweise die falsche Zelle ist, wäre eventuell ein Gedanke, der beim Überprüfen von c kommen könnte
Mal für später / weitere Programmierung: Ein anderer Punkt fällt hier nicht ins Gewicht, wenn die Datei nur ein Blatt hat bzw. man beim Ausführen auf dem entsprechenden Blatt mySheet ist und bleibt
Wenn nicht, kommt auch in dieser Zeile ein Fehler -
Das
ThisWorkbook.Sheets("myNew").Range("A2", Range("A" & Rows.count).End(xlDown))
könnte man so umsetzen
ThisWorkbook.Sheets("myNew").Range("A2", ThisWorkbook.Sheets("myNew").Range("A" & Rows.count).End(xlDown))
oder so
With ThisWorkbook.Sheets("myNew")
.Range("A2", .Range("A" & Rows.count).End(xlDown))
End With
Danke dir für den guten Hinweis.
… ich würde ein neues Thema zur "drop down list" mit dynamischen Einträgen erstellen. Den Code habe ich von EN Excel-Forum gefunden (als URL), was sehr hilfreich ist.
Jedoch:
-Setzt man ihn in einer neuen Excel Dateien, funktioniert die Tabelle einwandfrei.
-Setzt man ihn in einer Excel-Datei mit unterschiedlichen
vba reference, scheint zwar zu funktionieren; man kann die Tabelle speichern.
Versucht man die Datei wieder zu öffnen, kommt zur Fehlermeldung und Excel(2019) will die Datei reparieren.
Mehr dazu später.