Wert aus Zelle verkürzen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

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

Bild


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


Bild


Betrifft: oder so.. :D
von: Markus H.
Geschrieben am: 30.10.2003 09:48:24

=WENN(A1="";"";WECHSELN(A1;RECHTS(A1;5);""))


Bild


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


Bild


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

^^


Bild


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

Trotzdem danke. *g*


Bild


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




Bild


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


Bild


Betrifft: AW: Mein Fehler
von: Dirk
Geschrieben am: 30.10.2003 10:04:06

Jepp. Danke. That's it.


Bild


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.




Bild


Betrifft: AW: Wert aus Zelle verkürzen
von: Dirk
Geschrieben am: 30.10.2003 10:05:57

Danke auch an Dich.


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Felder an andere Prozeduren übergeben"