Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bedingte Formatierung

Bedingte Formatierung
Günter
Guten Morgen,
eine Frage:
Über die Formel =ZÄHLENWENN($A$1:$A1;A1)größer1 bei bedingter Formatierung
lasse ich mir alle Duplikate (gelb hinterlegt) in Spalte A anzeigen.
Original wird nicht gelb
Möchte aber alle Duplikate auch löschen und nur
das Original stehen lassen.
Komme nicht weiter....
Grüsse
Günter

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bedingte Formatierung
05.10.2009 08:33:57
robert
hi,
mit spezialfilter ?
an eineandere stelle kopieren, keine duplikate,
spalte A löschen
gruß
robert
AW: Bedingte Formatierung
05.10.2009 08:46:07
Günter
Hallo Robert,
sind über 200.000 Datensätze.
Dauert ewig.... über Spezialfilter ohne Duplikate.
Gruß
Günter
AW: Bedingte Formatierung
05.10.2009 08:57:05
robert
hi,
hier eine vba-lösung von Tino
gruß
robert
Sub Beispiel()
Dim myDic, myAr
Dim L As Long
Set myDic = CreateObject("Scripting.Dictionary")
'Wo die Daten stehen
With Sheets("Tabelle1")
myAr = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
End With
For L = 1 To UBound(myAr)
myDic(myAr(L, 1)) = 0
Next L
'Wo die Daten hin sollen
With Sheets("Tabelle2")
.Range("A1", .Cells(.Rows.Count, 1).End(xlUp)).Value = "" 'Ziel leer machen
.Range("A1").Resize(myDic.Count) = Application.Transpose(myDic.keys)
End With
End Sub

Anzeige
AW: Bedingte Formatierung
05.10.2009 09:03:13
Günter
Danke Robert (und Tino)!
Werde testen...
Gruß
Günter
AW: Bedingte Formatierung
05.10.2009 09:52:52
Günter
Hallo,
bekomme die Fehlermeldung:
Laufzeitfehler "13"
Typen unverträglich
bei der Zeile: .Range("A1").Resize(myDic.Count) = Application.Transpose(myDic.keys)
Gruß
Günter
Excel-Version ?
05.10.2009 13:33:00
robert
hi,
bei mir unter excel 2003 läuft es....
die tabellenblätter hast du angepasst ?
oder lautet der befehl-Application.Transpose-in der 2007-er version anders ?
sorry, ich stell mal wieder auf offen
gruß
robert
unter xl2007 geht es auch.
05.10.2009 14:10:13
Tino
Hallo,
wahrscheinlich stimmt der Datenbereich nicht den der Günter das angegeben hat.
Eventuell ist die Spalte leer oder hat nur einen Eintrag in der ersten Zelle.
Gruß Tino
Anzeige
Danke Tino,...
05.10.2009 16:47:09
robert
hi,
ich meine, wenn man einen code bekommt,
dann sollte man schon auf die bereiche und tabellenblätter schauen.
hoffe Günter bringt das hin ;-)
gruß
robert
AW: Danke Tino,...
07.10.2009 08:17:08
Günter
Hallo Robert und Tino,
sorry, dass ich mich erst jetzt melde.
Aber die entsprechende Spalte A ist gefüllt von
Anfang an.
Werde es mal mit Excel 2003 probieren.
Danke und Gruß
Günter
AW: Danke Tino,...
07.10.2009 13:15:05
Günter
Hallo, klappt jetzt Prima.
Tabellenblatt 2 hatte gefehlt.
Danke und Gruß
Günter
Danke f.Rückmeldung-owT-Gruß
07.10.2009 16:30:36
robert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige