Sub letzte_zelle()
letztezeile = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Select
Paste = "Eine Zelle"
End Sub
leider find ich keinen Befehl mit dem ich den Text in die markierte Zelle einfügen kann.
Danke schon mal.
Sub letzte_zelle()
letztezeile = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Select
Paste = "Eine Zelle"
End Sub
With Cells(Rows.Count, "C").End(xlUp).Offset(1, 0)
.Font.Bold = True
.Font.Size = 14
.Value = "Eine Zelle"
End With
Gruß Matthias
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.With Cells(Rows.Count, "C").End(xlUp).Offset(6, 4)
.Font.Bold = True
.Font.Size = 12
ActiveSheet.Hyperlinks.Add Anchor:=.Offset(1, -5), Address:="https://www.trox.de/ _
downloads/b14ed3244ae40aa6/TROX_Terminliste*", TextToDisplay:="TROX Terminliste"
End With
Gruß MatthiasWith 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 = 10
ActiveSheet.Hyperlinks.Add Anchor:=.Offset(1, -5), Address:="https://www.trox.de/ _
downloads/b14ed3244ae40aa6/TROX_Terminliste*", TextToDisplay:="TROX Terminliste"
End With
With Cells(Rows.Count, "C").End(xlUp).Offset(7, -1)
.Font.Bold = True
.Font.Size = 10
.Value = "Bitte beachten Sie unsere allgemeinen Liefer- und Zahlungsbedingungen:"
End With
With Cells(Rows.Count, "C").End(xlUp).Offset(8, -1)
.Font.Bold = True
.Font.Size = 10
.Value = "Bitte beachten Sie unsere allgemeinen Liefer- und Zahlungsbedingungen:"
End With
Gruß Matthias