habe Heute von Harald Unterstützung erhalten, diese Makro Funktioniert
bestens, nun möchte ich aber die vorhandenen Daten der Spalte 2 vorher gelöscht werden, habe schon probiert klappt nicht.
Makro:
Sub VF_Ausfüllen()
Dim i As Integer
For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
If IsEmpty(Cells(i, 2)) And IsEmpty(Cells(i, 3)) Then Cells(i, 2) = "f" & " " & _
Format(Cells(i, 1), "00") & "/" & Format(Cells(i, 4), "00")
Next i
End Sub
Gruß Waltermg