Mit Splitfunktion Inhalt Trennen von txt
27.04.2017 12:45:53
txt
Und zwar möchte ich in Zelle E1 die Fett und Kursiv markierte 00 eintragen lassen allerdings ändert sich die Nummer des Auftrages ständig (hat aber immer 6 Stellen und ein Leerzeichen danach) also wäre meine Idee sowas wie ******* als Platzhalter für die 6 Nummern und das Leerzeichen einzufügen.
Wie bekomme ich diese Platzhalter hin mit ****** kommt nur Error.=(
Die andere Idee ist das daneben nach einem Leerzeichen immer ein kommt.
(So bekomme ich es mit Excel mit ner Formel hin =TEIL(A1;FINDEN("";A1;1)-3;2)) Kann man das vlt sogar simpel übersetzen in VBA?
Vielen lieben Dank!:)
Private Sub CommandButton1_Click()
Range("a1") = "St.â ABCD12 Auftrag123456 00 Teil0 TitelDas Ding_123"
Range("a2") = "Fassung05 TL09 Ab13222 PDF-Bez.Startvorgang Start07:53 Gut123"
Range("b1") = Split(Split(Range("a1"), "Auftrag")(1), " ")(0)
Range("c1") = Split(Split(Range("a2"), "TL")(1), " ")(0)
Range("d1") = Split(Split(Range("a2"), "Fassung")(1), " ")(0)
Range("e1") = Split(Split(Range("a1"), "Auftrag")(1), " ")(0)
End Sub