Thema Datum  Von Nutzer Rating
Antwort
23.09.2015 11:47:01 thomsen28
NotSolved
Blau bei bestimmter Variable in einer anderen Z'elle 1 addieren
 23.09.2015 22:30:38 Gast16794
NotSolved
24.09.2015 13:18:08 thomsen28
NotSolved
25.09.2015 01:16:25 Gast31055
NotSolved
25.09.2015 11:03:44 thomsen28
NotSolved

Ansicht des Beitrags:
Von:
Gast16794		 Datum:
23.09.2015 22:30:38		 Views:
734		 Rating:
     
Antwort:
  Ja
Thema:
bei bestimmter Variable in einer anderen Z'elle 1 addieren

Hallo,

das geht ganz gut mit einer Ereignisprozedur, Ein-Ausgabezelle ist jeweils A1:

Code in das Klassenmodul von Tabelle1:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 Static sblnChange As Boolean
 With Target
     If .Address = "$A$1" Then
       If LCase$(String:=.Value) = "x" And Not sblnChange Then
         With Tabelle2.Cells(1, 1)
             .Value = .Value + 1
         End With
         sblnChange = Not sblnChange
       ElseIf Not LCase$(String:=.Value) = "x" And sblnChange Then
         With Tabelle2.Cells(1, 1)
             .Value = .Value - 1
         End With
         sblnChange = Not sblnChange
       End If
     End If
 End With
End Sub

Gruß,

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
23.09.2015 11:47:01 thomsen28
NotSolved
Blau bei bestimmter Variable in einer anderen Z'elle 1 addieren
 23.09.2015 22:30:38 Gast16794
NotSolved
24.09.2015 13:18:08 thomsen28
NotSolved
25.09.2015 01:16:25 Gast31055
NotSolved
25.09.2015 11:03:44 thomsen28
NotSolved