habe eine Frage zur Erstellung eines Hypelink in einem zweiten Tabellenblatt durch Zusammensetzung mehrerer Zellwerte.
Habe ein Makro was bisher die Werte einzelner Zellen kopiert. Dies funktioniert problemlos.
Sub Daten_in_Liste_kopieren()
Dim Name As String
Dim Kundennummer As String
Dim Ort As String
Dim PLZ As String
Dim Strasse As String
Set Tabellenblatt_Berechnung = ActiveSheet
ActiveSheet.Select
Kundennummer = Range("E1")
Name = Range("E2")
Strasse = Range("E3")
PLZ = Range("E4")
Ort = Range("E5")
Worksheets("TEST").Select
Worksheets("TEST").Range("A1").Select
If Worksheets("TEST").Range("A1").Offset(1, 0) "" Then
Worksheets("TEST").Range("A1").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Date
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Kundennummer
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Strasse
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = PLZ
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Ort
ActiveCell.Offset(0, 1).Select
---Hier Soll der Hyperlink hin ---
Tabellenblatt_Berechnung.Activate
End Sub
Der Hyperlink soll mit Werten verschiedener Zellen "B3 + B4 + B5 + .xls" aus dem ursprünglichen Tabellenblatt befüllt werden. Das Ursprungsblatt hat verschiedene Bezeichnungen.Kann mich hier jemand bitte unterstützen.
Viele Grüße
Jens