Thema Datum  Von Nutzer Rating
Antwort
28.07.2022 11:06:42 Denni
NotSolved
28.07.2022 11:24:14 Mase
NotSolved
28.07.2022 11:30:24 Denni
NotSolved
28.07.2022 11:48:04 Mase
NotSolved
28.07.2022 12:01:05 Denni
NotSolved
Blau Automatisieren von Check auf 0 je nach Eingabe
 28.07.2022 21:23:42 Mase
NotSolved
29.07.2022 07:56:56 Denni
NotSolved
29.07.2022 09:53:59 Mase
*****
Solved
29.07.2022 11:53:25 Denni
NotSolved
29.07.2022 12:06:27 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
28.07.2022 21:23:42		 Views:
816		 Rating:
     
Antwort:
  Ja
Thema:
Automatisieren von Check auf 0 je nach Eingabe

Wenn die oben gezeigt Auflistung keinem Muster folgt, bleibt Dir nur der Weg die Kombinationen einzeln zu formulieren.

 

Wenn das "x" sich auf eine Zeile konzentriert, dann wäre der Bereich nicht C1:C5, sondern eben B1:F1... (oder B1 bis deine Grenze)

 

Folglich (bzw nach meinem Verständnis):

'*** Blatt 1
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim c As Excel.Range
     
    If Not Intersect(Range("B1:F1"), Target) Is Nothing Then
        For Each c In Target.Cells
            If UCase$(c.Text) = UCase$("x") Then

                Select Case Target.Address(0, 0)
                    
                    Case Is = "B1"
                        If ThisWorkbook.Worksheets(2).Range("D4").Value = 0 Then
                        '*** Dein Code
                        End If
                        
                    Case Is = "C1"
                        If ThisWorkbook.Worksheets(2).Range("C4").Value = 0 Then
                        '*** Dein Code
                        End If
                    
                
                End Select
                
            End If
        Next c
    End If
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
28.07.2022 11:06:42 Denni
NotSolved
28.07.2022 11:24:14 Mase
NotSolved
28.07.2022 11:30:24 Denni
NotSolved
28.07.2022 11:48:04 Mase
NotSolved
28.07.2022 12:01:05 Denni
NotSolved
Blau Automatisieren von Check auf 0 je nach Eingabe
 28.07.2022 21:23:42 Mase
NotSolved
29.07.2022 07:56:56 Denni
NotSolved
29.07.2022 09:53:59 Mase
*****
Solved
29.07.2022 11:53:25 Denni
NotSolved
29.07.2022 12:06:27 Mase
NotSolved