Office: (Office 2016) Datumsangabe rausschneiden

Hi,

ich habe folgendes Problem.

Ich habe eine sehr große Liste mit Autodaten, um genauer zu sein Typangaben. Hier mal Beispielhaft um was es geht. (Die Automarke steht in der Zeile davor und ist hier irrelevant.)

147 (937) (01.01 -)
155 (167) (01.92-12.97)
100 Avant (44, 44Q, C3) (08.82-11.90)
80 (89, 89Q, 8A, B3) (06.86-10.91)
A1 Sportback (8XA, 8XF) (11.11-)

Ihr seht, dass am Ende in Klammern immer das Baujahr in verschiedenen Varianten steht.
Mal nur als "Ab-Baujahr" mit oder ohne LEERZEICHEN vor dem Bindestrich:

(01.01 -) oder (11.11-)

oder mal als gesamter Zeitraum, wie (08.82-11.90).

Ihr seht, dass auch bei den Automodellen oftmals noch Werte wie die Typbezeichnung in Klammern steht.

Ich möchte nun gern diese die Baujahrwerte und die Typbezeichnung (inkl der dazugehörigen Klammerwerte) einzeln in 2 weiteren Zellen haben. Einmal nur den Autotyp und einmal nur die jeweilige Angabe zum Baujahr.

Ich bekomme das leider nicht hin, weil alles was ich mache auch immer die anderen geklammerten Sachen findet.

Kann mir da wer bitte helfen?

Tausend Dank! Grüße! Robert

 

Hi,

da keine Version angegeben ist, hier mal zwei Varianten:

 

Hi Edgar!

Wow! Tausend Dank! Ich weiss zwar nicht, wie genau diese Funktionen das machen, aber es klappt. Ich werde es gleich mal auf meine rieen Tabelle testen. Danke Dir!

PS: Ich habe "Microsoft Office Home and Business 2016". Dachte ich hätte das korrekt angebeben.. Sorry..

 

Hi Edgar, oder andere,

es gibt doch noch ein Problem. Ich hatte vergessen zu sagen, dass es natürlich auch Autotypen gibt ohne Klammern in den reinen Typangaben. Bei diesen funktionieret die Formel dann nicht.

Also es gibt auch sowas hier:

500 / 595 / 695 (01.08 -)
500C / 595C / 695C (05.08 -)
GRANDE PUNTO (12.07 - 12.12)
PUNTO (03.12 -)

Könntest Du die Formel dahingehen anpassen? Sorry!

 

Hi,

 

Danke! Mega!
PS: Für dich ist es vermutlich easy, aber wenn ich mir diese erste formel darin ansehe, explodiert echt mein Kopf ^^
LG! Rob

 

Wollte nur sagen, dass alles super geklappt hat. :)

 

Moin ROB,

. Das kann ich gut nachvollziehen. Mir geht es mit endlosen Formeln nicht anders

Ich habe Dir deshalb mal eben eine VBA-Version gebastelt, die nichts anderes tut als Edgars Formel, aber zwei wesentliche Vorteile hat: 1.) musst Du die Formel nicht in jede Zeile kopieren (falls Edgar das nicht bereits berücksichtigt hat ...), 2. kein weniger geübter Nutzer, Dir Deine Tabelle kaputtmachen kann. Denn es sind keine Formeln mehr sichtbar.

Wie funktionierts? Rechte Maustaste auf den Tabellennamen > dort Code anzeigen auswählen und in das große Fenster diesen Code kopieren:

Code:

Option Explicit

Sub SplitByBracketsRevers()
Dim i As Integer, iRows As Integer, iOpen As Integer, iClose As Integer, iPeriod As Integer
Dim sLine As String

iRows = Cells(Rows.Count, 1).End(xlUp).Row  'stellt erst einmal fest, wieviel Zeilen Du in Spalte 1 belegt hast

For i = 1 To iRows                          'startet eine Schleife durch alle belegten Zeilen
    sLine = Cells(i, 1)                     'schreibt Deine Daten in eine Variable
    iClose = InStrRev(sLine, ")")           'sucht die Position der ersten schließenden Klammer von rechts
    iOpen = InStrRev(sLine, "(")            'sucht die Position der ersten öffnenden Klammer von rechts
    iPeriod = (iClose - iOpen) + 1          'legt die Länge Deines Ergebnisses fest
    Cells(i, 2) = Left(sLine, iOpen - 1)    'schreibt Typ und erste Klammer des Oldtimers in Spalte 2
    Cells(i, 3) = Right(sLine, iPeriod)     'schreibt den Produktionszeitraum in Spalte 3
Next i                                      'wiederholt den ganzen Zirkus zeilenweise

Columns.AutoFit                             'passt die Spaltenbreiten auf ihre Inhalte an

End Sub

Dieses Fenster schließt Du und speicherst Deine Datei als .XLSM oder XLSB ab. Aufrufen kannst Du den VBA-Code (der hier zeilenweise erklärt, was passiert) dann mit Alt+F8 > SplitByBracketsRevers und schon hast Du Deine Produktionszeiträume
Das sollte auch klappen, wenn Du vor Deinem PUNTO noch Mercedes oder Jaguar stehen hast

Schöne Grüße

 

Hi,

Naja, eine Formel mit 135 Zeichen ist wohl nicht endlos.

hat er.

und zwei wesentliche Nachteile: Man braucht dazu eine Bedienungsanleitung, wenn man in VBA nicht fit ist, und muß sie extra aufrufen.

 

Oder:

	A	H	I	J	K
1	147 (937) (01.01 -)	147 (937)	(01.01 -)	18	50
2	155 (167) (01.92-12.97)	155 (167)	(01.92-12.97)
3	100 Avant (44, 44Q, C3) (08.82-11.90)	100 Avant (44, 44Q, C3)	(08.82-11.90)
4	80 (89, 89Q, 8A, B3) (06.86-10.91)	80 (89, 89Q, 8A, B3)	(06.86-10.91)
5	A1 Sportback (8XA, 8XF) (11.11-)	A1 Sportback (8XA, 8XF)	(11.11-)
6	500 / 595 / 695 (01.08 -)	500 / 595 / 695	(01.08 -)
7	500C / 595C / 695C (05.08 -)	500C / 595C / 695C	(05.08 -)
8	GRANDE PUNTO (12.07 - 12.12)	GRANDE PUNTO	(12.07 - 12.12)
9	PUNTO (03.12 -)	PUNTO	(03.12 -)

Zelle	Formel
H1	=WECHSELN(A1;I1;"")
I1	=LET(x;TEXTTEILEN(A1;"(");"("&INDEX(x;;SPALTEN(x)))
J1	=LÄNGE(FORMELTEXT(H1))-1
K1	=LÄNGE(FORMELTEXT(I1))-1

 

nett, wie ich bin habe ich

diese ja gleich mitgeliefert ...