Thema Datum  Von Nutzer Rating
Antwort
Rot Funktion ohne Schaltfläche ablaufen lassen
22.06.2023 12:19:42 Gast2206
NotSolved
22.06.2023 12:59:16 UweD
NotSolved
22.06.2023 13:49:45 xlKing
NotSolved
22.06.2023 13:56:36 xlKing
NotSolved
22.06.2023 15:02:10 Gast2206
NotSolved
23.06.2023 13:56:06 Gast2206
NotSolved
23.06.2023 14:44:50 Gast15772
NotSolved
23.06.2023 15:42:10 Bernd
NotSolved
23.06.2023 16:29:18 xlKing
NotSolved
26.06.2023 07:25:23 Gast2206
NotSolved
27.06.2023 08:39:41 Gast2206
NotSolved
28.06.2023 22:55:18 xlKing
NotSolved
29.06.2023 14:01:55 Gast2206
NotSolved

Ansicht des Beitrags:
Von:
Gast2206
Datum:
22.06.2023 12:19:42
Views:
1443
Rating: Antwort:
  Ja
Thema:
Funktion ohne Schaltfläche ablaufen lassen

Guten Tag,

ich möchte folgenden Code ein wenig optimieren.

Grundsätzlich geht es darum, dass Werte in die Zellen I1 und G1 geschrieben werden.
Jetzt soll der Wert in G1 in rot gefärbt werden, wenn dieser Wert von dem Wert in I1, 10% abweicht.

Diese Funktion läuft bisher über eine Schaltfläche ab.
Funktioniert das auch ohne Schaltfläche?

Also das wenn man Werte in die betreffende Zellen schreibt, die Funktion automatisch abläuft.
Was müsste ich dann ändern?


Danke im Voraus


Hier der Code:


Sub pcWerteRot()
'=(I1-G1)/G1*100
Dim lngZeile As Long
Dim sngAbweichung As Single
lngZeile = 1
Do While Range("I" & lngZeile & "").Value <> ""
    sngAbweichung = (Range("I" & lngZeile & "").Value - Range("G" & lngZeile & "").Value) / Range("G" & lngZeile & "").Value * 100
    If Abs(sngAbweichung) >= 10 Then
        Range("I" & lngZeile & "").Font.Color = vbRed
    End If
    lngZeile = lngZeile + 1
Loop
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 Funktion ohne Schaltfläche ablaufen lassen
22.06.2023 12:19:42 Gast2206
NotSolved
22.06.2023 12:59:16 UweD
NotSolved
22.06.2023 13:49:45 xlKing
NotSolved
22.06.2023 13:56:36 xlKing
NotSolved
22.06.2023 15:02:10 Gast2206
NotSolved
23.06.2023 13:56:06 Gast2206
NotSolved
23.06.2023 14:44:50 Gast15772
NotSolved
23.06.2023 15:42:10 Bernd
NotSolved
23.06.2023 16:29:18 xlKing
NotSolved
26.06.2023 07:25:23 Gast2206
NotSolved
27.06.2023 08:39:41 Gast2206
NotSolved
28.06.2023 22:55:18 xlKing
NotSolved
29.06.2023 14:01:55 Gast2206
NotSolved