Eingabe-Maske auf Tabellenblatt: Hyperlink- und Dropdown-Frage

[Rabe]

Hi,

ich benutze ein Tabellenblatt als Eingabemaske und übertrage per Buttondruck den Datensatz in eine Datenbank ("intelligente Tabelle" Spalte A2 bis AK...).

In einer Zelle steht ein Hyperlink und dieser wird korrekt in die Datenbank übertragen. Wenn ich ihn aber nun aus der Datenbank wieder in die Zelle zurücklese, steht nur noch der Text in der Ziel-Zelle und der Link ist weg.

Speicher-Befehl:

      .Cells(loZeile, 37) = Range("L29")        'Link Fotoordner 

Befehl zum Holen:

      .Range("M29") = WorksheetFunction.VLookup(.Range("C5"), Worksheets("Datenbank").Range("A3:AK" & loLetzte), 37, 0)

Was mache ich da falsch?

2.) Ich möchte in Zelle C5 aus einem Dropdown eine der schon vorhandenen Projektnummern auswählen oder die nächste ganze Zahl eingeben können.
Die vorhandenen Nummern stehen in "Datenbank" in Spalte A.

Wie kann ich das lösen?


Datenbank

	A	B
1	Projekt
2	Projekt-Nr.	Projektname bzw. Name des STL-Files
3	1	former_aircoil_finer.gcode
4	2	zweiter_former_aircoil_finer.gcode
5	3	1ter_Orginal_former_aircoil_finer.gcode
6	4	Sockel_SAXO_Keramik.gcode
7

verbundene Zellen

A1:B1

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 19.08 einschl. 64 Bit

[BoskoBiati]

Hallo,

so aus dem Bauch raus würde ich sagen, dass Du den Text noch in einen Hyperlink umwandeln musst. Ich sehe nicht, was in den Zellen steht.

[snb]

Vielleicht (wenn du =hyperlink( .. ) verwendest )

Code:

.Cells(loZeile, 37).formula = Range("L29").formula

[Rabe]

Hi,

in der Zelle steht so was:

Datenbank

	AK
3	'-
4	Fotos
5	Fotos
6	Fotos
7	'-

Hyperlinks
Zelle	Anzuzeigender Text	Adresse	QuickInfo...	Link zu
AK4	Fotos	Bilder_3D-Druckergebnisse\Projekt2		Datei
AK5	Fotos	Bilder_3D-Druckergebnisse\Projekt3		Datei
AK6	Fotos	Bilder_3D-Druckergebnisse\Projekt4		Datei

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 19.08 einschl. 64 Bit

@snb:
Der Speicherbefehl funktioniert ja, der Hol-Befehl funktioniert nicht:

      .Range("M29") = WorksheetFunction.VLookup(.Range("C5"), Worksheets("Datenbank").Range("A3:AK" & loLetzte), 37, 0)

[BoskoBiati]

Hi Ralf,


sieh mal da:

https://msdn.microsoft.com/en-us/library...22490.aspx

vielleicht hilft das dir weiter.

[snb]

Eine Beispieldatei würde mehr Info geben: ich kann nicht sehen ob es ein Hyperlink oder ein Excel Formel ist.

Vielleicht reicht ??

.Range("M29").formula = WorksheetFunction.VLookup(.Range("C5"), Worksheets("Datenbank").Range("A3:AK" & loLetzte), 37, 0)

[schauan]

Hallo Ralf,

in Anlehnung an Edgars Tipp:

Code:

strLink=WorksheetFunction.VLookup(.Range("C5"), Worksheets("Datenbank").Range("A3:AK" & loLetzte), 37, 0)
.Hyperlinks.Add anchor:=.Range("M29"), Address:=strLink, TextToDisplay:=strLink

[Rabe]

Hi André,

in Anlehnung an Edgars Tipp:

danke, so hat es geklappt.

Jetzt steht zwar der Text des Links anstelle von "Fotos" in der Zelle, aber ich denke, damit können wir leben.

[Rabe]

Hi,

Eine Beispieldatei würde mehr Info geben: ich kann nicht sehen ob es ein Hyperlink oder ein Excel Formel ist.

Vielleicht reicht ??

es ist ein Link.

Nein, da wird der Hyperlink nicht rüberkopiert, nur der Text "Fotos".

[schauan]

Hallo Ralf,
Da mußt du nur mal schauen, was Du bei TextToDisplay anderes verwenden kannst, also statt der Variable eben "Fotos"