Hi,
habe in Excel folgendes Problem.
Ich muss eine Zeile initialisieren, und das bedeutet der in der 19 Spalte ein Hperlink sein muss der in die selbe Datei auf eine andere Tabelle linkt.
Ein entwurf sieht folgendermaßen aus
(die Tabelle in die gelinkt werden muss heisst 'Rechnung'):
Public Sub AddNewLine()
Dim newLine As Long
Dim tmpLink As String
newLine = FindFreeRow(FIRST_ROW) 'Funktion findet die entsprechende Zeile
'Initialisieren der Felder (soweit möglich)
If newLine > 0 Then
tblÜbersicht.Cells(newLine, 1).value = Format(Now, "dd.mm.yyyy")
tblÜbersicht.Cells(newLine, 2).value = tblÜbersicht.Cells(newLine - 1, 2).value + 1
tblÜbersicht.Activate
tblÜbersicht.Cells(newLine, 3).Activate
'in folgende Zelle muss eine Verknüpfung zu einer anderen Tabelle rein
tmpLink = "=hyperlink(" & Chr(34)
tmpLink = tmpLink & "\\SERVER\DEVELOPE\test\test01.xls"
tmpLink = tmpLink & " - Rechnung!B3" & Chr(34) & ";" & Chr(34) & "<LINK_" & newLine - 1 & ">" & Chr(34) & ")"
tblÜbersicht.Cells(newLine, 19).value = tmpLink
End If
End Sub
Das ganze wird letztenendes auch ein Link, nur man kann ihm nicht folgen. Es erscheint eine fehlermeldung:
"Die angegebene Datei konnte nicht geöffnet werden"
wäre klasse wenn mir jemand einen Tip geben könnte