Durch Lösch_Button entstehen Rahmen

Computer: Software & Programmierung Office Software
#1

Guten Morgen :smiley:

ich habe folgendes Problem, ich habe ein Button erstellt mit der Funktion zum Löschen bestimmter Zellen. Durch das betätigen des Buttons entstehen schwarze Rahmen um die Zellen die ich löschen möchte.
Ich habe auch die Funktion xlLineStyleNone benutzt leider funktioniert es nicht. Es sollen wie vorher keine Rahmen zu sehen sein, nur die ich selber vorher formatiert habe.
Hier ein kurzes Stück von meinem Code:
Antwort = MsgBox(„Alle Daten löschen?“, vbYesNoCancel, „Information“)
  
   If Antwort = vbYes Then
   'Benutzer hat JA gewählt
    Range(„B5:K9“).Activate
    Selection.ClearContents
    Selection.Borders(xlDiagonalDown).LineStyle = xlLineStyleNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlLineStyleNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlLineStyleNone
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlLineStyleNone
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlLineStyleNone
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlLineStyleNone
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlLineStyleNone
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlLineStyleNone
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range(„B5:K9“).Select
    Sheets(„Produkt._Monat“).Select
    End If
End Sub

Danke Euch schonmal!

Gruß Khai…

#2

Hallo Khai,

wenn du die Formatierung nicht verändern möchtest, dann „lass die Finger davon“. Mein Vorschlag (ungetestet)

If Antwort = vbYes Then
'Benutzer hat JA gewählt
Range(„B5:K9“).ClearContents
Sheets(„Produkt._Monat“).Select
End If

Das löscht natürlich immer den Inhalt der selben Zellen, aber das scheint mir ja gewollt.

Das Sheets(„Produkt._Monat“).Select kann ggfs. auch weg, sofern dies nicht ein anderes Sheet ist, welches geöffnet werden soll.

Select verwende ich im übrigen fast nie. IdR reicht es die Zellen zu manipulieren. Sie zu aktivieren macht nur dann Sinn, wenn der User anschließend in dieser Zelle weiter arbeiten soll.

fg

Dirk.P

#3

Hi Dirk.P

Klare Ansage…Logisch! Hat geklappt.

Danke

Khai…