Hallo zusammen

wieder einmal eine weitere Frage von mir
Diesmal geht es um Excel und VBA. Ich habe einen Auftrag, bei dem ich unter Anderem in einer Zelle ein Raute-Zeichen oder einen Abstand (je nachdem) suchen muss, den Text vor diesem Zeichen in ein Array und den Text danach in ein anderes Array speichern muss.
Nur habe ich keine Ahnung, wie das geht und irgendwie muss es ja gehen... Wäre sehr froh über eine baldige Antwort...

Kannst Du noch weitere Angaben machen?
Ist der zu durchsuchende String immer in der selben Zeile/Spalte?
Was muss anschliessend mit den beiden Arrays geschehen?

grz zer00

Es ist so, dass ich eine Spalte "durchsuchen" muss. Jede Zelle einzeln. Also muss immer überprüft werden, wo das Raute-Zeichen oder der Leerschlag ist (es hat immer eines von beidem) Damit alle Zellen durchsucht werden, benutze ich eine Schlaufe (oder heisst es Schleife? Ich weiss es nie... )

Es handelt sich bei den zu durchsuchenden Strings um Part-Nummern, die dann je eine Artikel-Nummer und eine Options-Nummer ergeben (komme auch nicht so genau draus, was das genau alles ist, ist halt für das SMS-Team im Betrieb )

Danach soll ein neues Dokument erstellt werden und in dieses sollen dann diese zwei Nummern und zusätzlich noch die Anzahl, die in einer anderen Zelle ist im alten Dokument (also kein Problem, diese auszulesen), eingetragen werden. Auch wieder mit einer Schlaufe, damit alle Datensätze eingetragen werden.

Es heisst Schleife(Loop).
Ich google mal ein bisschen, da ich aber mit VBS/VBA/VB auf Kriegsfuss stehe sehen deine Chancen sehr schlecht aus, dass ich dir gross helfen kann.

grz zer00

OK, danke trotzdem schonmal, habe auch schon gegooglet, aber habe nichts gefunden...
Naja, kann passieren

Es hat sicher noch jemand auf dem Board, der sich besser mit VBA auskennt.

grz zer00

PS: Wenn Du mal eine Delphi frage hast, kann ich Dir vielleicht helfen.

hehe
Mal schauen, ob ich mit Delphi anfange... Bin ja erst in der Lehre

So, habe es geschafft, dass es getrennt wird, nun muss ich das nur noch automatisieren und alles in ein Array und nicht in ne Zelle schreiben...

Meine Lösung sieht so aus:
<code> Do Until Cells(1, 1).Characters(i, 1).Text = "#"
Cells(2, 1) = CStr(Cells(2, 1)) + Cells(1, 1).Characters(i, 1).Text
i = i + 1
links = links + 1
Loop

For links = links To Cells(1, 1).Characters.Count
Cells(3, 1) = CStr(Cells(3, 1)) + Cells(1, 1).Characters(links, 1).Text
Next
</code>
Hat vielleicht jemand noch Verbessernungsvorschläge oder so etwas?