Hallo,
Ich möchte eine bestimmte Spalte (immer Spalte G), durchsuchen, wenn in einer Zelle ein X enhalten ist dann soll eine 0 dazugeschrieben werden. Bsp HausX dann HausX0
Hier ist mein Code, ich hab hier leider etwas vergessen so funktioniert er nicht.
Dim spalte As Long
Dim zeile As Long
Dim i As Long
For zeile = i To Cells(Rows.Count, 7).End(xlUp).Row
If Cells(i, 7) "X" Then
Cells(i, 7) = i & "0"
End If
Next
Gruß