Columns("L").FormulaR1C1 = "=IF(RC[-1]="""","""",HYPERLINK(""https//jira/browse/""&RC[-1]))"
Füllt die gesamte Spalte L (wirklich ALLES).
Option Explicit
Sub Bsp()
Dim rng As Excel.Range
With Worksheets("Tabelle1")
Set rng = .Cells(.Rows.Count, "K").End(xlUp)
If IsEmpty(rng.Value) Then Exit Sub 'Exit, da kein Eintrag in Spalte K vorhanden
'Bereich Spalte L referenzieren, ausgehend von Zelle L1
'bis zur letzten Zeile mit Inhalt in Spalte K (s. rng oben)
Set rng = .Range(.Cells(1, "L"), .Cells(rng.Row, "L"))
rng.FormulaR1C1 = "=IF(RC[-1]="""","""",HYPERLINK(""https//jira/browse/""&RC[-1]))"
End With
End Sub
Dies füllt abhängig vom Inhalt in Spalte K den Bereich in Spalte L.
Das Prinzip, mit dem man hier das Ende bestimmt, könnte man auch noch für den Anfang betreiben. Ich gehe hier jedoch davon aus, dass der Anfang fest ist - Zelle L1.
|