letzten 3 Stellen weglassen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

...von Reinhard nicht verstandenen Beschreibung zu extrahieren wage, Lorenz,
könntest du per Formel (von Zelle zu Zelle gezogen) hochzählen und die aktuelle Jahreszahl anhängen. Da du das physisch dann in jeder Zelle tun müsstest, hättest du ein Problem! In der nächsten Zelle wird die so ergänzte Zahl nicht mehr als Zahl erkannt! Wenn soweit von mir richtig gesehen, hängt es jetzt davon ab wie du zählst und ob Jahr sich auch ändern kann. Wenn es kein Problem ist, das Jahr im Folgejahr (in der dann aktuellen Tabellenkopie) manuell zu ändern, wäre die einfachste Variante, das Jahr in die Zellformatierung einzubauen: Benutzerdefiniertes Format - 0"/07". Dann bleibt die Zahl als solche erhalten und du kannst mit ihr weiterrechnen. Wenn das so nicht angeraten ist, hängt es von der Zeilenzahl und wie du zählst ab...
1. würde sich eine Matrixformel für alle Zellen (hier 100 Zeilen 1er Sp - also Zähler 1...100) anbieten, z.B....
{=ZEILE(1:100)&"/"&TEXT(HEUTE();"JJ")} oder...
2. als einfache Formel zum Ziehen...
=ZEILE(1:1)&"/"&TEXT(HEUTE();"JJ") oder...
3. falls der Anhang aus nicht nachvollziehbaren Gründen schon vorhanden ist...
A2:=LINKS(A1;LÄNGE(A1)-3)+1 für die 1.Folgezahl
Da ich aber annehmen muss, dass du das Ganze per VBA versuchst, kann ich mich nur vollends Reinhard anschließen und mein Unverständnis bekunden! Wenn du mit VBA zählst, hast du dafür doch eine Variable, die du hochzählst! Das ist natürlich eine Zahl, die du dann formatiert ausgibst. Dabei hast du ebenfalls die Wahl zwischen Setzen eines benutzerdefinierten Formats auf die Zelle, die letztlich deinen Zähler aufnehmen soll ...Cells(x, y).NumberFormatLocal = "0""/" & Format(Now, "yy") & """" oder dem direkten Anfügen des Jahresnachsatzes in der Zelle ...Cells(x, y) = zähler & "/" & Format(Now, "yy") bzw ...Cells(x, y) = zähler & "/" & Evaluate("Year(" & Now & ")")
Also musst du die 3 letzten Stellen gar nicht wegbringen, um weiterzählen zu können, es sei denn, der String wird anderswo erstellt und du musst ihn so verwenden. Aber was willst du dann zählen? Das ergibt alles keinen rechten Sinn. Ich fürchte, du bist da in eine selbstkonstruierte Denkfalle geraten oder aber ein "schlimmer Infoknauser"... ;-/
Wenn das aber alles so wie von dir verlangt sein muss, geht das per VBA der Formel analog mit CLng(Left(nrjahr, Len(nrjahr) - 3)) oder CLng(Left(nrjahr, Instr(nrjahr, "/")-1))).
Gruß Luc :-?
PS: Da du wohl nicht mit dem Lorenz identisch sein wirst, dem ich vor 2 Jahren schon mal helfen konnte - das nächste Mal bitte besser überlegen und das Problem exakt beschreiben, damit nicht eine Trivialität oder im Ggteil Komplexität vermutet wdn muss, die gar nicht vorliegt. Das schreckt viele Antworter ab - normalerweise auch mich... ;-)

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread