Thema Datum  Von Nutzer Rating
Antwort
Rot Markierung durch Beenden aufheben !!!
 22.08.2017 12:21:34 Alfons
NotSolved
23.08.2017 01:52:03 Ben
NotSolved

Ansicht des Beitrags:
Von:
Alfons		 Datum:
22.08.2017 12:21:34		 Views:
849		 Rating:
     
Antwort:
  Ja
Thema:
Markierung durch Beenden aufheben !!!

Ich habe eine Togglebutton, der bei Aktivierung die Möglichkeit gibt, Zellen in bsp. rot einzufärben, wobei dieser diese Zellen zählt und diesen Wert in einer Userform und dort in einer Textbox ausgibt. In dieser Userform habe ich auch einen beenden Button, wo es so sein soll, dass beim Drücken dieses Buttons die über den Togglebutton ausgelöste Markierung wieder aufhebt. Wie kann ich so was umsetzen. Bekomme ich nicht hin !!!! Die Zählung läuft dann über die Formel countcolorcell !!

Hier der Code vom Togglebutton:

Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim cell, x
Dim blau As Long
   
   
If ToggleButton1 = True Then
 
     x = Target.Cells.Count
     If x = 0 Then Exit Sub
     For Each cell In Target
          With cell.Interior
               If .ColorIndex = 3 Then
                    .Pattern = xlNone
                    .TintAndShade = 0
                    .PatternTintAndShade = 0
               Else
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .ColorIndex = 3
                    .TintAndShade = 0
                    .PatternTintAndShade = 0
               End If
          End With
     Next cell
 frmAuswahl.Show (0)
               ElseIf ToggleButton1 = False Then
               
               End If
        
 
Application.CalculateFull
 
 
End Sub
 
Code Beenden Button:
 
Private Sub CommandButton3_Click()
 
 Unload Me
 
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Markierung durch Beenden aufheben !!!
 22.08.2017 12:21:34 Alfons
NotSolved
23.08.2017 01:52:03 Ben
NotSolved