Zahl aus Zelle extrahieren

Hi zusammen,
schon oft habe ich hier in eurem Forum sehr viele hilfreiche Tipps finden können, die mir bisher immer erfolgreich weiter geholfen haben - dafür an dieser Stelle einmal einen Dank an die Community!
Nun habe ich ein Problem, wo ich ohne eure spezifische Hilfe nicht weiter komme. Ich habe ein Dokument, wo ich in einem Tabellenblatt in Spalte K pro Zelle einen Text in folgender Form stehen habe:
Zeile 1: Überschrift
Zeile 2: AMAZON RETURN 028-4916173-8099541 DE
Zeile 3: AMAZON DE (FBA) 304-2153309-8449909
Zeile 4: AMAZON DE 301-5699004-8126365
In Spalte A will ich nun den mittleren Teil, also "028-4916173-8099541" für Zeile 2 und "304-2153309-8449909" für Zeile 3 usw. aufgeführt haben.
Hierzu habe ich mir bereits eine Formel zusammengebastelt, die wunderbar funktioniert (eingebunden als Matrix-Formel mit geschweiften Klammern).
=TEIL(LINKS(K2;MAX(ISTZAHL(TEIL(K2;SPALTE(1:1);1)*1)*SPALTE(1:1)));VERGLEICH(1;ISTZAHL(TEIL(K2&0; SPALTE(1:1);1)*1)*1;0);LÄNGE(K2))
Mein Problem daran ist nun: Auch schon bei nur 500 Zeilen rödelt mein Rechner gefühlte Ewigkeiten (ca. 10 Sekunden) bis er die Berechnung durchgeführt hat. In der Zeit kann ich nix im Dokument machen.
Das nervt natürlich ziemlich und ich frage euch, ob ich das nicht irgendwie besser / performanter hinkriegen kann? Wenn nötig auch mit VBA - da hab ich aber leider keine Ahnung von :(
Könnt ihr mir sagen, wie ich das optimieren kann?
Vielen Dank schon einmal für eure Rückmeldung!
VG, Tom
P.S.: Ich arbeite mit Office 2016 für Mac - konnte man oben im Thread leider nicht auswählen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…wenn sie gut gemacht ist und temporär BildErneuerung und automatische Berechnung ausschaltet, schneller sein, vor allem bei großen Datenmengen, Tom;
das kann sogar für 1malige Arbeiten nützlich sein, wenn das Pgm wenig Arbeitsaufwand verursacht. Verursacht es deutlich mehr, sollte das Pgm immer wieder mal, ggf mit kleinen Änderungen, einsetzbar sein, weshalb man alles, was sich voraussichtlich ändern könnte, am PgmAnfang in Konstanten (u/o Variablen) steckt. Das wird von Anfängern oft übersehen und hier macht sich auch nicht jeder AWer diese Arbeit, wodurch Erstere das dann auch nur aus eigener Erfahrung lernen.
Bei kleineren und 1maligen Sachen kann eine reine FmlLösung m/o UDFs aber schon sehr nützlich sein, so dass sich die Recherche gewiss lohnt, denn die genannten UDFs können schon so einiges mehr, weshalb sie XlStandardFktt durchaus vglbar sind…
Luc :-?

Option Explicit Public t0 As Single, t1 As Single Sub reset() Range("A2:B602").Clear End Sub Sub aw_write() t0 = Timer Range("A2:A602").FormulaLocal = "=allesweg(K2)" t1 = Timer Range("H3") = (t1 - t0) End Sub Sub aw2_write() t0 = Timer Range("A2:A602").FormulaLocal = "=allesweg2(K2)" t1 = Timer Range("H5") = (t1 - t0) End Sub Function allesweg(r As Range) As String Dim w$, i&, t$ w = r.Value If InStr(w, "-") > 0 Then For i = 1 To Len(w) t = Mid(w, i, 1) If t = "-" Or (t >= "0" And t = "0" And t = "0" And t Len(w) pRe = i - 1 allesweg2 = Mid(w, pLi, pRe - pLi + 1) End Function

Public t0 As Single, t1 As Single Sub ganzanders() Dim a, i&, z&, w$, t$ t0 = Timer Application.EnableEvents = False Application.Calculation = xlCalculationManual a = Range("K2:K602") For z = 1 To 601 w = a(z, 1) a(z, 1) = "" If InStr(w, "-") > 0 Then For i = 1 To Len(w) t = Mid(w, i, 1) If t = "-" Or (t >= "0" And t

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

322 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahl aus Zelle extrahieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

322 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread