Office: Objekt unterstützt diese Eigenschaft oder Methode nicht (Fehler 438)

Hammer · 16. November 2013

Einen schönen Guten Morgen Fred *Sun

...Dein Motto ist wohl auch "Morgenstund hat Gold im Mund"? *mrcool

OK, habe hier fix eine Beispieldatei gebastelt.

Problem ist wie bereits in meiner letzten Antwort beschrieben der falsche Pfad des Hyperlinks.

Viele Grüße, MARCO *wink.gif*

Beverly · 16. November 2013

Meinen Beitrag hast du schon gelesen?

Hammer · 16. November 2013

Guten Morgen Karin,

das hat sich irgendwie überschnitten...*entsetzt *entsetzt *entsetzt

...was Deinen Vorschlag betrifft, das habe ich auch schon versucht, in dem ich SubAddress mit hinzugefügt habe...aber ohne Erfolg. Werde es gleich nochmal auf einen Anderen Weg versuchen.

Hammer · 16. November 2013

Habe es so versucht:

Code:

With Worksheets("Übersicht")
rngCell.Hyperlinks.Add _
Anchor:=rngCell, _
Address:="", _
SubAddress:=wks.Cells(intZeile, 4), _
TextToDisplay:=rngCell.Value
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

...mit folgendem Ergebniss:
"Unzulässiger Prozeduraufruf oder ungültiges Argument (Fehler 5)"

Beverly · 16. November 2013

Hi,

Code:

Sub Hyper2()
Dim wks As Worksheet
Dim intZeile As Variant
Dim rngCell As Range
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("Übersicht").Activate
For Each rngCell In Range("B4:B19")
If rngCell.Hyperlinks.Count > 0 Then rngCell.Hyperlinks.Delete
If Len(rngCell.Offset(0, -1).Value) > 1 Then
Set wks = Worksheets(Left(rngCell.Offset(0, -1).Value, 1))
Else
Set wks = Worksheets(rngCell.Offset(0, -1).Value)
End If
With wks
If Not IsError(Application.Match(rngCell.Value, wks.Range("D2:D2000"), 0)) Then
intZeile = Application.Match(rngCell.Value, wks.Range("D2:D2000"), 0) + 1
With Worksheets("Übersicht")
ActiveSheet.Hyperlinks.Add Anchor:=rngCell, Address:="", _
SubAddress:=wks.Name & "!" & wks.Cells(intZeile, 4).Address, _
TextToDisplay:=rngCell.Value
rngCell.Font.Name = "Calibri"
rngCell.Font.Bold = False
rngCell.Font.Underline = False
rngCell.Font.Size = 11
rngCell.Font.Color = vbBlack
End With
End If
End With
Next rngCell
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hammer · 16. November 2013

Klasse!!! ...sehr elegant gelöst! ....also scheiterte es bei meiner Version nur an dem "wks.name"?! ....Na Toll!

Ich Danke euch für diese Ausdauernde Hilfe!!!
...und wünsche ein schönes Wochenende!!

Viele Grüße, Marco

Beverly · 16. November 2013

Hi Marco,

deshalb hatte ich extra den Code gepostet, wie ihn der Makrorekorder aufzeichnet - damit du siehst, dass sich SubAdress aus dem Namen der Zieltabelle und der Adresse der Zielzelle zusammensetzt. *wink.gif*

Übrigens kann man in der Zeile

Code:

SubAddress:=wks.Name & "!" & wks.Cells(intZeile, 4).Address, _
TextToDisplay:=rngCell.Value
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

noch den rot formatierten Teil weglassen, denn da das Worksheet ja schon durch wks.Name definiert ist muss es bei der Zelladresse nicht noch einmal angegeben werden - schleßlich ist die Zelladressenbezeichnung in allen Tabellenblättern gleich.

Hammer · 17. November 2013

sorry, muss doch nochmal stören!

Jetzt habe ich versucht den selektierten Bereich (letzte Zeile) dynamisch zu machen, und habe noch ein Tabellenblatt mehr angelegt... und dabei setzt es zwar die richtigen Links auf alles, ...ABER die Links zu dem neuen Tabellenblatt bringen die Fehlermeldung: "Bezug ist ungültig!"
Habe die Beispieldatei nochmal aktualisiert angehangen.

Woran liegt das?

Beverly · 17. November 2013

schreibe die Subadresse wie folgt:

Code:

SubAddress:="'" & wks.Name & "'!" & Cells(intZeile, 4).Address
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

also noch einen Apostroph ' vor und nach dem Tabellenamen.

Tipp: auf Select/Activate kann man zu 99% aller Fälle in VBA-Codes verzichten - diese Codezeile tut es auch, und zwar ohne den Bereich selektieren zu müssen

Code:

For Each rngCell In Range("B4:B" & Ende)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hammer · 17. November 2013

Danke Karin, jetzt klappt alles und damit sollte dieses Thema aber wirklich mal mit ABSOLUTER ZUFRIEDENHEIT abgeschlossen sein!!! *top

Nochmal Danke und schönes WE! *bye

Office: Objekt unterstützt diese Eigenschaft oder Methode nicht (Fehler 438)

Objekt unterstützt diese Eigenschaft oder Methode nicht (Fehler 438)

Objekt unterstützt diese Eigenschaft oder Methode nicht (Fehler 438)

Objekt unterstützt diese Eigenschaft oder Methode nicht (Fehler 438)

Objekt unterstützt diese Eigenschaft oder Methode nicht (Fehler 438)

Objekt unterstützt diese Eigenschaft oder Methode nicht (Fehler 438) - Similar Threads - Objekt unterstützt Eigenschaft

Datei als OLE-Objekt importieren

Datei als OLE-Objekt via FilePicker auswählen und speichern

Word-Datei als OLE-Objekt in XLSM importieren

Shortcut für Objekte in den Hintergrund verschieben

Excel VBA Laufzeitfehler 424 Objekt erforderlich

Von einem Workbook ins andere kopieren "Objekt unterstützt..."

laufzeitfehler 438: Objekt unterstützt Eigenschaft Methode nicht