Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1332to1336
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1332to1336
1332to1336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nur die letzte Jahreszahl eintragen

nur die letzte Jahreszahl eintragen
04.10.2013 09:14:14
rieckmann
Hallo,
ich habe eine Tabelle wo in der Spalte "G" Jahreszahlen stehen.
Nun möchte ich dass jeweils immer nur das letzte Jahr in dieser Zelle stehen soll.
Die Jahre stehen in verschiedenen Formen in den Zellen, z.B.
2010
2009-2012
1978/1979
2002 - 2006
2001 / 2009
usw.
und so sollte es aussehen
2010
2012
1979
2006
2009
usw.
also jeweils nur die letzte / jüngste Jahreszahl
Ich füge hier noch eine Beispieltabelle ein:
https://www.herber.de/bbs/user/87534.xls
Wäre schön wenn mir jemand eine VBA Lösung basteln könnte.
Dank und Gruß
Fred

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nur die letzte Jahreszahl eintragen
04.10.2013 09:34:51
rieckmann
Hallo Hajo,
super schnell !
Die 1 Formel klappt super. =RECHTS(A1;4)
Nun habe ich das Ergebnis ja in einer Hilfsspalte stehen
und bekomme es nicht in die Ursprungsspalte.
Ich weis auch nicht was mit der 2. gemeint ist !
R1C1 für Add In =RIGHT(RC[-1],4)
Ist das der Befehl für VBA ?
Gruß
Fred

AW: nur die letzte Jahreszahl eintragen
04.10.2013 09:38:21
Hajo_Zi
Hallo Fred,
markieren, kopieren, Zielzelle wählen, rechte Maustaste, Inhalte einfügen, Werte.

AW: nur die letzte Jahreszahl eintragen
04.10.2013 09:52:12
Hajo_Zi
Hallo Fred,
oder eine VBA Lösung. 
Option Explicit
Sub Jahr()
Dim LoI As Long
Dim Loletzte As Long
' letzter Eibntrag Spalte A/1
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
For LoI = 1 To Loletzte
Cells(LoI, 1) = CInt(Right(Cells(LoI, 1), 4))
Next LoI
End Sub
Gruß Hajo

Anzeige
AW: nur die letzte Jahreszahl eintragen
04.10.2013 10:00:52
rieckmann
Hallo Hajo,
die manuelle Variante wollte ich ja nicht haben.
deine VBA-Lösung ist super.
Eine letzte Frage !
Was muss dort noch geändert werden weil es sich um Spalte "G" handelt und nicht um Spalte "A" ?
Gruß
Fred

AW: nur die letzte Jahreszahl eintragen
04.10.2013 10:02:45
Hajo_Zi
Hallo Fred,
Spalte A ist 1 Spalte G ist dann 7
Anfangszeile beachten.
Gruß Hajo

AW: nur die letzte Jahreszahl eintragen
04.10.2013 10:27:29
rieckmann
Hallo Hajo,
das bekomme ich nicht hin !
Er soll ja in Spalte "G" ab Zeile 2 anfangen.
Sub Jahr()
Dim LoI As Long
Dim Loletzte As Long
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 7)), Cells(Rows.Count, 7).End(xlUp).Row, Rows. _
Count)
For LoI = 2 To Loletzte
Cells(LoI, 1) = CInt(Right(Cells(LoI, 1), 4))
Next LoI
End Sub

Anzeige
AW: nur die letzte Jahreszahl eintragen
04.10.2013 10:34:56
Hajo_Zi
hier beziehst Du dich immer noch auf Spalte A
Cells(LoI, 1) = CInt(Right(Cells(LoI, 1), 4))
Gruß Hajo

AW: nur die letzte Jahreszahl eintragen
04.10.2013 10:40:28
rieckmann
Also so ?
Sub Schaltfläche1_Klicken()
Dim LoI As Long
Dim Loletzte As Long
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 7)), Cells(Rows.Count, 7).End(xlUp).Row, Rows. _
Count)
For LoI = 2 To Loletzte
Cells(LoI, 7) = CInt(Right(Cells(LoI, 7), 4))
Next LoI
End Sub

So geht es auch noch nicht !
Was bedeutet die 4 ?
Gruß
Fred

Anzeige
AW: nur die letzte Jahreszahl eintragen
04.10.2013 10:42:13
Hajo_Zi
Hallo Fred,
4 Stellen von Rechts.
Ich konnte Deinen Test nicht sehen.
Ich habe schon eine Datei nachgebaut das reicht.
Gruß HajoGruß Hajo

AW: nur die letzte Jahreszahl eintragen
04.10.2013 11:00:36
rieckmann
Hallo Hajo,
ich kann ja verstehen dass du die Leute zum mitdenken bewegen möchtest,
aber du merkst doch sicherlich auch an der Fragestellung das manche Leute keine, oder wenig Ahnung haben.
Und für mich schreibst du Brocken für Brocken in Rätzeln !
Trotzdem danke ich dir für deine Mühe, auch wenn ich es mit deiner Hilfe nicht hinbekommen habe.
Wünsche noch einen schönen Tag
Gruß
Fred

