|
Hallo Zusammen,
ich möchte gerne aus einer Tabelle nicht die komplette Zeile, sondern einzelne Zellen der Zeile, in eine Neue Tabelle kopieren. Die Vorhandene Tabelle hat viele ähnliche Zeilen (d.h. einige Zellen der Zeile sind komplett identisch), deshalb soll die neue Tabelle nach einer gewissen Spalte sortiert werden, sodass die Werte dieser Spalte GENAU einmal vorkommen.
Ich habe jetzt versucht das so zu „programmieren“ das er erst prüft, ob der Wert schon in der neuen Tabelle existiert, falls nicht soll er in reinkopieren, aber so ganz geht der Plan nicht auf, er kopiert immer noch die gleichen Werte.
Sub ZellenKopieren()
Dim a As Long
Dim b As Long
Dim c As Long
Dim letzteZeileInS2 As Long
letzteZeileInS2 = Sheets(2).UsedRange.SpeacialCells(xlCellTypeLastCell).Row
Dim letzteZeileInS1 As Long
For a = 2 To letzteZeileInS2
letzteZeileInS1 = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
c = letzteZeileInS1 +1
For b = 2 To c
IF Sheets(2).Cells(a,1).Value <> Sheets(1).Cells(b,1).Value Then
Sheets(1).Cells(k,1) = Sheets(2).Cells(a,1)
Sheets(1).Cells(k,2) = Sheets(2).Cells(a,5)
...
End If
Next b
Next a
End Sub
Danke schonmal im Voraus ;)
|