AW: Einfügen Befehl
26.12.2019 17:47:56
TZA
Public Sub letzte_zelle()
'Hier wir die letzte Zeile der Spalte C ermittelt
With Cells(Rows.Count, "C").End(xlUp).Offset(3, -1)
.Font.Bold = True
.Font.Size = 12
.Value = "Bindend sind nur die aufgeführten Rabatte auf die angegebene Preisliste."
End With
With Cells(Rows.Count, "C").End(xlUp).Offset(4, -1)
.Font.Bold = True
.Font.Size = 12
.Value = "Für Rundungsfehler und Fehler in der Berechnung wir keine Haftung übernommen."
End With
With Cells(Rows.Count, "C").End(xlUp).Offset(6, -1)
.Font.Bold = True
.Font.Size = 10
.Value = "Lieferzeit: gemäß wöchentlich erscheinender Terminliste auch abrufbar unter: "
End With
With Cells(Rows.Count, "C").End(xlUp).Offset(6, 4)
.Font.Bold = True
.Font.Size = 12
.ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"https://www.trox.de/downloads/b14ed3244ae40aa6/TROX_Terminliste*", _
TextToDisplay:= _
"TROX Terminliste"
End With
End Sub
Hallo noch mal.
ich habe das jetzt so angepasst. leider kommt der Hyperlink nicht am die gewünschte Stelle, wie müsste ich das ändern?
Es wird ja nach den Ende gesucht und die Texte kommen dann auch ans Ende leider der Link nicht wo liegt der Fehler? der Hyperlink soll praktisch hinter dem letztem Text beginnen.
Dankeschön.