VBA code löscht meine Formatierung
Marc
Seit einiger Zeit lese ich hier schon mit und habe schon viele hilfreiche Dinge programmieren können. Leider bin ich jetzt, da ich von VBA keine Ahnung habe, an meine Grenzen gestossen.
Ich nutze eine Übersicht von Stellplätzen welche man über ein Dropdown Menü belegen kann. Durch den jeweils angewählten Titel wird mir dieser in von mir vorgegebener Farbe angezeigt.
Da sich diese Übersicht ständig verändert habe ich einen Button "Inhalt Felder löschen" eingefügt. Soweit, so gut!
Die Felder des Dropdown Menüs sind ja nun immer so breit wie die vorgegebene Zelle. Dadurch lassen sich aber die Informationen nicht gut lesen. Die Zellengrösse eines Dropdowns kann man ja anfangs gross machen und dann in einer schmalen Zelle speichern. Leider löscht mein VBA Button Befehl für den Zelleninhalt zu löschen auch immer wieder diese Formatierung.
Hier ist ein Auschnitt von dem Code. Hat es etwas mit dem "Clear Contents" Befehl zu tun? Kann mir da jemand weiterhelfen?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
Dim bytColor As Byte
' Bereich der überwacht wird
Set Target = Intersect(Target, Range("K3:P3,E10:O10,T10:Y10,AA10:AN10,B17:N17,B22:G22,AE17:AN17, _
_
_
U24:AD24,U29:AD29,C29:P29,B34:Q34")) 'Bereich anpassen
If Target Is Nothing Then Exit Sub
For Each rngCell In Target
Select Case rngCell.Value 'Wert in Großbuchstaben umwandeln
Case "Schrauben"
bytColor = 15
Case "Nägel"
bytColor = 15
Case "Unterlegscheiben"
bytColor = 15
End Select
rngCell.Interior.ColorIndex = bytColor
Next rngCell
End Sub
Sub Schaltfläche13_BeiKlick()
DeleteKondContents Range("K3:P3,E10:O10,T10:Y10,AA10:AN10,B17:N17,B22:G22,AE17:AN17,U24: _
AD24,U29:AD29,C29:P29,B34:Q34")
End Sub
Sub DeleteKondContents(ByVal Bereich As Range)
Dim Zelle As Range
For Each Zelle In Bereich
Zelle.MergeArea.ClearContents
Next Zelle
Set Zelle = Nothing
End Sub