VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Holger	Datum: 15.10.2007 17:59:08	Views: 818	Rating:	Antwort:
Thema: Aw:Selektieren von Strings
Hallo, dein Problem ist einfach, wenn die umzustellenden Daten tatsächlich in Spalte C (der zweite Index von Cells ist dann 3) stehen und nicht geprüft werden muss, bis zu welcher Zeile die Umstellung erfolgen soll. Ist die Tabelle das aktive Fenster, sollte die nachstehende Prozedur die aufgabe erfüllen. Speichere deine daten vorher aber noch zur Sicherheit unter einem anderen Namen ab! Sub Selektieren_von_Strings( ) For p = 1 To 500 a = Trim(Cells(p, 3).Value) b = InStr(a, " ") If b Then Cells(p, 3).Value = Mid(a, b + 1) + " " + Left(a, b - 1) Next p End Sub Hoffentlich klappt es. Holger

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen