Der Inhalt der Zelle variiert ständig. Er beginnt jedoch immer mit dem selben Wortlaut.
Mit nachfolgend genannter Schleife ist es mir leider nicht möglich gewesen diese Zelle zu finden, da Sie anscheinend nach dem exakten Wortlaut "Kennung=" sucht?!
Der Inhalt der Zelle ändert sich jedoch nicht wahllos, sondern ist fest definiert. Er lautet wie folgt "Kennung=eD II/1999 und" oder "Kennung=aD IV/1996 und"
Somit kann man festgelegen, dass erst "Kennung=" dann die ID (kleiner+großer Buchstabe), dann ein Leerzeichen, dann "Quartal/Jahr" und dann ein Leerzeichen gefolgt von einem und dargestellt wird.
Do Until ActiveCell.Value = "" And ActiveCell.Offset(1, 0).Value = ""
If ActiveCell.Value <> "Kennung=" Then
ActiveCell.Offset(1, 0).Select
Else
Exit Do
End If
Loop
Wenn ich dann die ID (kleiner+großer Buchstabe) in einer Variable zur weiteren Verarbeitung ablegen möchte, hatte ich immer folgenden Code dazu benutzt. Doch dieser schneidet nun nicht alles vom "=" bis zum 1. Leerzeichen sondern alles bis zum 2. Leerzeichen ab. Ich gelingt mir einfach nicht, dies abzuändern. Mitels "MsgBox UrStatus" bemerkte ich, dass erst diese Variable erst nur die ID enthält, doch beim weiteren Schleifendurchlauf dann auch noch alles bis zum nächsten Leerzeichen hinzukommt (also das Leerzeichen und "Quartal/Jahr").
Laenge = Len(ActiveCell.Value) 'Länge des Zeileninhalts
For x1 = 1 To Laenge 'Durchlaufen des kompletten Zelleninhalts
If Mid((ActiveCell.Value), x1, 1) = "/" Then 'x1
For x2 = x1 + 1 To Laenge 'Durchlaufen des kompletten Zelleninhalts ab dem x1
If Mid((ActiveCell.Value), x2, 1) = " " Then 'x2
UrJahr = Mid((ActiveCell.Value), x1 + 1, x2 - x1 - 1) 'liefert Text zwischen x1 und x2
End If
Next x2
End If
Next x1
Wer kann mir bei den beiden Dingen weiterhelfen?!
Es sind zwar nur kleine Veränderungen an den Schleifen nötig, doch ich stelle mich "noch" zu anfängerhaft an.
Vielen Dank im Voraus für die Mühe und das mitgebrachte Verständnis!!!
Sunny :)