ich möchte die letzten Zeilen in Spalten 10,11,12 und 13 ermitteln und die Werte formatieren.
Habe das so hinbekommen, macht was es soll, ist aber bestimmt nicht so optimal.
Mit Schleife und ...Rows.Count, 10 and 11 and 12..... leider erfolglos.
Hat einer Idee wie ich es besser machen kann ?
Sub letzte_zeile_3()
Dim letztezeile As Long
letztezeile = ActiveSheet.Cells(Rows.Count, 10).End(xlUp).Select
With Selection.font
.Name = "Calibri"
.Size = 18
End With
letztezeile = ActiveSheet.Cells(Rows.Count, 11).End(xlUp).Select
With Selection.font
.Name = "Calibri"
.Size = 18
End With
letztezeile = ActiveSheet.Cells(Rows.Count, 12).End(xlUp).Select
With Selection.font
.Name = "Calibri"
.Size = 18
End With
letztezeile = ActiveSheet.Cells(Rows.Count, 13).End(xlUp).Select
With Selection.font
.Name = "Calibri"
.Size = 18
End With
End Sub