Runterbrechen
26.01.2022 09:16:13
Azat
ich bräuchte mal wieder eure Hilfe.
Die Makro die ich verwende läuft bis 65000, sobald ich aber den Bezug auf 34000 ändere oder weit aus weniger wie zum Beispiel auf 20 macht er nichts. Wenn ich die 65000 durchlaufen lasse, bräuchte er für die Durchführung etwa 20 Stunden. Das ist viel zu viel...
Option Explicit
Sub Text_Zahl()
Dim i As Long, j As Long, z As Long, t$
For i = 2 To Cells(65536, 5).End(xlUp).Row
For j = 1 To Len(Cells(i, 5).Value)
If IsNumeric(Mid(Cells(i, 5).Value, j, 1)) = False Then
t = Right(Cells(i, 5), Len(Cells(i, 5)) - j + 1)
GoTo Gefunden
Else
z = z & Mid(Cells(i, 5).Value, j, 1)
End If
Next j
Gefunden:
Cells(i, 6).Value = z
Cells(i, 7).Value = t
z = 0
t = ""
Next i
End Sub