Zeilen und Spalten
30.12.2004 11:09:49
Markus
ich habe folgenden Code gefunden. Der gibt mir alle Werte aus Tabelle 1 Spalte 1 ohne Duplikate in Tabelle 2 Spalte 1 aus.
Sub kopieren_ohne_doppelte_original()
Dim wks As Worksheet
Dim iRow As Integer, iCol As Integer, iRowT As Integer
Set wks = Worksheets("Tabelle2")
iRow = 1
iCol = 1
wks.Columns("A").ClearContents
Do Until IsEmpty(Cells(iRow, iCol))
Do Until IsEmpty(Cells(iRow, iCol))
If WorksheetFunction.CountIf( _
wks.Columns(1), Cells(iRow, iCol).Value) = 0 Then
iRowT = iRowT + 1
wks.Cells(iRowT, 1).Value = Cells(iRow, iCol).Value
End If
iCol = iCol + 1
Loop
iRow = iRow + 1
iCol = 1
Loop
End Sub
Ich will diesen Code nun gerne an meine Arbeitsmappe anpassen, aber ich krieg das absolut nicht hin. Ich weiß jetzt, dass iCol für Spalten und iRow für die Spalten steht, dennoch ich check das nicht. Kann mir jemand den Code anpassen?
Die Tabelle aus der die Werte ausgelesen werden sollen befindet sich in Tabelle 1 in der Spalte K beginnend in Zeile 3.
Und ausgegeben werden soll das ganze in Tabelle 2 in Spalte F ab Zeile 6.
Vielen Dank schon mal im voraus!
Markus
Anzeige