aus Text Monat auslesen
#1
hallo,

ich habe in verschiedenen Zellen untereinander stehen,

Spalte A

11 Mar.
21 Jan.
10 Dec.
12 Nov.
15 Oct.4
9 Oct.3
8 Oct.
9 Jul.
13 Jun.
14 Mar.
13 Dec.
11 Oct.
9 Aug.
15 Jun.
8 Mar.
6 Dec.
6 Jun.
7 Mar.
6 Dec.
9 Nov.
18 Sep.
31 Aug.
11 May
6 Oct.
1 Sep.
28 Jun.2

in jeder Zelle steht ein Datum (Tag und Monat). wie kann ich daraus den jeweiligen Monat auslesen? z.B. aus 7Mar. -> März oder 28 Jun.2 -> Juni


Viele Grüße
Top
#2
Hola,

es sieht eher danach aus als stünde in den Zellen TEXT.
Ist aber nur geraten.
Gruß,
steve1da
Top
#3
ja in den Zellen steht TEXT. ich will aus dem TEXT den Monat auslesen. Habe ich den Monat, dann möchte ich damit als DATUMSWERT weiterarbeiten.
Top
#4
Hallo,

(30.10.2017, 14:36)steve1da schrieb: es sieht eher danach aus als stünde in den Zellen TEXT.

Davon gehe ich aus, steht ja so auch im Betreff.

PHP-Code:
=VERGLEICH(RECHTS(A1;4);{"Jan."."Feb."."Mar."};) 
Top
#5
Hola,

sorry, Betreff nicht wahrgenommenen.

Gruß,
steve1da
Top
#6
Moin,
mit einer Excel-Formel wie (nur) VERGLEICH() wird das wohl nicht unbedingt etwas, denn teilweise ist noch ein Punkt hinter dem Monatskürzel und in einigen Fällen auch noch eine Zahl.
Da bietet sich wohl nur eine etwas längere Formel oder VBA (UDF) an.
Beste Grüße
  Günther

Excel-ist-sexy.de
  …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
Top
#7
Moin!
Ist doch ganz einfach …  :19:

ABC
111 Mar.MarMärz
221 Jan.JanJanuar
310 Dec.DecDezember
412 Nov.NovNovember
515 Oct.4OctOktober
69 Oct.3OctOktober
78 Oct.OctOktober
Formeln der Tabelle
ZelleFormel
B1=TEIL(A1;FINDEN(" ";A1)+1;3)
C1=TEXT("1."&SUCHEN(B1;"##janfebmaraprmayjunjulaugsepoctnovdec")/3;"MMMM")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

oder ohne Hilfsspalte:

AB
111 Mar.März
221 Jan.Januar
310 Dec.Dezember
412 Nov.November
515 Oct.4Oktober
69 Oct.3Oktober
78 Oct.Oktober
89 Jul.Juli
913 Jun.Juni
Formeln der Tabelle
ZelleFormel
B1=TEXT("1."&SUCHEN(TEIL(A1;FINDEN(" ";A1)+1;3);"##janfebmaraprmayjunjulaugsepoctnovdec")/3;"MMMM")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
[-] Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:
  • Hopfenmeile
Top
#8
Hallo, wie wär's mit..:

Arbeitsblatt mit dem Namen 'Tabelle1'
AEF
1DateM_NameM_Zahl
211 Mar.März3
321 Jan.Januar1
410 Dec.Dezember12
512 Nov.November11
615 Oct.4Mai5
79 Oct.3Dezember12
88 Oct.Oktober10
99 Jul.Juli7
1013 Jun.Juni6
1114 Mar.März3
1213 Dec.Dezember12
1311 Oct.Oktober10
149 Aug.August8
1515 Jun.Juni6
168 Mar.März3
176 Dec.Dezember12
186 Jun.Juni6
197 Mar.März3
206 Dec.Dezember12
219 Nov.November11
2218 Sep.September9
2331 Aug.August8
2411 MayMai5
256 Oct.Oktober10
261 Sep.September9
2728 Jun.2Juni6
2827 Apr. 2April4

ZelleFormel
E2=TEXT(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(A2;"Mar";3);"May";5);"Oct";10);"Dec";12);" ";".");".";"";2);"MMMM")
F2=MONAT(--WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(A2;"Mar";3);"May";5);"Oct";10);"Dec";12);" ";".");".";"";2))
Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg
Gruß Jörg
stolzes Mitglied im ----Excel-Verein
Freund einer excellenten Power Query-Abfrage
Top
#9
(30.10.2017, 15:26)RPP63 schrieb: Ist doch ganz einfach …  :19:
...
oder ohne Hilfsspalte:
...
KLAPPT SPITZE!!! 1000 DANK!!!
Top
#10
Und eine UDF
Code:
Function myMonth(inp As String) As String

   Dim aMonth As Variant
   Dim outp As String
   Dim i As Long
   
   If IsDate(inp) Then
       myMonth = Month(CDate(inp))
       Exit Function
   End If
   
   aMonth = Array("Jan", "Feb", "Mar", "Mär", "Apr", "Mai", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Okt", "Nov", "Dec", "Dez")
   
   For i = LBound(aMonth) To UBound(aMonth)
       If InStr(1, inp, aMonth(i)) Then
           outp = aMonth(i)
           Exit For
       End If
   Next i
   
   Select Case outp
       Case "Jan"
           myMonth = 1
       Case "Feb"
           myMonth = 2
       Case "Mar", "Mär"
           myMonth = 3
       Case "Apr"
           myMonth = 4
       Case "Mai", "May"
           myMonth = 5
       Case "Jun"
           myMonth = 6
       Case "Jul"
           myMonth = 7
       Case "Aug"
           myMonth = 8
       Case "Sep"
           myMonth = 9
       Case "Oct", "Okt"
           myMonth = 10
       Case "Nov"
           myMonth = 11
       Case "Dez", "Dec"
           myMonth = 12
   End Select
   
End Function
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste