letzte Zeile in mehreren Spalten
03.03.2019 10:25:57
Michael
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