|
Guten Abend an das Forum,
erstmal vor weg ich bin VBA Anfänger wenn das nicht schon zu hoch gegriffen ist, darum bitte ich um Verständnis.
Ich habe hier ein Makro was mir Zahlen aus einem Fließtext Extrahiert. In dem Text Steht ein bzw. Zwei datumswerte drin einmal 01.01.10 oder 01.01.10-01.01.19
Das Funktioniert soweit auch, Allerdings nur bis zur Zeile 65536 was muss ich ändern damit es auch soweit läuft wie die Spalte gefüllt ist?
Eventuell könnt Ihr mir ja auch noch ein Tipp geben wie ich die 2 Punkte auch gelöst bekomme.
-
Ich benötige nur die zusammenhängenden Zahlen diese sind durch Punkt und Minuszeichen getrennt aber keine Leer Zeichen.
Es kommt aber vor das eine einzelne Zahl in der Zeile mit Fließtext steht diese benötige ich aber nicht gibt es eine Möglichkeit nur die Zusammenhängenden Zahlen zu extrahieren auch wenn diese unterschiedlich lang sind?
-
Die Extrahirten Zahlen haben zum Teil am Ende noch Leerzeichen, ich habe zwar ein Makro zum Glätten und Leerzeichen entfernen, aber lässt sich das hier mit einbinden?
Vielen Dank im Voraus
_________________________________________________________________________________________
Public Sub Zahlen_Extrahieren()
Dim arr
Dim str
Dim b
arr = Range("A:A")
arr = WorksheetFunction.Transpose(arr)
str = Join(arr, vbTab)
b = Nur_Zahlen(str)
Range("B1").Resize(UBound(Split(b, vbTab)) + 1) = WorksheetFunction.Transpose(Split(b, vbTab))
End Sub
Function Nur_Zahlen(zelle)
Dim regex
Set regex = CreateObject("VBscript.Regexp")
With regex
.Pattern = "[a-z+ü+ö+A-Z+Ü+Ö+\()]"
.IgnoreCase = True 'False
.Global = True
End With
Nur_Zahlen = regex.Replace(zelle, "")
End Function
___________________________________________________________________________________________________________________
|