Vergleich Columns(7) gg. (2) Code checken?
14.03.2003 12:12:17
Kai
hab mal einen Code angehangen, der bei mir nicht funkt....nur weiss ich nicht warum... Hat da jemand einen Plan? Spalte G und B sollen verglichen werden. Basis ist G, Länge variabel, Code soll laufen bis Ende der Spalte B.....ich weiss nicht, warum det nich jeht....
Kai
Dim rngFind As Range
Dim intRow As Integer
Range("b:b,g:g").Select
Antwort = MsgBox("Werte aus -G- in -B- suchen und löschen?", 4, "Abfrage stellen")
If Antwort = vbNo Then GoTo errorhandler
If Antwort = vbYes Then
Range("a1").Select
Do Until IsEmpty(Cells(((Rows.Count)), 1).End(xlUp))
Set rngFind = Columns(7).Find(Cells(intRow, 2), _
LookIn:=xlValues, lookat:=xlWhole)
If Not rngFind Is Nothing Then
If rngFind = Cells(intRow, 2) Then Cells(intRow, 2).ClearContents
End If
intRow = intRow + 1
Loop
End If
MsgBox "Fertig"
Exit Sub
errorhandler: