Hallo,
ich würde gerne die Left funktion von Excel auch in VBA verwenden. ich möchte in folgendem Code den Inhalt zweier Zellen abgleichen, jedoch nicht komplett, sondern nur die ersten 30 Buchstaben. Wenn diese 30 Buchstaben von links gleich sind, geht es weiter im If satz...
On Error Resume Next
For i = 1 To 820
If Worksheets("data").Left(cells(i, 1), 30) = Worksheets("data").Left(cells(i, 16), 30) Then
Worksheets("data").Cells(i, 17).Copy Destination:= _
Worksheets("data").Cells(i, 1).End(xlToRight).Offset(0, 1)
'if car in column "a" is same like column "p"
'then copy column "q" values into the next free column of data range
Else
Worksheets("data").Cells(i, 16).Font.ColorIndex = 3
'if not highlight in red to attract attention
End If
Next i