Office: Inhalt der Zelle teilen

mister_bean · 26. August 2012

Hallo alle miteinander,

ich hab ein kleines Problem!

Ich habe in Spalte A meiner Tabelle solche Daten stehen:

GEC8296_EDDF_HKJK_00
DLH677_HEAX_EDDF_00 usw.

Mein Anliegen war es, das der Inhalt geteilt wird und zwar so das wie im 1. Beispiel EDDF in Spalte B eingetragen wird und HKJK in Spalte C. Für das 2. Beispiel wäre es dann HEAX in Spalte B und EDDF in Spalte C. Also wichtig sind nur die Buchstaben zwischen dem ersten und letzten Underscore. Ich hatte es schon mit der Mid- und Right-Funktion im Zusammenhang mit dem Underscore Zeichen probiert aber das klappte nicht!
Deswegen hoffe ich, dass mir hier jemand einen Tipp geben kann!

Vielen Dank, Jan

:)

Beverly · 27. August 2012

Hi Jan,

wenn die Anzahl an auszulesenden Buchstaben tatsächlich immer 4 ist:

Tabelle1
A B C
1 GEC8296_EDDF_HKJK_00 EDDF HKJK
2 DLH677_HEAX_EDDF_00 HEAX EDDF
verwendete Formeln
Zelle Formel Bereich
B1 =TEIL(A1;FINDEN("_";A1)+1;4)
C1 =LINKS(WECHSELN(A1;LINKS(A1;FINDEN("_";A1)+5);"");4)
B2 =TEIL(A2;FINDEN("_";A2)+1;4)
C2 =LINKS(WECHSELN(A2;LINKS(A2;FINDEN("_";A2)+5);"");4)

mister_bean · 27. August 2012

Danke schön!

Funktioniert wunderbar!

mücke · 27. August 2012

Moin Jan,

da es jetzt schon mal fertig ist, hier (m)eine VBA-Lösung.
Code:

Option Explicit

Sub ZelleTeilen()

Dim avarSplit As Variant
Dim zeile As Long

With Sheets("Tabelle1") 'Bitte anpassen
For zeile = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
avarSplit = Split(.Cells(zeile, "A").Value, "_")
.Range("B" & zeile).Value = avarSplit(1)
.Range("C" & zeile).Value = avarSplit(2)
Next
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Inhalt der Zelle teilen

Inhalt der Zelle teilen

Inhalt der Zelle teilen

Inhalt der Zelle teilen

Inhalt der Zelle teilen - Similar Threads - Inhalt Zelle

Zeilen löschen wenn eine Zelle der Zeile einen bestimmten Inhalt hat

Wenn Formel= Wenn etwas erfüllt, zeige Inhalt einer Zelle

Zellen Inhalt zurückgeben

Bestimmte Ziffern in Zelle entfernen

Inhalt von zwei Zellen vergleichen und hervorheben

Druckverbot, wenn Zelle einen bestimmten Inhalt haben.

Leerzellen in Excel-Tabellen nachträglich mit Inhalten darüberliegender Zellen ausfüllen

	A	B	C
1	GEC8296_EDDF_HKJK_00	EDDF	HKJK
2	DLH677_HEAX_EDDF_00	HEAX	EDDF

verwendete Formeln
Zelle	Formel	Bereich
B1	=TEIL(A1;FINDEN("_";A1)+1;4)
C1	=LINKS(WECHSELN(A1;LINKS(A1;FINDEN("_";A1)+5);"");4)
B2	=TEIL(A2;FINDEN("_";A2)+1;4)
C2	=LINKS(WECHSELN(A2;LINKS(A2;FINDEN("_";A2)+5);"");4)