Kopiervorgang berichtigen? / If-Abfrage
27.07.2003 15:16:07
Erich M.
habe aus dem Forum einen interessanten Vorschlag den ich wie folgt abändern wollte:
nach einem Vergleich von Werten werden bestimmte Zeilen in eine neue Tabelle "Doppelte" kopiert.
Leider erhalte ich bei meinen Änderungsversuchen immer eine Fehlermeldung (bei der If-Abfrage).
Ich habe die "alte Abfrage" noch belassen zum Vergleich:
Sub AA_Kopieren()
Dim WS1 As Worksheet, WS2 As Worksheet, WS3 As Worksheet
Dim iZeile As Long, LetzteZeile As Long
Dim myName1 As String, myName2 As String, myName3 As String
Dim mySpalte1 As String, mySpalte2 As String
myName1 = InputBox("Ausgangstabelle")
myName2 = InputBox("Vergleichstabelle")
myName3 = InputBox("Eintragstabelle")
mySpalte1 = InputBox("Spalte Ausgangstabelle")
mySpalte2 = InputBox("Spalte Vergleichstabelle")
Set WS1 = Worksheets(myName1)
Set WS2 = Worksheets(myName2)
Set WS3 = Worksheets(myName3)
Sheets(myName3).Cells.Clear
LetzteZeile = WS2.Range(mySpalte1 & "2:65536").End(xlUp).Row
For iZeile = 2 To WS1.Range(mySpalte1 & "2:65536").End(xlUp).Row
If WorksheetFunction.CountIf(WS2.Range(mySpalte2 & "2", mySpalte2 & LetzteZeile), WS1.Cells(iZeile, mySpalte1)) _
= 0 Then WS1.Rows(iZeile).Copy WS3.Rows(WS3.Range("A65536").End(xlUp).Row + 1)
' If WorksheetFunction.CountIf(WS2.Range("A2:A" & LetzteZeile), WS1.Cells(iZeile, 1)) _
' = 0 Then WS1.Cells(iZeile, 1).Copy WS3.Cells(WS3.Range("a65536").End(xlUp).Row + 1, 1)
Next iZeile
Range("A1").Select
End Sub
Code eingefügt mit: Excel Code Jeanie
Wer kann den / die Fehler hier erkennen?
mfg
Erich