VBA Problem
09.12.2003 11:41:50
Sascha
Habe ein kleines Problem:
Mit folgendem code :
Sub sort()
Dim wks As Worksheet
Dim iRow As Integer, iRowT As Integer
Set wks = Worksheets("Tabelle2")
wks.Columns("A").ClearContents
iRowT = 3
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 von aktivem Blatt Spalte A ohne doppelten in Tabelle 2 einfügen .
Ich möchte aber diese Makro aus Tabelle 3 betätigen .
Also egal aus welche Tabelle ich diese Makro starte soll immer Tabelle1 Spalte A ohne doppelten in Tabelle 2 eingefügt werden
Wer hilft mir weiter
Danke in voraus
Gruß Sascha