Zeichen von rechts mit VBA abschneiden

Moderator: ModerationP

Zeichen von rechts mit VBA abschneiden

Beitragvon WaWa » 06. Aug 2018, 20:38

Moin zusammen,
ich möchte mit VBA von Text in einer Zelle die letzten 12 Zeichen von rechts abschneiden.
In Spalte D steht in den Zellen Text mit jeweils unterschiedlicher Länge, von dem ich jeweils die letzten 12 Zeichen am Ende (rechts) abschneiden möchte.
Ich habe schon Tante Google befragt, aber alle Lösungen beruhen darauf, das immer eine bestimmte Anzahl Zeichen von links stehen bleibt.

Grüße aus dem Norden.
WaWa
Office 2016
WaWa
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 74
Registriert: 25. Jan 2008, 22:51

Re: Zeichen von rechts mit VBA abschneiden

Beitragvon knobbi38 » 06. Aug 2018, 21:19

gelöscht!
knobbi38
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 294
Registriert: 02. Jul 2015, 14:23

Re: Zeichen von rechts mit VBA abschneiden

Beitragvon Ralf A » 06. Aug 2018, 21:31

Hi Wawa,

neben der Left Funktion gibt es auch das Gegenteil.

12 Zeichen von Rechts aus Zelle A1 abschneiden:
Code: Alles auswählen
Debug.Print Right(Range("A1"), 12)


Um evtl. vorhandene Leerzeichen zu beseitigen
Code: Alles auswählen
Debug.Print Right(Trim(Range("A1")), 12)
Ciao, Ralf
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben.

Bild
Ralf A
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 183
Registriert: 17. Mär 2018, 11:47

Re: Zeichen von rechts mit VBA abschneiden

Beitragvon Gast » 06. Aug 2018, 21:52

Hallo Ralf,

doch eher mit Left...
Code: Alles auswählen
Debug.Print Left(Range("A1"), Len(Range("A1")) - 12)


Lg. Tim
Gast
 

Re: Zeichen von rechts mit VBA abschneiden

Beitragvon Ralf A » 06. Aug 2018, 23:39

@Tim,

das kannst Du halten, wie Du willst. Ich hätte da noch Mid im Angebot....;)
Ciao, Ralf
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben.

Bild
Ralf A
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 183
Registriert: 17. Mär 2018, 11:47

Re: Zeichen von rechts mit VBA abschneiden

Beitragvon Gast » 07. Aug 2018, 04:22

...okey, MID geht auch. :lol:
Aber
...die letzten 12 Zeichen von rechts abschneiden...

...mit Right(Range("A1"), 12) ...;)
Naja.

Lg. Tim
Gast
 

Re: Zeichen von rechts mit VBA abschneiden

Beitragvon Ralf A » 07. Aug 2018, 08:27

...um es noch mal klarzustellen.... Mit Tim's Lösung werden die letzten 12 Zeichen AB- (also die letzten 12 weg), mit meiner werden sie AUSgeschnitten (nur die letzten 12 übrig lassen).

Durch die Formulierung der Frage enstand da wohl ein Missverrständnis, da jeder von uns das anders interpretiert hatte. Denn gefordert war:
ich möchte mit VBA von Text in einer Zelle die letzten 12 Zeichen von rechts abschneiden.
Somit wäre Tim's Vorschlag richtig.
Wobei ich immer noch nicht glaube, dass das auch gemeint war.... Denn 1. hieß es VON rechts und auch der 2.Satz:
Ich habe schon Tante Google befragt, aber alle Lösungen beruhen darauf, das immer eine bestimmte Anzahl Zeichen von links stehen bleibt.

lässt eher auf meine Variante schliessen
Ciao, Ralf
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben.

Bild
Ralf A
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 183
Registriert: 17. Mär 2018, 11:47


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: DerHoepp, Klaus-Dieter, vatifant und 20 Gäste