String nach Zahl durchsuchen

[tmessers]

Geschätztes Forum,

ich stehe vor dem Problem, dass ich Zellen mit Text nach einer Zahl durchsuchen muss.
Der Text sieht beispielsweise so aus.

xx3xxxx
1xx4xxx
12345x7
xxxxxx7

Der Text ist immer 7 Zeichen lang und besteht immer aus x sowie einer oder mehrerer Zahlen.
Die Zahl(en) steht immer an ihrer entsprechenden Stelle in der Folge.

Ich muss die Zelle nach den Zahlen 1 bis 7 durchsuchen. Ich möchte das mit einer Schleife tun.
Wenn Zelle eine 1 enthält dann, wenn Zelle eine 2 enthält dann etc.

Weiß jemand Rat? 

Gruß

Tmessers

[shift-del]

dann

Dann WAS?

[GMG-CC]

Und wenn eine 1, eine 3 und eine 7 oder sogar alle Ziffern enthalten sind?

[tmessers]

@shift-del

Das Gesamtproblem habe ich im thread 8401 dargestellt.
Da ich dort keine Antworten erhalten habe, zerlege ich mein Gesamtproblem in
Einzelprobleme.

[steve1da]

Hola,

und jetzt müssen wir immer in den Ursprungsthread um nachzuschauen, was wann passieren soll?

Gruß,
steve1da

[tmessers]

@GMG-CC

Die weiteren Programmschritte sind davon abhängig welche Ziffer er findet.

Die Zellen sollen also zunächst nach der 1 durchsucht werden. Findet er die 1 werden Werte kopiert .
Sind alle Zellen nach der 1 durchsucht und die Werte kopiert, so sollen die Durchsuchung der Zellen nach der 2 durchgeführt werden.
Das ganze bis zur 7.

[tmessers]

@steve1da

Nein, es muss niemand in den Ursprungsthread. Wer sich für das Gesamtproblem interessiert kann in den Ursprungsthread.
Ich suche eine Lösung für das hier beschriebene Problem.
Die Schleife programmiere ich dann schon.

[Kuwer]

Hallo tmessers,

Sub EineSchleife()
 Dim lngZ As Long
 Dim strZelle As String
 strZelle = ActiveCell.Value
 For lngZ = 1 To 7
   If Mid(strZelle, lngZ, 1) = lngZ Then
     MsgBox lngZ
   End If
 Next lngZ
End Sub

Gruß Uwe

[tmessers]

Hallo tmessers,

Sub EineSchleife()
 Dim lngZ As Long
 Dim strZelle As String
 strZelle = ActiveCell.Value
 For lngZ = 1 To 7
   If Mid(strZelle, lngZ, 1) = lngZ Then
     MsgBox lngZ
   End If
 Next lngZ
End Sub

Gruß Uwe

Danke Uwe, ich werde den Code ausprobieren und Dir ein Feedback geben

[tmessers]

@UWE

Vielen Dank, der Code hat wunderbar funktioniert.

Gruß

Thomas