Problem mit Mid Funktion in VBA

Question

Hallo liebe Excelianer,

ich stehe gerade voll auf dem Schlauch.

Und zwar möchte ich mit Hilfe des Mid Befehls in Excel VBA Zahlen vereinzeln.

Dazu lasse ich eine Schleife laufen, was an sich kein Problem ist.

Aber der Mid Befehl selbst macht mir Probleme, weil etwas mit der Variable Currcode nitcht stimmt.

spec = Mid(Range("k" & i), currcode, 4)

Currcode ist als Integer gedimmt aber es funzt einfach nicht.

Könntet Ihr mir bitte weiter helfen?

Vielen Dank.

Peter

Answer 1

Sub Beispiel()
'angenommen a1 waere 11aa22bb
'dann waere die ausgabe 22,durch den parameter 2 auf den zweiten zahlenblock verwiesen
Range("A2") = ZahlenBlockIsolierung(Range("A1"), 2)
End Sub

Function ZahlenBlockIsolierung(Zellen As Range, ZahlenBlock As Integer) As String
Dim Zelle As Range
Dim Zeichen As Integer
Dim schalter As Boolean
Dim BlockIndex As Integer
ReDim AnzZahlenBlock(Len([Zellen])) As String
BlockIndex = 1
If ZahlenBlock > Len([Zellen]) Then ZahlenBlock = Len([Zellen])
For Zeichen = 1 To Len([Zellen])
If Mid([Zellen], Zeichen, 1) Like "[0-9]" = True Then
AnzZahlenBlock(BlockIndex) = AnzZahlenBlock(BlockIndex) & Mid([Zellen], Zeichen, 1)
schalter = True
End If
If schalter = True And Mid([Zellen], Zeichen, 1) Like "[0-9]" = False Then
BlockIndex = BlockIndex + 1
schalter = False
End If
Next Zeichen
ZahlenBlockIsolierung = AnzZahlenBlock(ZahlenBlock)
End Function

Answer 2

Vielen Dank Euch allen für die freundliche und schnelle Unterstützung.

Leider kann ich nur einmal den "Diese Antwort hat mein Problem gelöst Button" drücken :(, aber aus Interesse habe ich Eure Vorschläge zusammen mit einem Kollegen ausprobiert und sie funktionieren alle.

Ich danke Euch noch einmal und bitte meine verspätete Antwort zu entschuldigen.

Ich bin leider die meiste Zeit im Außendienst tätig und brauche daher auch immer ein wenig Zeit, mich in die Thematik neu einzudenken.

Ich wünsche Euch noch eine sonnige Woche.

Mit freundlichen Grüßen

Peter Sachse