Thema Datum  Von Nutzer Rating
Antwort
19.06.2019 15:16:48 Marta
NotSolved
Blau Makro Automatisch ausführen
 19.06.2019 16:05:31 Gast25453
NotSolved
24.07.2019 12:58:50 Mike
Solved
29.07.2019 16:21:26 Marta
NotSolved

Ansicht des Beitrags:
Von:
Gast25453		 Datum:
19.06.2019 16:05:31		 Views:
668		 Rating:
     
Antwort:
  Ja
Thema:
Makro Automatisch ausführen

< Ich habe schon mit: DieseArbeitsmappe:Privat Sub Worksheet_Change

>> das Ereignis liefert mit Target den geänderten Bereich ( 1 bis .... Zellen möglich)

du kannst nur diese Änderungen auswerten und keine Schleife drehen

jede Zell-Änderung (ausgenommen die Schmuckfarbe) startet wiederum das Ereignis, daher ............

Ungetestetes Beispiel

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
    
   'Target ist der Zellbereich(Range) der Änderung
   'Mehrfachänderung
   For Each c In Target.Cells
      'Ausschluss auf Cells(24, 28) und Cells(12, 7) bis  Cells(20, 7)
      'AB24                             G12:G20
      If c.Address(0, 0) = "AB24" Then
         With Cells(36, 9)
            Select Case c.Value
               Case "A"
                  .Interior.Color = RGB(196, 215, 155)
               Case "B"
                  .Interior.Color = RGB(255, 255, 175)
               Case "C"
                  .Interior.Color = RGB(218, 150, 148)
               Case Else
                  'nix
            End Select
         End With
      Else
         'hier wird ein Bereich geändert, daher
         Application.EnableEvents = False
         If Not Intersect(c, Range("G12:G20")) Is Nothing Then
            If c.Value = 0 Then
               Cells(24, 28).Value = "C"
               Cells(36, 9).Interior.Color = RGB(218, 150, 148)
            End If
         End If
         Application.EnableEvents = True
      End If
   Next c
 
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
19.06.2019 15:16:48 Marta
NotSolved
Blau Makro Automatisch ausführen
 19.06.2019 16:05:31 Gast25453
NotSolved
24.07.2019 12:58:50 Mike
Solved
29.07.2019 16:21:26 Marta
NotSolved