Zeichen aus Zeichenkette auslesen

Hallo Excel-Spezialisten,
ich bin auf der Suche nach einem kleinen VBA-Modul für eine Aufgabe, die ich bisher mit Funktionen und Formatierungen gelöst habe. Ich erhoffe mir vom VBA-Code mehr Effektivität.
Folgendes Problem:
Ich bekomme Daten aus einer Datenbank, die wie folgt aussehen können und z.B. in Spalte A (beginnend in Zeile 2) stehen
600 12345
600-12345
00012345-600
12345
in allen 4 Varianten, hätte ich gerne statt dessen 60012345 in Spalte B oder wenns geht sogar in Spalte A stehen
Ich habe es bisher mit folgender Formel gelöst:
=WENN(LINKS(A2)="1";A2;WENN(LINKS(A2)="6";WERT(RECHTS(A2;5));WERT(TEIL(A2;4;5))))
und dann mit dem benutzerdef. Zahlenformat 60000000 formatiert, um mir jeweils die Verkettung zu ersparen.
Da meine Kenntnisse von VBA sich nur aufs Makroaufzeichnen beschränken, wollte ich hier um Hilfe bitten.
Ich hoffe, es hat heute Abend noch jemand Zeit und eine Idee, wie ich das mit einem Makro per Symbolklick schneller erledigen könnte.
Ich danke schon mal im Voraus und wünsche einen schönen Abend.
Gruß Martina

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro1() With Range(Cells(2, 1), Cells(1, 1).End(xlDown)) .Replace What:="600 ", Replacement:="", LookAt:=xlPart .Replace What:="600-", Replacement:="", LookAt:=xlPart .Replace What:="-600", Replacement:="", LookAt:=xlPart Range("F1") = 1 Range("F1").Select Selection.Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, skipBlanks:=True Range("F1") = "60000000" Range("F1").Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, skipBlanks:=True Range("F1").ClearContents End With End Sub

Hi
der Code bearbeitet normalerweise alle Daten zwischen A2 und der ersten leeren Zelle in Spalte A
allerdings muss in A1 auch ein Wert stehen, geht das .End(xldown) bis zur ersten belegten Zelle (eben A2)
möglich wäre aber auch dieser Code, dann sollten unterhab deiner umzuwandelnden Zahlen aber keine Werte mehr stehen, dafür sind dann aber Leerzellen zwischen den Werten kein Problem mehr.


With Range(Cells(2, 1), Cells(65536, 1).End(xlup))

Was der Code macht, eigentlich ganz einfach:
- erstmal alle 600, Leerzeichen und Bindestriche entfernen. ich mache immer in Kombination, damit nicht 16002 in 12 gekürzt wird.
- dann multipliziere ich alle Zellen mit 1 , das kann man auch weglassen, aber es stellt sicher, daß die Werte auch wirklich Zahlen und keine Texte mehr sind.
- dann addieren ich die 6000000, um die Zahlen auf das von dir gewünschte Format zu bringen.
das geht im bedarfsfall auch ohne Makro recht zügig über die Funktionen BEARBEITEN - ERSETZEN
und BEAREITEN - KOPIEREN (die 60000000) und anschließend BEARBEITEN - INHALTE EINFÜGEN - WERTE + ADDIEREN
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

Zeichen aus Zeichenkette auslesen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeichen aus Zeichenkette auslesen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread