Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Maltitol am Januar 25, 2019, 11:00:34 Vormittag

Titel: Excel sehr langsam bei vielen Steuerelementen...
Beitrag von: Maltitol am Januar 25, 2019, 11:00:34 Vormittag

Guten Morgen zusammen,
ich habe ein Problem mit meiner Exceltabelle in der ganz viele Steuerelemente vorhanden sind, und zwar ist Excel schnarch langsam geworden weil die ganzen Steuerelemente immer aufgebaut werden müssen. Es geht um ein eine Checkbox wo ein Haken drin ist oder nicht.

Dies würde ich gerne ändern:
Bei einem Klick in eine Zelle soll die Zelle einfach mit einem Wingding Symbol gefüllt werden.

Dafür habe ich im Netz folgenden Code gefunden:

Code: [Auswählen]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
    If Range("a1") <> "" Then
        If Asc(Left(Range("a1"), 1)) = 253 Then Range("a1") = Chr(254) Else Range("a1") = Chr(253)
    Else: Range("a1") = Chr(253)
    End If
End If
Das Funktioniert in der Zelle A1 auch sehr gut. Aber wie kann ich den Code umschreiben das er auf einen Bereich von ich sag mal A1 bis C5 gilt ?

Hat da jemand eine Idee?

Ich wäre über jede Hilfe sehr Dankbar. Ich bin noch neu in der VBA Programmierung.

Viele Grüße

Titel: Antw: Excel sehr langsam bei vielen Steuerelementen...
Beitrag von: lupo1 am Januar 26, 2019, 21:26:22 Nachmittag

Private Sub Worksheet_BeforeRightClick(ByVal T As Range, C As Boolean)
If T.Row < 6 And T.Column < 4 Then T = 1 - T
C = True: End Sub

A1:C5: benDefFmt "ü";; mit Schrift Wingdings. Evtl. noch eine DÜ, Liste, 0;1

Vergiss die blöden Kästchen 253 und 254. Das tut viel mehr in den Augen weh (wenn man älter ist)!