Office: Kopieren mit Formatierung und doppelte Einträge

Hallo noch mal,

wie kann ich hier die Formatierung der Zellen mitnehmen?

Tab2.Cells(i, 2).Value = Tab1.Cells(L, 2).Value

Value gibt mir ja an, dass der Wert kopiert wird, aber ich würde gern auch die Formatierung mitnehmen.


Außerdem würde ich gerne wenn in einer Spalte Einträge doppelt vorkommen alle, bis auf den ersten löschen.
Also wirklich nur den Eintrag, nicht die ganze Zeile (so find ich es nur im Internet)

Viele Grüße
Anna

 

Hallo Anna,

erfolgt in VBA mit dem Befehl, der im Arbeitsblatt dem Befehl "Kopieren/Inhalte einfügen..." entspricht:

Code:

Sub FormatKopieren()
  Dim Tab1 As Worksheet, Tab2 As Worksheet
  Dim i As Integer, L As Integer
'  
  Set Tab1 = Worksheets("Tabelle1")
  Set Tab2 = Worksheets("Tabelle2")
  i = 10: L = 20
'  
  'Nur Wert zuweisen/kopieren
  Tab2.Cells(i, 2).Value = Tab1.Cells(L, 2).Value
'  
  'Alles (Wert, Format, etc) kopieren
  Tab1.Cells(L, 2).Copy
  Tab2.Cells(i, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
  
End Sub

Das folgende Makro führt dies im Spaltenbereich D4:D20 aus (Variable SpBereich):

Code:

Sub DoppeltenSpalteninhaltLöschen()
  Dim SpBereich As Range, SpL As Range
  Dim Zelle As Range, Zelle2 As Range
'  
  'Im Spaltenbereich D4:D20 nur jeweils den 1. Wert bei mehrfach vorhandenen Werten beibehalten
  Set SpBereich = Range("D4:D20")
  With SpBereich
    Set SpL = .Cells(.Rows.Count)
    For Each Zelle In .Resize(.Rows.Count - 1).Cells
      If Not IsEmpty(Zelle) Then
        For Each Zelle2 In Range(Zelle.Offset(1), SpL).Cells
          If Zelle = Zelle2 Then Zelle2.ClearContents
        Next Zelle2
      End If
    Next Zelle
  End With
End Sub

 

Herrlich,
es funktioniert :)
Danke!!!

 

Hallo Nochmal,
ich habe jetzt D4:D20 ersetzt durch B3:B2000 und es tut es nicht mehr. Muss ich noch etwas ändern?
Viele Grüße
Anna

 

Grad noch mal rumprobiert und verglichen, es werden nur einige "doppelte" Gelöscht...

 

Hallo Anna,

folgendes Makro müsste laufen

Code:

Sub DoppeltenSpalteninhaltLöschen()
  Dim SpBereich As Range, SpL As Range
  Dim Zelle As Range, Zelle2 As Range
'  
  'Im Spaltenbereich D4:D20 nur jeweils den 1. Wert bei mehrfach vorhandenen Werten beibehalten
  Set SpBereich = Range("B3:B2000")
  With SpBereich
    Set SpL = .Cells(.Rows.Count)
    For Each Zelle In .Resize(.Rows.Count - 1).Cells
      If Not IsEmpty(Zelle) Then
        For Each Zelle2 In Range(Zelle.Offset(1), SpL).Cells
          If Zelle = Zelle2 Then Zelle2.ClearContents
        Next Zelle2
      End If
    Next Zelle
  End With
End Sub

Natürlich kann dieses 2. Makro bedeutend mehr Zeit benötigen. Wie viel das ist, lässt sich nicht eindeutig angeben. Man kann eine Formel nur für den ungünstigsten denkbaren Fall angeben. Dieser liegt vor, wenn alle Zellen im ganzen zu testenden Bereich Zahlen enthalten, die noch dazu alle verschieden sind - es also zu keinen geleerten Zellen kommt. Unter diesen Voraussetzungen kann man die Anzahl der Tests in der Zeile "If Zelle = Zelle2 Then ... " berechnen:
Formel für die Testanzahl: =N*(N-1)/2
Dabei ist N die Zellenanzahl im zu testenden Bereich.
Für den Bereich D4:D20 ist N=17 und die Anzahl der Tests ist somit 17*16/2 = 136 (im ungünstigsten Fall)
Für den Bereich B3:B2000 ist N=1998 und die Anzahl der Tests ist somit 1998*1997/2 = 1.995.003 (im ungünstigsten Fall)

 

Also es läuft sehr schnell durch, so viele Zellen sind auch nicht befüllt.
Worin besteht der Unterschied zwischen den 2 Makros?
Hab das 2. getetstet (auch in dem ich mal einfach nur a,b,c in die Zellen geschrieben habe)
und es werden nur ein paar doppelte gelöscht, so wie vorhin auch..
Manchmal verzweifel ich an Excel ;-)
Danke für deine schnelle Antwort !! :)

 

Ok, ich hab den Fehler bei mir gefunden ;-)
1. falsche Zellen genommen
und 2. waren manche Zelleinträge doch nich zu 100% identisch
Ganz großes Sorry!!!