Microsoft Excel

Herbers Excel/VBA-Archiv

letzte Zeile in mehreren Spalten


Betrifft: letzte Zeile in mehreren Spalten von: Michael
Geschrieben am: 03.03.2019 10:25:57

Hallo,

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

  

Betrifft: ich sehe keine Schleife ... owt von: Matthias L
Geschrieben am: 03.03.2019 10:37:54




  

Betrifft: AW: ich sehe keine Schleife ... owt von: Hajo_Zi
Geschrieben am: 03.03.2019 10:42:52

Option Explicit

Sub letzte_zeile_3()
    Dim letztezeile As Long
    Dim LoI As Long
    For LoI = 10 To 13
        With Cells(IIf(IsEmpty(Cells(Rows.Count, LoI)), _
                Cells(Rows.Count, LoI).End(xlUp).Row, Rows.Count), LoI).Font
            .Name = "Calibri"
            .Size = 18
        End With
    Next LoI
End Sub
GrußformelHomepage

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.


  

Betrifft: ich habe Dich nichts gefragt, Hajo ... von: Matthias L
Geschrieben am: 03.03.2019 10:47:16

owT


  

Betrifft: AW: ich sehe keine Schleife ... owt von: Michael
Geschrieben am: 03.03.2019 10:48:35

Perfekt, Danke für die saubere Lösung

Gruß

Michael


  

Betrifft: AW: ich sehe keine Schleife ... owt von: Michael
Geschrieben am: 03.03.2019 11:31:03

Noch mal kurz eine Frage denn ,dies bezieht sich nur auf Formatierung Font.

wenn ich die Zellen noch weiter mit z.B Tausender Trennzeichen und keine Nachkommastellen formatieren möchte, was muss angepasst werden ?

Ich habe ein Makro aufgezeichnet und versucht mit weitern With Funktion einzubinden :-(

Selection.Style = "Comma"
Selection.NumberFormat = "_(* #,##0.0_);_(* (#,##0.0);_(* ""-""??_);_(@_)"
Selection.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"


  

Betrifft: AW: ich sehe keine Schleife ... owt von: Michael
Geschrieben am: 03.03.2019 12:20:00

hat sich erledigt

.Select statt .font


Beiträge aus dem Excel-Forum zum Thema "letzte Zeile in mehreren Spalten "