Sub update()
    Dim zeile, spalte, tag, monat As Long
    Dim range As range
    Dim cell As range
    Dim tabellenname As String
    tabellenname = "Tabelle1" '<----------------------------- Hier Tabellennamen eintragen
    Set range = Sheets(tabellenname).range("C3:AG14")
    zeile = 2
    spalte = 2
    tag = Day(Now())
    monat = Month(Now())
    
    Sheets(tabellenname).Select
    
    For Each cell In range
        'Alten Tag fokusieren
        cell.Select
        'Rahmen entfernen
        If (Selection.Borders(xlEdgeTop).Color = 255) Then
            Selection.Borders(xlDiagonalDown).LineStyle = xlNone
                Selection.Borders(xlDiagonalUp).LineStyle = xlNone
                With Selection.Borders(xlEdgeLeft)
                    .LineStyle = xlContinuous
                    .ThemeColor = 2
                    .TintAndShade = 0
                    .Weight = xlThin
                End With
                With Selection.Borders(xlEdgeTop)
                    .LineStyle = xlContinuous
                    .ThemeColor = 2
                    .TintAndShade = 0
                    .Weight = xlThin
                End With
                With Selection.Borders(xlEdgeBottom)
                    .LineStyle = xlContinuous
                    .ThemeColor = 2
                    .TintAndShade = 0
                    .Weight = xlThin
                End With
                With Selection.Borders(xlEdgeRight)
                    .LineStyle = xlContinuous
                    .ThemeColor = 2
                    .TintAndShade = 0
                    .Weight = xlThin
                End With
                Selection.Borders(xlInsideVertical).LineStyle = xlNone
                Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
        End If
    Next
    
    'Aktuellen Tag fokusieren
    Sheets(tabellenname).Cells(zeile + monat, spalte + tag).Select
    
    'Rahmen setzen
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Color = 255
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Color = 255
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Color = 255
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Color = 255
        .TintAndShade = 0
        .Weight = xlThick
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub