Sub ohneRahmen_leeren()
Dim loSpalte As Long
Dim loZeile As Long
Dim raBereich As Range
Dim raZelle As Range
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Column
loZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
Set raBereich = .Range(.Cells(1, 1), .Cells(loZeile, loSpalte))
For Each raZelle In raBereich
If Not raZelle.Borders(xlEdgeTop).LineStyle > 0 _
Or Not raZelle.Borders(xlEdgeBottom).LineStyle > 0 Then
raZelle.ClearContents
End If
Next raZelle
End With
Set raBereich = Nothing
Application.ScreenUpdating = True
End Sub