Anzeige
AW: nur die letzte Jahreszahl eintragen
04.10.2013 11:03:59
Hajo_Zi
Hallo Fred,
ich lehne es ab auf fremde Rechner zu schauen und Du lehnst es ab Deine Datei zu verlinken. Da kommen wir wohl nicht zum Ziel.
Ich bin dann raus.
Gruß Hajo

AW: nur die letzte Jahreszahl eintragen
04.10.2013 11:34:17
rieckmann
Für die jenigen die es interessiert,
ich hatte einen falschen Wert in meinem Beispiel.
Deshalb funktionierte der Code von Hajo nicht.
Ich hatte unter den Jahreszahlen noch "usw." stehen, und deshalb kam es zum Fehler.
Also dieser Code ist für Spalte "G" ab Zeile 2 funktioniert !
Gruß
Fred
Sub Schaltfläche1_Klicken()
Dim LoI As Long
Dim Loletzte As Long
Loletzte = IIf(IsEmpty(Cells(Rows.Count, 7)), Cells(Rows.Count, 7).End(xlUp).Row, Rows. _
Count)
For LoI = 2 To Loletzte
Cells(LoI, 7) = CInt(Right(Cells(LoI, 7), 4))
Next LoI
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Letzte Stelle einer Zahl mittels VBA in 0 umwand.
Josef

Guten Morgen!
Ich habe in der Spalte A in einem Arbeitsblatt eine Menge siebenstelliger Zahlen, am Schluß mit einer Prüfziffer versehen, stehen. Ich möchte nun, wenn möglich, mittels VBA immer die letzte Zahl in eine 0 umwandeln.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
10.04.2009 06:26:04
Thread-ID: 1068138
12 Beiträge
Anzeige
15 stellige Zahl in Spalte finden!
Jaffi

Hallo Forum,
da meine Anfrage schon ziemlich nach unten gerutscht ist und ich immer noch keine wirkliche Lösung habe versuche ich es nochmal :(
Ich möchte ganz trivial per Userform eine 15 stellige Zahl in eine Spalte schreiben. Es soll aber vor dem Eintragen geprüft werden ob die Zahl...
16.10.2009 17:26:57
Thread-ID: 1110154
4 Beiträge
VBA: WENN bestimmte Zahl, DANN Zahl, SONST Eingabe
ernst

Hallo VBA Experten
Ich bin Lehrer und kenne mich mit xls recht gut aus, kann jedoch leider kein VBA. Ich habe nun ein Problem, dass m.M. nach nur mit VBA zu lösen ist. Vielleicht kann mir ja wer von Euch helfen:
Ich habe 2 Tabellenblätter (es geht um Skikursteilnahme und -verwaltung):<...
22.12.2009 14:26:44
Thread-ID: 1125569
9 Beiträge
Anzeige
WENN DANN Wörter/Zahlen
Miez

Hallo Forum,
Ich möchte für einen Bekannten eine bislang manuell ausgefüllte Tabelle gern in Excel schreiben und dort gewisse Felder "automatisieren" um den Arbeits-Aufwand zu minimieren. Das was ich suche wäre ziemlich ähnlich zu diesem hier: https://www.herber.de/forum/archiv/152to156/t15...
02.07.2010 15:30:43
Thread-ID: 1165178
5 Beiträge
Wenn Name dann Text
Freddy

Gibt es eine Möglichkeit, dass ich beispielsweise "Banane" in eine Zelle schreibe und in der Zelle daneben dann der Preis (z.Bsp. "1.3 Euro/Kg") erscheint und wenn ich "Apfel" schreibe der Preis des Apfels usw.?
Danke schon jetzt für die Hilfe
06.10.2011 15:47:12
Thread-ID: 1232765
6 Beiträge
16-stellige Zahl
Nchne2909

Hi,
wie muss ich die Zelle formatieren damit eine 16-stellige Zahl komplett angezeigt wird. Beispiel:
20102030405060708
Die letzte Zahl wird immer als Null angezeigt, also 20102030405060700
Danke.
04.11.2011 11:33:27
Thread-ID: 1236628
5 Beiträge
Wenn werte zu treffen dann zählen
Dustin

Hallo zusammen.
Ich bräuchte Hilfe bei einer Formel.
Zur sache:
Ich habe eine tabelle in der unter anderem der Dienstgrad steht (A1) und einer anderen sache wir nenne diese mal X (A2).
ich versuche mich die ganze zeit dran aber ich bekomme es leider nicht hin =(
Die Formel s...
13.09.2012 19:31:30
Thread-ID: 1278532
4 Beiträge
VBA2010 wenn dateiname dann makro
Rene

Hallo Leute,
ich habe einen Pfad, wo nur jene Dateien geöffnet werden sollen, die mit "BK" beginnen. Dann soll für all diese geöffneten "BK"-Dateien ein Makro durchlaufen, die BK-Dateien sind alle gleich aufgebaut. Nachdem das Makro durchgelaufen ist, soll die Datei unter dem Format .csv ge...
17.01.2013 09:46:25
Thread-ID: 1294735
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
2
3
8
2
4
5
4
3
2
2
1
6
5
43
11
2
4
4
1
3
3
5
6
2