Thema Datum  Von Nutzer Rating
Antwort
25.10.2017 15:49:29 Esther
NotSolved
25.10.2017 16:05:41 Mackie
NotSolved
25.10.2017 16:08:24 Esther
NotSolved
25.10.2017 16:15:03 Mackie
NotSolved
Rot Excel 2010 VBA Soll-Ist Vergleich
 25.10.2017 16:36:12 Gast70117
Solved
25.10.2017 16:42:00 Esther
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
25.10.2017 16:36:12		 Views:
624		 Rating:
     
Antwort:
 Nein
Thema:
Excel 2010 VBA Soll-Ist Vergleich

einfach&geschmacklos(ungeprüft)

Sub Vergleich()
Dim RngS As Range, rngI As Range             'die Zellbereich wo
Dim x As Long                                'Zähler
Const C_SollName As String = "dtmSoll"       'die Vorgaben hier
Const C_IstName As String = "dtmIst"

   'alles auf die benannten Bereiche
   With Range(C_SollName)
      Set RngS = Range(.Cells(2), .Cells(2).End(xlDown))
   End With
   With Range(C_IstName)
      Set rngI = Range(.Cells(2), .Cells(2).End(xlDown))
   End With
   'durch die Soll-Zellen
   For x = 1 To RngS.Cells.Count
      Select Case rngI.Cells(x) - RngS.Cells(x)
         Case Is > 0
            With rngI.Cells(x).Interior
               .ColorIndex = 4
               .TintAndShade = 0.7
            End With
         Case Is < 0
            With rngI.Cells(x).Interior
               .ColorIndex = 3
               .TintAndShade = 0.7
            End With
         Case Else
            rngI.Cells(x).Interior.ColorIndex = xlNone
         '
      End Select
   Next x
   
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
25.10.2017 15:49:29 Esther
NotSolved
25.10.2017 16:05:41 Mackie
NotSolved
25.10.2017 16:08:24 Esther
NotSolved
25.10.2017 16:15:03 Mackie
NotSolved
Rot Excel 2010 VBA Soll-Ist Vergleich
 25.10.2017 16:36:12 Gast70117
Solved
25.10.2017 16:42:00 Esther
NotSolved