Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

String nach Zahl durchsuchen
#1
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
Antworten Top
#2
(02.02.2017, 23:08)tmessers schrieb: dann
Dann WAS?
Wir sehen uns!
... Detlef

Meine Beiträge können Ironie oder Sarkasmus enthalten.

Antworten Top
#3
Und wenn eine 1, eine 3 und eine 7 oder sogar alle Ziffern enthalten sind? Huh
Beste Grüße
  Günther

Excel-ist-sexy.de
  …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
Antworten Top
#4
@shift-del

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

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

Gruß,
steve1da
Antworten Top
#6
@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.
Antworten Top
#7
@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.
Antworten Top
#8
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
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • tmessers
Antworten Top
#9
(03.02.2017, 11:14)Kuwer schrieb: 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
Antworten Top
#10
@UWE

Vielen Dank, der Code hat wunderbar funktioniert.

Gruß

Thomas
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste