Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige