Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String kürzen

String kürzen
19.01.2018 16:57:11
Schwipp
Liebe Leute,
ich habe ein Programm mit VBA Code.
In Zelle A5 steht ein String aus 3 Buchstaben und 5 Ziffern.
z.b. NR-12345,
wobei die Ziffern sich im Laufe der Zeit der ändern.
Jetzt möchte ich diesen String, der immer mit NR- beginnt, um diese ersten drei Stellen kürzen und nur die 5 Ziffern dahinter in eine Variable
namens “Ziffern” schreiben.
Wie mache ich das?
ciao Schwipp

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String kürzen
19.01.2018 17:03:31
Daniel
HI
wenn immer die ersten 3 stellen weg müssen, am einfachsten mit der MID-Funktion: 

Ziffern = Mid(Range("A5").Value, 4)

die länge brauchst du in VBA nicht angeben, wenn du weg lässt wird in VBA der Teilstring ab der angegebenen Startposition bis zum Ende verwendet.
Gruß Daniel
AW: String kürzen
19.01.2018 18:05:58
Schwipp
Klappt wunderbar, danke,
was noch fehlt:
der Wert von "Ziffern" nun in Zelle A6 schreiben....
AW: String kürzen
19.01.2018 20:05:44
Daniel
Das hattest du nicht gefragt.
Außerdem, wenn du weißt, wie ein Wert aus einer Zelle in eine Variable kommt, dann weißt du auch, wie er aus der Variablen in die Zelle kommt, das ist nämlich die gleiche Anweisung
Anzeige
AW: String kürzen
19.01.2018 22:55:45
Schwipp
Ja Daniel, das hatte ich nicht gefragt, aber war dann mein nächstes Problem, an dem ich herumdoktorte,
nun ist es gelöst. Ich Danke Dir und Gerd!
AW: Direkt eifügen
19.01.2018 20:23:03
Gerd
Hallo,
wenn nichts weiter anliegt: 
With Range("A6")
.Value = Mid(.Offset(-1).Value, 4)
End With

cu Gerd
AW: Direkt eifügen
19.01.2018 22:51:15
Schwipp
Herzlichen Dank, Gerd!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
5
3