Kopieren ohne doppel
01.12.2003 18:22:48
Sascha
Es ist wieder mal zeit für Eure Hilfe
Mit diesem Makro
Sub kod()
Dim wks As Worksheet
Dim iRow As Integer, iRowT As Integer
Set wks = Worksheets("Tabelle2")
wks.Columns("a").ClearContents
iRowT = 1
For iRow = 1 To Range("A65536").End(xlUp).Row
If Cells(iRow, 1) <> " " Then
If WorksheetFunction.CountIf(wks.Columns(1), _
Cells(iRow, 1)) = 0 Then
iRowT = iRowT + 1
wks.Cells(iRowT, 1) = Cells(iRow, 1)
End If
End If
Next
End Sub
Kann ich Spalte A von aktiven Blatt zu Tabelle 2 sortieren.
Mein Problem ist das ich möchte das diese kopieren ohne doppelten IMMER von
TABELLE1 zu TABELLE2 geht und nicht wie zur zeit von aktiven Blatt zu Tabelle2.
Wer hilft weiter????
Danke in voraus
Gruß Sascha
Anzeige