Wie kann ich am besten in einer Spalte jede Zelle (es sind an die 2000) durchsuchen ob folgende zeichenfolge drinnensteht: ****xxx (* = ein Buchstabe von A-Z, x = eine Zahl zw. 0-9) und diese Zeichenfolge dann in eine andere Spalte in der selben Zeile kopieren?

wäre sehr dankbar für eure Hilfe.

die Hilfe sagt:

Beispiel zur Find-Methode

Dieses Beispiel findet alle Zellen im Bereich "A1:A500" des ersten Tabellenblatts, die den Wert 2 enthalten. Anschließend werden diese Zellen grau formatiert.

With Worksheets(1).Range("a1:a500")

Set c = .Find(2, lookin:=xlValues)

If Not c Is Nothing Then

firstAddress = c.Address

Do

c.Interior.Pattern = xlPatternGray50

Set c = .FindNext©

Loop While Not c Is Nothing And c.Address <> firstAddress

End If

End With

Eine andere Alternative zum Durchlaufen:

For Each c In [A1:C5]

If c.Value Like "Cour*" Then

'hier nun das kopieren in die neue Zelle

c.copy

DeineNeueZelle.paste

End If

Next

statt der "2" muß nun die Abfrage erfolgen, wobei hier gilt

Benutzerdefinierte Zeichenfolgenformate (Format-Funktion)

Mit jedem der in der folgenden Tabelle aufgeführten Symbolen können Sie einen Formatausdruck für Zeichenfolgen erstellen:

Zeichen Beschreibung

@

Platzhalter für ein Zeichen. Zeigt ein Zeichen oder ein Leerzeichen an. Wenn sich in der zu formatierenden Zeichenfolge ein Zeichen an der Stelle befindet, an der in der Formatzeichenfolge der @-Platzhalter steht, wird das Zeichen ausgegeben. Andernfalls wird an dieser Stelle ein Leerzeichen angezeigt. Platzhalter werden von rechts nach links ausgefüllt, solange sich in der Formatzeichenfolge kein Ausrufezeichen (!) befindet.

&

Platzhalter für ein Zeichen. Zeigt ein Zeichen an oder keine Ausgabe. Wenn sich in der zu formatierenden Zeichenfolge ein Zeichen an der Stelle befindet, an der sich in der Formatzeichenfolge der &-Platzhalter befindet, wird das Zeichen ausgegeben. Andernfalls wird an dieser Stelle nichts ausgegeben. Platzhalter werden von rechts nach links aufgefüllt, solange sich in der Formatzeichenfolge kein Ausrufezeichen (!) befindet.

<

Anzeigen als Kleinbuchstaben. Alle Zeichen werden als Kleinbuchstaben angezeigt.

>

Anzeigen als Großbuchstaben. Alle Zeichen werden als Großbuchstaben angezeigt.

!

Auffüllen aller Platzhalter von links nach rechts. Umkehrung der Voreinstellung, nach der Platzhalter von rechts nach links aufgefüllt werden.

ein wenig auf deine bedürfnisse angepasst, und es sollte laufen

Ich bin leider ziemlicher Anfänger vas VBA betrifft, und verstehe deinen Code nicht wirklich. Kannst du mir noch auf die Sprünge helfen wie ich das so modifiziere das er nur Zeichenfolgen wie: BHJF039 also 4 Buchstaben (egal ob groß oder klein) und anschließend 3 Zahlen findet.

Sie sind immer durch einen Abstand von den restlichen Zeichen in der Zelle getrennt.

sind die Buchstaben und zahlen egal ? ....

also nur wichtig, dass es 4 buchstaben und 3 zaheln sind ?

oder ist es auch wichtig, was es für buchstaben und zahlen sind? entprechend einer matrix etc ?