Microsoft Excel

Herbers Excel/VBA-Archiv

doppelte Werte

Betrifft: doppelte Werte von: Jorgi
Geschrieben am: 08.09.2014 20:48:37

Hallo,

neulich wurde schon mal nachgefragt. Jetzt habe ich das Problem auch.
Ich habe zwei Listen und möchte den Vergleich Spalte B und H die doppelten rot und fett schiftgröße 12 haben.

Wie mach ich das mit VBA ? keine Bedingte Formation bitte



Hoffe ihr habt einen Rat.

LG Jorgi

Liebe Grüße aus Polen

  

Betrifft: AW: doppelte Werte von: ransi
Geschrieben am: 08.09.2014 21:13:55

HAllo Jorgi

Ich würds mit einer Ereignissprozedur versuchen.
Teste mal:

Tabelle1

 ABCDEFGHI
1 4  08.09.2014  4 
2 4     19 
3 44     93 
4 48     68 
5 38     4 
6 58     4 
7 51     31 
8 56     4 
9 57     70 
10 123     36 
11 68     6 
12 29     83 
13 88     14 
14 79     80 
15 28     66 
16 53     53 
17 33     76 
18 21     2 
19 89     5 
20 34     44 
21 25     5 
22 62     28 
23 40     231 
24 83     41 
25 91     4 
26 51     96 
27 39     4 
28 12     56 
29 49     91 
30 64     60 
31         
32         

Formeln der Tabelle
ZelleFormel
E1=HEUTE()


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4


' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Calculate()
    Dim Zelle As Range
    Dim Bereich As Range
    Set Bereich = Intersect(Range("B1").CurrentRegion, Range("B:B"))
    For Each Zelle In Intersect(Range("H1").CurrentRegion, Range("H:H"))
        With Zelle.Font
            If WorksheetFunction.CountIf(Bereich, Zelle.Value) Then
                .Color = vbRed
                .Bold = True
                .Size = 12
                Else:
                .Color = vbBlack
                .Bold = False
                .Size = 8
            End If
        End With
    Next
End Sub



ransi


  

Betrifft: AW: doppelte Werte von: simonek
Geschrieben am: 08.09.2014 21:26:27

Hallo ransi,

Danke für deine schnelle Antwort und deine hilfe.
Zwei fagen:
Kann ich den Code einfach in dieser Datei eingeben?
Was ist
Ereignissprozedur?
LG jorgi


  

Betrifft: AW: doppelte Werte von: ransi
Geschrieben am: 08.09.2014 21:39:32

Hallo

Der Code gehört in das Modul des Tabellenblattesin dem das Ganze passieren soll.

Schau es dir mal an und teste:
https://www.herber.de/bbs/user/92531.xlsm

ransi


 

Beiträge aus den Excel-Beispielen zum Thema "doppelte Werte"