Forums Neueste Beiträge
 

Zeichenfolgen in einer Zelle auf neue Zellen aufteilen

02/02/2011 - 16:30 von Pfisch | Report spam
Hallo Newsgroup, ich habe folgende Herausforderung:

Ich habe eine Zelle, in der mehrere Seriennummern (z.B. AB12345678)
stehen, die durch das Zeichen chr(10) getrennt sind. Die Anzahl der
Seriennummern in der Zelle ist variabel.
Ich möchte nun erreichen, dass jede dieser Seriennummern untereinander
in einer eigenen Zelle steht.
Kann mir jemand einen Tipp geben, was ich bei der Makroprogrammierung
zu beachten habe? Ich kenne mich zwar mit den Grundzügen der
Programmierung aus, aber nicht damit, wie man die bestimmte Zeichen in
Texten erkennt und diese Texte dann "zerlegt".

Das ist meine erste Anfrage hier im Forum. Sollte ich mich nicht
verstàndlich genug ausgedrückt haben, bitte ich um Nachsicht.

Vielen Dank im voraus,
Christian Dreyer
 

Lesen sie die antworten

#1 Díetmar Vollmeíer
02/02/2011 - 17:22 | Warnen spam
Grüß dich Christian!

*Pfisch* schrieb am 02.02.2011 um 16:30 Uhr...
^^^^^^
Ein Realname [1] wird im Usenet gerne gesehen und erhöht die
Wahrscheinlichkeit auf Antworten enorm :)

Hallo Newsgroup, ich habe folgende Herausforderung:

Ich habe eine Zelle, in der mehrere Seriennummern (z.B. AB12345678)
stehen, die durch das Zeichen chr(10) getrennt sind. Die Anzahl der
Seriennummern in der Zelle ist variabel.
Ich möchte nun erreichen, dass jede dieser Seriennummern untereinander
in einer eigenen Zelle steht.
Kann mir jemand einen Tipp geben, was ich bei der Makroprogrammierung
zu beachten habe? Ich kenne mich zwar mit den Grundzügen der
Programmierung aus, aber nicht damit, wie man die bestimmte Zeichen in
Texten erkennt und diese Texte dann "zerlegt".



Hier mal ein einfaches Makro.

8<>8
Sub SplitSerial()
Dim SList As Variant

SList = Split([A1], Chr(10))

For i = 0 To UBound(SList)
Range("A" & 2 + i).Value = SList(i)
Next
End Sub
8<>8

Dieses Makro geht davon aus, daß die Seriennummern in A1 stehen. Die
Ausgabe erfolgt dann ab A2.

Das ist meine erste Anfrage hier im Forum.


^^^^^
Wie du eingangs schon bemerkt hast: Newsgroup ;)

Sollte ich mich nicht verstàndlich genug ausgedrückt haben, bitte ich
um Nachsicht.



Habe hier schon schlimmeres gesehen ;)

Vielen Dank im voraus,



HTH

Fußnötiges:
=[1] http://einklich.net/usenet/rules.htm#name
Servus | Der pingeligste Gast kriegt immer die angeschlagene Tasse,
Didi | das Haar in der Suppe und das Glas mit dem Lippenstift dran.

Ähnliche fragen