"ActiveCell.FormulaR1C1 = "=IF(RC[2]=""f"",""Frau"",IF(RC[2]=""m"",""Herrn""))"
in die einzelnen Spalten kopiert. ich habe es mit "Rows.Count" versucht das hat bei der Formatierung zwar irgendwie geklappt haut jetzt aber nicht hin.
Excel soll quasi in A1,A2,A3 diesen Befehl kopieren, solange bis das Ende der Einträge erreicht ist.
Gezählt habe ich die übrigens mit :
Dim v As Integer
Dim n As Integer
Range("A1").Select
Sheets("Datensatz").Select
v = Cells(Rows.Count, 1).End(xlUp).Row / 2