Wert aus Zelle verkürzen

• Wert aus Zelle verkürzen von Dirk vom 30.10.2003 09:36:40
  • AW: Wert aus Zelle verkürzen - von Jörg Gradert am 30.10.2003 09:46:07
    • oder so.. :D - von Markus H. am 30.10.2003 09:48:24
  • Mein Fehler - von Dirk am 30.10.2003 09:54:49
    • ich steig aus.. *grummel* KEIN VBA ot - von Markus H. am 30.10.2003 09:56:39
      • AW: ich steig aus.. *grummel* KEIN VBA ot - von Dirk am 30.10.2003 09:59:51
        • löl.. ^ ^ bitte.. ot - von Markus H. am 30.10.2003 10:05:25
    • AW: Mein Fehler - von Jörg Gradert am 30.10.2003 10:00:01
      • AW: Mein Fehler - von Dirk am 30.10.2003 10:04:06
  • AW: Wert aus Zelle verkürzen - von Hajo_Zi am 30.10.2003 10:01:46
    • AW: Wert aus Zelle verkürzen - von Dirk am 30.10.2003 10:05:57

Betrifft: Wert aus Zelle verkürzen
von: Dirk
Geschrieben am: 30.10.2003 09:36:40
Hallo zusammen.

Zuerst sorry für den blöden Betreff aber mir is nix anderes eingefallen.
Zum Problem: Ich will den Text aus einer Zelle um die letzten fünf Stellen verkürzt auslesen und weiterverwenden. Wie stell ich das am dümmsten an?

Beispiel: In Zelle steht "September 2003". Für mich ist aber nur der "September" relevant. Das Jahr wird für den Zweck nicht gebraucht.

Danke und Cheers

Betrifft: AW: Wert aus Zelle verkürzen
von: Jörg Gradert
Geschrieben am: 30.10.2003 09:46:07
Hallo Dirk,
wenn es wirklich Text ist und kein Datum

=LINKS(A1;LÄNGE(A1)-5)

Gruss Jörg

Betrifft: oder so.. :D
von: Markus H.
Geschrieben am: 30.10.2003 09:48:24
=WENN(A1="";"";WECHSELN(A1;RECHTS(A1;5);""))

Betrifft: Mein Fehler
von: Dirk
Geschrieben am: 30.10.2003 09:54:49
Hallo nochmal.

Danke für die schnellen Antworten, funktioniert auch. Hab leider vergessen zu erwähnen, dass ich das ganze in VBA brauch. So entschuldige ich mich , einen Teil eurer Zeit vergeudet zu haben und hoffe, ihr könnt mir nochmal helfen. ;-)

Denke

Betrifft: ich steig aus.. *grummel* KEIN VBA ot
von: Markus H.
Geschrieben am: 30.10.2003 09:56:39
^^

Betrifft: AW: ich steig aus.. *grummel* KEIN VBA ot
von: Dirk
Geschrieben am: 30.10.2003 09:59:51
Trotzdem danke. *g*

Betrifft: löl.. ^ ^ bitte.. ot
von: Markus H.
Geschrieben am: 30.10.2003 10:05:25

Betrifft: AW: Mein Fehler
von: Jörg Gradert
Geschrieben am: 30.10.2003 10:00:01
Hallo Dirk,
gleiche Formel nur englisch

Sub test()
Dim a As String
Dim b As String
a = Range("A1")
b = Left(a, Len(a) - 5)
MsgBox b
End Sub

Gruss Jörg

Betrifft: AW: Mein Fehler
von: Dirk
Geschrieben am: 30.10.2003 10:04:06
Jepp. Danke. That's it.

Betrifft: AW: Wert aus Zelle verkürzen
von: Hajo_Zi
Geschrieben am: 30.10.2003 10:01:46
Hallo Dirk

Sub Test()
Dim Teil As String
Teil = Mid(Range("A1"), 1, Len(Range("A1")) - 5)
End Sub

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.



Betrifft: AW: Wert aus Zelle verkürzen
von: Dirk
Geschrieben am: 30.10.2003 10:05:57
Danke auch an Dich.