Makro
01.02.2003 21:00:24
Vanessa
Wer kann das folgende Makro anschauen?
Die Funktion, von diesem Makro ist Folgende:
Übertragen von Tabelle2 Spalte D zu Tabelle4 Spalte A ohne doppelte Daten.
es funktioniert bei mir nicht gut und ich weiß nicht wo der Fehler ist
*****************************************************
Option Explicit
Sub Übertragen()
Dim ws1 As Worksheet
Set ws1 = Worksheets(4)
Dim i%, i1%, i2%
Dim letzteZeile As Long
Dim shLetzteZeile As Long
letzteZeile = ws1.Range("A65536").End(xlUp).Row
i = 1
For i1 = 2 To Worksheets.Count
shLetzteZeile = Worksheets(i1).Range("D65536").End(xlUp).Row
For i2 = 4 To shLetzteZeile
If ws1.Columns(1).Find(what:=Worksheets(i1).Cells(i2, 4)) _
Is Nothing Then
ws1.Cells(letzteZeile + i, 1) = Worksheets(i1).Cells(i2, 4)
i = i + 1
End If
Next i2
Next i1
End Sub
Danke
Gruß Vanessa