E-Mail durchsuchen, Pfad anlegen, speichern

[schauan]

Hallöchen,

sorry, da bin ich etwas Excel-lastig

hier mal ein Ansatz, Buchstaben aus einer Zeichenkette raus zu bekommen. Wenn der Kollege allerdings auch Schrauben M2 hat, wird's mit dieser Variante nix.

Code:

Sub test()
'Variablendeklarationen
Dim str1$, str2$, str3$, iCnt%
'Zeichenkette zum "auslesen"
str1 = "123abc456"
'Schleife ueber alle Zeichen der Zeichenkette
For iCnt = 1 To Len(str1)
  'ein Zeichen extrahieren
  str2 = Mid(str1, iCnt, 1)
  'Wenn Zeichen eine Zahl ist - Code zwischen 48 und 57, dann uebernehmen
  If Asc(str2) >= 48 And Asc(str2) <= 57 Then str3 = str3 & str2
'Ende Schleife ueber alle Zeichen der Zeichenkette
Next
MsgBox str3
End Sub