Hallo,

ich brauche eure hilfe mit meinem Excel VBA Code und zwar möchte ich die Höhe der Zellen auf 14,4 (Normal) anpassen und den Bereich mit Rahmenlinen versehen.

Der Bereich liegt zwischen A2:M bis Ende der Werte (das schwankt jeden Tag mal mehr mal weniger).

bis jetzt habe ich folgendes zusammen geschustert, funktioniert leider noch nicht ganz.

   With ThisWorkbook.Worksheets("Tabelle1")

      .Range("A2:M" & .Cells(Rows.Count, 2).End(xlUp).Row).Select
      
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
    End With

    .RowHeight = 14.4 'funktioniert noch nicht

   End With

Dank für die Hilfe