Langsames Makro

Ich habe ein Makro geschrieben, welches meine Zellen nach einem Buschstaben durchsucht und dann den codierten Wert in eine andere Tabelle einträgt.
Allerdings ist meine Datenmatix gross und mein Makro braucht in etwa 10 min bis die Daten verarbeitet sind.
Gibt es da nicht eine schnellere Lösung?
Set ws = ThisWorkbook.Sheets("Data")
Dim lAnfang As Long
Dim lLetzteZeile As Long
Dim Anfang As Long
Dim Zeile As Long
Dim Suchstring As String
lLetzteZeile = ws.Range("A" & rows.Count).End(xlUp).Row
Anfang = 2
SuchstringA = "M"
SuchstringI = "S"
With ws
For Zeile = Anfang To lLetzteZeile
If .Cells(Zeile, 1) <> "" Then~f~ 
~f~ If InStr(1, Cells(Zeile, 1).Value, "M") > 0 Then~f~ 
Sheets("Test").Cells(Zeile, 1) = Mid(.Cells(Zeile, 1), _ 
InStr(.Cells(Zeile, 1), SuchstringA) - 4, _ 
Len(InStr(.Cells(Zeile, 1), SuchstringA)) + 4) 
Else 
End If 
 
~f~ If InStr(1, Cells(Zeile, 1).Value, "S") > 0 Then
Sheets("Test").Cells(Zeile, 9) = Mid(.Cells(Zeile, 1), _
InStr(.Cells(Zeile, 1), SuchstringI) - 4, _
Len(InStr(.Cells(Zeile, 1), SuchstringI)) + 3)
Else
End If
End If
Next Zeile
End With
Ich danke für eine Rückmeldung.
Liebe Grüsse

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: in Array (Beipieldatei)

29.10.2020 13:20:34

Fennek

AW: in Array (Beipieldatei)

29.10.2020 14:58:47

Severin

AW: Langsames Makro

29.10.2020 13:23:08

Nepumuk

AW: Langsames Makro

29.10.2020 15:02:28

Severin

AW: Langsames Makro

29.10.2020 14:13:11

Daniel

AW: Langsames Makro

29.10.2020 15:05:07

Severin

AW: Langsames Makro

29.10.2020 15:43:54

Daniel

AW: Langsames Makro

29.10.2020 15:56:29

Severin

AW: Langsames Makro

29.10.2020 16:05:00

Daniel

Hi
wenn du die Formel hast, läuft das ganze nach einem starren Schema.
der Grundcode ist:

With Range(Sheets()Cells(erste Zeile, Spalte), Sheets().Cells(letzte Zeile, Spalte))
.FormulaR1C1 = "=hier der Formeltext in R1C1 und auf englisch"
.Formula = .Value
End with

um den Formeltext für R1C1 auf englisch zu ermitteln, gehst du so vor:
Schreibe die Formel funktionsfähig in die erste benötigte Zelle. Setze dabei alle Zellbezüge, die nicht zwingend relativ sein müssen absolut und lasse nur die zwingend relativen Zellbezüge relativ (hier die Zeilennummer) (in R1C1 werden damit die Formeln kürzer und übersichtlicher)
um den VBA-Code zu ermitteln kannst du entweder:
a) das ganze mit dem Recorder aufzeichnen
b) nachträglich die Zelle markieren und im Direktfenster: ?Replace(Selection.FormulaR1C1, """", """""")
eingeben, damit bekommst du die Formel kopierfertig inklusive der gedoppelten Anführungszeichen und kannst sie vom Direktfenster in den Code kopieren.
R1C1 und englisch ist zwar ungewohnt, aber für die Programmierung einfach besser.
A1 Addressierungsart und deutsch würde auch gehen (.FormulaLocal anstelle von .FormulaR1C1), ist aber eher unpraktisch in der Programmierung. in englisch läuft der Code dann auf jeder Länderversion und Formeln in R1C1 sind bei relativen Bezügen unabhängig von der Zielzelle, dh egal in welche Zelle du diese Formel schreibst, sie ändert sich nicht. Bei A1-Adressen müsstest du die Bezüge immer in Abhängigkeit von der Zielzelle anpassen.
solltest du Variablen innerhalb der Formel benötigen, macht man das am besten so:
1. man schreibt den Formeltext zunächst in eine Variable und schreibt hierbei anstelle des variablen Teils einen Dummy-Text, der an anderer Stelle der Formel nicht vorkommen kann.
2. man erstetzt dann den Dummy-Text mit Replace durch den Variablenwert, bevor man die Formel in die Zelle schreibt.
sieht als Code in etwa so aus, ich machs mal entgegen dem zuvor gesagten auf deutsch mit A1-Formeln, weil ich dann deine Formel einfach kopieren kann, aber ich will dir hier nur das Prinzip zeigen, mit R1C1 funktioniert das genauso:

dim FO as string
dim SuchstringI as string
SuchstringI = "S"
FO = "=WENN(ISTZAHL(FINDEN(""_xxx_"";Data!A2));TEIL(Data!A2;(FINDEN(""_xxx_"";Data!A2)-4);5))"
FO = Replace(FO, "_xxx_", SuchstringI
Range().FormulaLocal = FO

ist zwar ein bisschen mehr Code, aber deutlich übersichtlicher als die Variable direkt in den String mit Verketten einzubauen.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread