Vergleichen von Werten in Excel-VBA

Ich versuche zu vergleichen, die die Zelle A1 mit B1 und wenn es wahr ist, füllen Sie die Zelle F1 mit dem A1-Wert. Aber egal, mein input-Werte, die die if-Bedingung wahr wird.

Sub Macro3()
    Dim i As Integer
    i = 1
    For i = 1 To 10
        If (Range("A" & i).Select = Range("B" & i).Select) Then
            Range("A" & i).Select
            Selection.Copy
            Range("F" & i).Select
            ActiveSheet.Paste
        End If
    Next i      
End Sub
Laufen Sie den code mit der Platte die Sie anpassen wollen, wie das aktive Tabellenblatt? Welche Werte liegen in A1 und B1, sind nicht die gleichen, aber die trigger die True-Bedingung? Warum nicht eine einfache IF-test? 🙂

InformationsquelleAutor venkat | 2011-10-26

Schreibe einen Kommentar