Formel in der Zelle, aber keine Werte

Sub JahrgängeSortieren() Columns("B:B").Insert Shift:=xlToRight Range("A2").Select Do Until ActiveCell.Value = "" ActiveCell.Offset(0, 1).FormulaR1C1 = _ "=RIGHT(RC[-1],2)+1900+IF(VALUE(RIGHT(RC[-1],2))>50,0,100)" ActiveCell.Offset(1, 0).Select Loop End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Jahrgang() Columns(2).Insert With Range("B2") .NumberFormatLocal = "0" .FormulaLocal = "=RECHTS(A2;2)+WENN(RECHTS(A2;2)>50;1900;2000)" End With Range("B2:B" & Range("A2").End(xlDown).Row).FillDown End Sub

Hallo Franz,
Danke dir sehr, aber leider geht's auch nicht. Die Jahreszahlen werden als 1903 statt 2003 ausgegeben.
Ich glaube, dass es wohl nur die Möglichkeit gibt, die laufende Nummer des Aktenzeichens und der Jahreszahl nicht durch den Schrägstrich zu trennen, sondern durch ein anderes Zeichen, eines, womitExcel nicht rechnen will. Ich habe es jetzt mal mit dem vollständigen Aktenzeichen probiert (z.B.: AR 23/03) und die Spalte A auf Standard formatiert. Mit zwei Hilfsspalten geht's: also zunächst =Rechts(A2;5)in Spalte B und in Spalte C dann meinen alten Code für die Jahreszahlen. Dann kann ich sortieren und mir das zuletzt vergebene Aktenzeichen anzeigen lassen, um das nächste eintragen zu können.
Aber Deinen Code finde ich gut; leider verstehe ich nicht, weshalb er nicht klappt - er scheint doch ganz klar zu sein.
Liebe Grüße aus dem südlihen Niedersachsen.
Fritz

Sub Jahrgang() Columns(2).Insert With Range("B2") .NumberFormatLocal = "0" .FormulaLocal = "=RECHTS(A2;2)+WENN(RECHTS(A2;2)>50;2000;1900)" End With Range("B2:B" & Range("A2").End(xlDown).Row).FillDown End Sub

Hallo, Franz.
Danke, dass Du Dir noch einmal die Mühe gemacht hast, Dich mit meinem Problem zu beschäftigen. Leider haut es immer noch nicht hin. Nun gibt es bei einer Eingabe in Spalte A des Wertes z.B 13/99 in Spalte B 2099, dabei ist es egal, ob ich Spalte A in Zahl, Standard oder Text formatiert habe. Aber! Gebe ich in die mit Zahl oder Standard formatierte Spalte A den Wert 12/03 ein, wird mir 4 in Spalte A angezeigt (was ja auch nicht der Sinn der Sache sein kann), in Spalte B mit Deinem Code 2003. Insofern also richtig - nur, dass ich in Spalte A kein Aktenzeichen mehr habe, sondern statt 12/03 eben 4. Ich werde noch ein wenig hin- und hertüfteln, vielleicht packe ich es ja selbst -irgendwie -Jedenfalls vielen Dank für Deine Mühe.
Falls das jemand liest - wo könnte man denn dazu was nachlesen? Im Archiv habe ich nichts gefunden, aber vielleicht habe ich ja auch unter dem falschen Stichwort gesucht.
Bei dieser Gelegenheit auch mal ein Dankeschön an diejenigen, die sich die Abende um die Ohren hauen, indem sie ihr Wissen weiter geben an die Fragesteller und Besucher des Forums.
Fritz

Sub Jahrgang() Columns(2).Insert With Range("B2") .NumberFormatLocal = "0" .FormulaLocal = "=RECHTS(A2;2)+WENN(WERT(RECHTS(A2;2))<50;2000;1900)" End With Range("B2:B" & Range("A2").End(xlDown).Row).FillDown End Sub

Beliebteste Forumthreads (12 Monate)

Formel in der Zelle, aber keine Werte

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel in der Zelle, aber keine Werte

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread