Also so: "Ist Zelle C gleich Zelle B dann in schreib in A ein *"
Er soll das von B1:C593 machen!
Vielen Dank im vorraus!!!
MfG Rehhirsch
Sub Stern()
dim z as long
for z = 1 to 593
if cells(z,2)=cells(z,3) then cells(z,1) = "*"
next
End Sub
Option Explicit
Sub Stern()
Dim z As Long
For z = 1 To 593
Cells(z, 2) = Trim$(Cells(z, 2))
If Cells(z, 2) = Cells(z, 3) Then Cells(z, 1) = "*"
Next