Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

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"

Doppelte Einträge finden und löschen
Doppelte Datensätze löschen
Doppelte Zelleinträge listen
Doppelte Datensätze und Leerzeilen löschen
Doppelte Datensätze farblich markieren und auflisten
Doppelte Eingabe von Werten verhinden
In mehrere Spalten doppelte Inhalte entfernen
Doppelte Einträge in UserForm-ListBox löschen
Auf Doppelte prüfen, bevor Tabelleneintrag
Liste ohne Doppelte Werte in ComboBox einlesen
Keine doppelten Werte und nur Werte mit 10 Zeichen akzeptieren
Doppelte aus Array löschen und sortieren
Doppelte Vorkommen in einer Zeile löschen