Ich habe eine Tabelle mit ca. 1200 Spalten.
Jede 2. Spalte möchte ich markieren und die Funktion "Duplikate entfernen" anwenden.
Sowie es jetzt ist, müsste ich das 600 x manuell machen. Habt ihr eine Idee, wie des schneller laufen könnte?
LG
Max
A | B | C | D | |
1 | 54:15 | 1,55 | 08:00 | 34:00:00 |
2 | 08:00 | |||
3 | 08:00 | |||
4 | 08:00 | |||
5 | 08:00 | |||
6 | 08:00 | |||
7 | 06:15 |
verwendete Formeln | |||
Zelle | Formel | Bereich | N/A |
A1 | =SUMME(C1:C7) | ||
B1 | =A1/D1 |
Zahlenformate | |||
Zelle | Format | Inhalt | |
A1 | '[h]:mm;@ | 2,26041666666667 | |
C1:C6 | 'hh:mm | 0,333333333333333 | |
C7 | 'hh:mm | 0,260416666666667 | |
D1 | '[h]:mm:ss | 1,45833333333333 |
Bedingte Formatierung Haupttabelle 1 | |||||||||||
Wird angewendet auf | Nr. Bed. Regeltyp | Operator | Formel1 | Formel2 | Format Schrift Füll-farbe | Unterstrichen | Schrift- farbe | Muster | Muster-farbe | Typ | Bereich |
$A:$D | 01.Bed.: Formel ist | =REST(SPALTE();2)=0 | 5287936 | 2 | $A:$D |
Bedingte Formatierung Haupttabelle 2 | oberere/unterer Bereich | ||||||||
Wird angewendet auf | Nr. Bed. | Format Zelle | Anhalten | Auswahl | Anzeige | Anzahl | Durchschnitt | Typ | Bereich |
$A:$D | 01.Bed. | Falsch | 2 | $A:$D |
Sub DuplicateAufSpalte1_entfernen()
Dim W As Worksheet
'Version Duplicate nur auf Spalte 1: xyz|abc und xyz|def sind Duplicate
Set W = ActiveSheet
For i = 1 To 1200 Step 2
W.Cells(1, i).Resize(1, 2).EntireColumn.RemoveDuplicates Columns:=1, Header:=xlNo
Next
End Sub
Sub DuplicateAufBeideSpalten_entfernen()
Dim W As Worksheet
'Version Duplicate auf Spalte 1 + 2: xyz|abc und xyz|abc sind Duplicate, xyz|def nicht
Set W = ActiveSheet
For i = 1 To 1200 Step 2
W.Cells(1, i).Resize(1, 2).EntireColumn.RemoveDuplicates Columns:=Array(1, 2), Header:= _
xlNo
Next
End Sub
wie gesagt: mit Vorsicht geniessenFor s = 2 to activesheet.Usedrange.Columns.Count Step 2
Colmns(s).removeDuplikates 1, xlno
Next
Gruß Daniel