Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
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 (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bedingte Formatierung

Bedingte Formatierung
Günter
Guten Tag,
hätte da eine Frage:
Habe von ein Makro (unten stehend) bekommen.
Klappt super.
Makro sucht mir aus Spalte A (mit bedingter Formatierung)
Duplikate und kopiert diese in Tabelle2.
Wie sollte das Makro aussehen, damit mit auf Tabelle2
auch zusätzlich die restlichen Spalten aus Tabelle1 mit reinlaufen (20 Spalten) ?
Gruß
Sub Bedingte_Formatierung()
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bedingte Formatierung
08.10.2009 09:09:27
Günter
Guten Morgen,
bitte Frage schließen.
Versuche neu im Forum zu formulieren.
Danke und Gruß
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige