ich habe bereits sehr viele gute Anregungen aus diesem Forum übernommen, vielen Danke dafür!
Zu folgendem Problem konnte ich bisher leider noch keine Lösung finden.
Folgende Ausgangslage:
Ich habe Excel als Datenbank missbraucht (war eine Vorgabe, die ich so hinnehmen musste). Diese Tabelle ist ziemlich umfangreich (34 benutzte Spalten, bis zu 400 benutzte Zeilen). Daher möchte ich möglichst Platzsparend arbeiten, soll heißen dass ich keine neuen Zeilen oder Spalten einfügen kann und möchte.
In dieser Tabelle füge ich Informationen zum Projektverlauf ein, Terminüberwachung, Dateneingänge, Lieferantenverzeichnis, Adressbuch usw.
Jetzt habe ich eine Zelle 'Bemerkung' in der ein beliebiger Text steht. Wenn nun ein Dateneingang vorliegt, möchte ich zusätzlich in diese Zelle einen Hyperlink setzen.
Nun besteht das Problem darin, dass dann auch der Text als Hyperlink markiert wird, was nun nicht wirklich toll aussieht.
Mein Code dazu ist wie folgt:
Dim ausgabe as String
Dim zeile as Integer
Dim wks As Worksheet
Set wks = ActiveWorkbook.Sheets("Projekt")
...
zeile = RückgabeFkts.frZeile() 'gibt die letzte freie Zeile nach bestimmten Kriterien zurück
...
If Len(frm_Eintrag.frm_eintrag_txt_ao) > 0 And Not (frm_Eintrag.frm_eintrag_txt_ao = "Ablageort" Or frm_Eintrag.frm_eintrag_txt_ao = "Storage location") Then
If Len(ausgabe) > 0 Then: ausgabe = ausgabe & vbCrLf 'es ist eine Bemerkung vorhanden
ausgabe = ausgabe & "Abgelegt unter: " & vbCrLf
'wks.Cells(zeile, 18) = ausgabe & wks.Hyperlinks.Add(wks.Cells(zeile, 18), frm_Eintrag.frm_eintrag_txt_ao)
wks.Cells(zeile, 18) = wks.Hyperlinks.Add(wks.Cells(zeile, 18), frm_Eintrag.frm_eintrag_txt_ao)
wks.Cells(zeile, 18) = ausgabe & wks.Cells(zeile, 18)
End If
...
Die mittlere, auskommentierte Zeile funktioniert nicht, da verschwindet der Inhalt aus der Variable 'ausgabe'. Mit einer Leerzelle zwischen 'ausgabe' und dem Hyperlink, wird wieder der gesamte Text als Hyperlink gesetzt.
Fehlerausschluss: Wenn ein Hyperlink gesetzt werden soll, steht in 'frm_eintrag_txt_ao' die richtige Adresse (per msoFileDialogFolderPicker ausgewählt)
Vielen Dank für eure Mühen!
Gruß,
Martin