ich habe einen Code:
Sub testalphabetstrcomp2neu()
Dim LJ1name As String, LJ2name As String
LJ1name = ActiveCell
LJ2name = ActiveCell.Offset(0, 1)
If StrComp(LJ1name, LJ2name, vbTextCompare) = 0 Then
ActiveCell.Select
End If
If StrComp(LJ1name, LJ2name, vbTextCompare) = 1 Then
Selection.Insert shift:=xlDown
End If
If StrComp(LJ1name, LJ2name, vbTextCompare) = -1 Then
Selection.Offset(0, 1).Insert shift:=xlDown
End If
End Sub
der Wunderbar funktioniert wenn ich ihn für jede Zeile einzeln einsetze.
Ich beginne in A2 und gehe dann zu B2 usw.
Nun soll er aber ab A2 (A1+B1= Überschrift) bis zum Ende der Liste gehen - wie macht man das?
Siehe auch Beispieldatei. - war nicht hochzuladen
A1 deueng B1 xxxx
A2 bus B2bus
A3 boat B3boat
A4 access B4 access
A5 access B5 accore
A6 entrance B6 dumm
Gruß lobby007