Thema Datum  Von Nutzer Rating
Antwort
03.08.2020 07:03:54 Andreas
Solved
Blau BewertungSystem
 04.08.2020 06:18:06 Gast61406
*****
Solved
04.08.2020 06:20:26 Gast61406
*****
Solved
04.08.2020 07:40:29 Andreas
NotSolved

Ansicht des Beitrags:
Von:
Gast61406		 Datum:
04.08.2020 06:18:06		 Views:
663		 Rating:
     
Antwort:
 Nein
Thema:
BewertungSystem

Hm, ... so?

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
  Dim symbol1 As String
  Dim symbol2 As String
  Dim color1  As String
  Dim color2  As String
  
  symbol1 = ChrW(9679)   'Symbol für Kreis ausgefüllt
  color1 = 0
  
  symbol2 = ChrW(9676)   'Symbol für Kreis nicht ausgefüllt
  color2 = 4
  
  Dim rngArea As Excel.Range
  Dim rngCell As Excel.Range
  
  Set Target = Target.Cells(1) 'Single-Cell-Treatment
  
  For Each rngArea In Range("A1:G1,A3:G3").Areas
    
    'liegt Target innerhalb des Bereichs 'rngArea'?
    If rngArea.Row <= Target.Row And Target.Row <= (rngArea.Row + rngArea.Rows.Count) _
    And rngArea.Column <= Target.Column And Target.Column <= (rngArea.Column + rngArea.Columns.Count) _
    Then
      Application.EnableEvents = False 'schaltet Makro-Events AUS (relevent wenn Change-Event ebenfalls verwendet wird)
      'in allen Zellen des Bereichs 'rngArea'
      'das entspr. Symbol setzen
      For Each rngCell In rngArea.Cells
        If rngCell.Address <> Target.Address Then
          rngCell.Value = symbol2
        Else
          rngCell.Value = symbol1
        End If
      Next
      Application.EnableEvents = True 'schaltet Makro-Events AN
      Exit For 'For-Schleife verlassen (rngArea)
    End If
    
  Next 'rngArea
  
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
03.08.2020 07:03:54 Andreas
Solved
Blau BewertungSystem
 04.08.2020 06:18:06 Gast61406
*****
Solved
04.08.2020 06:20:26 Gast61406
*****
Solved
04.08.2020 07:40:29 Andreas
NotSolved