Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen vergleichen

Forumthread: Zahlen vergleichen

Zahlen vergleichen
Walter
Guten Morgen zusammen,
ich habe mir eine Tabelle der Lottozahlen gebastelt.
Nun möchte ich gern die Zahlen zur Vorwoche vergleichen.
Anbei Musterdatei.
https://www.herber.de/bbs/user/77567.xls
mfg Walter mb
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zahlen vergleichen
20.11.2011 10:33:58
hary
Hallo Walter
bedingte Formatierung mit zählenwenn.
2010
 CDEFGH
951115203648
1021020242547
Bedingte Formatierung und Schriftart werden in dieser Tabelle nicht dargestellt

bedingte Formatierung
Zelle   Typ   Operator   Formel1   Formel2   Format   Unterstrichen   Schrift- farbe Muster   Muster- farbe
C9:H91.Bed.: Formel ist   =ZÄHLENWENN($C2:$H2;C3)   65535        
C101.Bed.: Formel ist   =ZÄHLENWENN($C9:$H9;C10)   65535        
D10:H101.Bed.: Formel ist   =ZÄHLENWENN($C9:$H9;D10)   65535        
Die Bedingungen wurden mit Excel-Version ab 2007 ausgelesen
Durch die veränderte Bedingte Formatierung kann es vorkommen, dass Bedingungen falsch ausgelesen werden

Tabellendarstellung in Foren Version 5.30


gruss hary
Anzeige
AW: Zahlen vergleichen
20.11.2011 10:52:00
Walter
Hallo Hary,
herzlichen Dank.
Gibt es sowas auch als Makro?
Also Schaltfläche drücken und es wird verglichen ?
mfg walter mb
AW: Zahlen vergleichen
20.11.2011 11:15:28
hary
Hallo Walter
ActiveX Button in Tabelle einfuegen und den Code in den Code des Buttons. 

Private Sub CommandButton1_Click()
Dim zeile As Long
Dim spalte As Long
For zeile = 4 To Cells(Rows.Count, 3).End(xlUp).Row
For spalte = 3 To 8
If WorksheetFunction.CountIf(Range(Cells(zeile - 1, 3), Cells(zeile - 1, 8)), Cells(zeile,  _
spalte)) > 0 Then
Cells(zeile, spalte).Interior.Color = vbYellow
End If
Next
Next
End Sub

gruss hary
Anzeige
Tausend Dank Hary, klappt --))
20.11.2011 12:22:01
Walter
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige