das ist eine Möglichkeit:

1. Kopiere deine unsortierte Zeichenkette in C1
2. Schreibe folgende Formel in A1:
=TEIL($C$1,ZEILE(),1)
3. Kopiere die Formel automatisch nach unten
(Ziehen mit Viereck in Ecke)
4. Kopiere die Zellen aus Spalte A nach Spalte B
mit Inhalte einfügen -> Werte
5. Sortiere Spalte B alphabetisch aufsteigend
6. Schreibe folgende Formel in C2:
=B1&B2&B3&B4&B5&B6&B7&B8&B9&B10&B11&B12&B13&B14
(so lang wie erforderlich)

Für ein neues Wort musst du jetzt:

1. das Wort in Zelle C1 kopieren.
2. Spalte A nach Spalte B kopieren mit Inhalte
einfügen -> Werte
3. Spalte B alphabetisch aufsteigend sortieren
Fertig!

Gruß

ivok

in jeder Zelle in Spalte B steht =TEIL($C$1,ZEILE(),1)

und die sortierten Buchstaben in C2 heißen:
=TEIL($C$1,ZEILE(),1)=TEIL($C$1,ZEILE(),1)=TEIL($C$1,ZEILE(),1).
Ist da an der Formel was falsch?
Ich habe bei Inhalte einfügen auf Werte geklickt
und meine auch sonst alles nach Rezept gekocht zu haben.

Hallo klexel,
1. Starte Word (2007/2010),
2. Vollziehe das folgende Video live an deinem Rechner nach: http://www.gutefrage.net/video/word-2007-makro-erstellen.
Viel Erfolg

das ist doch ein Video für Word - nicht für Excel.

Ist das egal??

bei mir funktioniert der Makro so wie oben nicht.
In der kursiv dargestellten Zeile befindet sich ein Druckfehler. Statt sWortArray() muss es dort aWortArray() heißen. Dann gehts. Also... jedenfalls bei mir.

Sub SortBuchstAlphabetisch()
'Sortiert die Buchstaben eines markierten
'Wortes alphabetisch
'Copyright 2011, Hans Zybura

Dim sWortKopie As String
Dim sWortSortiert As String
Dim iLaenge As Integer

'Absatzmarke ggf. auslassen
If Right(Selection.Text, 1) = Chr$(13) Then
Selection.MoveEnd Unit:=wdCharacter, Count:=-1
End If
'Leerzeichen links oder rechts ggf. auslassen
sWortKopie = RTrim(LTrim(Selection.Text))

'Sortieren vorbereiten
iLaenge = Len(sWortKopie) - 1

ReDim aWortArray(iLaenge) As String
'sortieren
For i = 0 To iLaenge
aWortArray(i) = Mid(sWortKopie, i + 1, 1)
Next
WordBasic.SortArray aWortArray(), 0, 0, iLaenge
For i = 0 To iLaenge
sWortSortiert = sWortSortiert + aWortArray(i)
Next
'ausgeben
Selection.TypeText Text:=sWortSortiert
End Sub

1. den Makrotext aus dem Forum kopieren (von Sub bis End Sub markieren, dann Strg+c)
2. Word öffnen
3. Alt+F11 drücken
4. wenn jetzt rechts alles grau ist: links das "+" vor "Normal" anwählen... und dann "New Makros". Egal, was da jetzt steht: Den Cursor entweder ganz an den Anfang oder ans Ende setzen
5. Makrotext einfügen (Strg+v)
6. das Fenster „Microsoft Visual Basic„ kann dann geschlossen werden. Das Makro ist jetzt bereit.

Anwendung:
1. in Word das zu sortierende Wort markieren
2. Alt+F8 drücken (oder Extras/Makro/Makros)
3. „SortBuchstAlphabetisch“ wählen
4. „Ausführen“ wählen


SIMSALABIM…ferdisch! Danke, Herr Zybura

uthierchen !! Ich habs hinbekommen. Danke für die Hilfe - und natürlich auch für alle anderen Tipps!!
LG
klexel

für die Korrektur meines Schreibfehlers bei aWortArray.

Und deine Anleitung zur Erstellung des Makros in Word ist bestens. (Ich wollte so etwas erst bei Bedarf nachreichen, weil mein ursprünglicher Beitrag schon so lang war.)

Inzwischen bin ich aus dem Urlaub zurück - und alle Fragen sind ohne mich geklärt. Super!

LG, chanur (Hans Zybura)