Excel VBA: Vergleich von Strings

[boxleitnerb]

Hallo!

Ich möchte zwei Strings miteinander vergleichen und herausfinden, welcher String im Alphabet zuerst kommt.

Beispiel:

Profil "Sepp" Profil "Sepp"

Profil "Hans" Profil "Peter"
Profil "Otto" Profil "Hans"
Profil "Anna" Profil "Otto"

Offensichtlich kommt "Profil "Hans"" im Alphabet vor "Profil "Peter"" (das Wort "Profil" ist Teil des zu vergleichenden Strings. Es ändert sich nur der Profilname in den Anführungszeichen). Ziel soll es sein, beide Spalten so anzupassen, dass sie bei gleichen Einträgen auf gleicher Höhe sind. Ist ein Profil in einer Spalte vorhanden und in der anderen nicht, soll eine Lücke entstehen.

Ich habe mir überlegt, die Strings zu vergleichen und bei Ungleichheit den, der später im Alphabet kommt, eine Zeile weiter runterzuschieben. Das mache ich dann solange, bis ich alle Zeilen durchhabe. In der Theorie (auf Papier) klappt das prima, nur bei dem Vergleich scheitere ich.

Wie stelle ich so einen Vergleich bitte an?

 

[Sylar]

StrComp("Profil Hans","Profil Peter")

Als Returnwert erhält man 1(True), -1(False) oder 0 wenn beide gleich sind

 

[boxleitnerb]

Gleichheit rausfinden ist kein Problem. Es geht um die alphabetische Reihenfolge.

Ich hab grad mal sowas probiert:
If Cells(Row, 1).Value <> Cells(Row, 2).Value Then
If Cells(Row, 1).Value < Cells(Row, 2).Value Then
Cells(Row, 2).Insert Shift:=xlDown
Else
Cells(Row, 1).Insert Shift:=xlDown
End If
End If

Und es geht...ist das wirklich so einfach???

 

[Sylar]

http://msdn.microsoft.com/de-de/library/microsoft.visualbasic.strings.strcomp(v=vs.80).aspx

Nur bekommst halt ein integer zurück und mit dem integer prüfst dann auf wahr oder falsch.