hab auch mal wieder ein Problem. Nen bischen habe ich über Macrorecorder und nach Bearbeitung (Gruß an Hajo,100% ohne!!! Select) zusammenbekommen. Begrenzt für die Zellen ab H2 bis H22 funktioniert das auch ganz gut. Nun werden die Daten allerdings aus einem anderen Programm in das Tabellenblatt eingefügt. Und da ist es sicher, dass es mehr Zeilen als 22 sein werden.
Kann mir jemand bitte den Codes so verändern (neuer/anderer/besserer Vorschlag wäre auch ok), dass, vorausgesetzt in der linken Spalte G, in gleicher Zeile, Daten vorhanden sind, entsprechende Formel genau bis dahin eingefügt wird. Also alles ein wenig variabler.
Hier mein kleines Werk:
Sub alter()
Range("H2").FormulaR1C1 = "=YEAR(TODAY())-YEAR(RC[-1])"
Columns("H:H").NumberFormat = "General"
Range("H2").AutoFill Destination:=Range("H2:H22"), Type:=xlFillDefault
End Sub
Herzlichen Dank
HansH
Rückmeldung sicher ich zu;-)