Problem Selektion - Schleife | HERBERS Excel Forum

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub testalphabetstrcomp2neu() Dim CompResult As Integer Dim maxR As Long, r As Long 'Sortiere Columns("A:B").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes maxR = Cells(Rows.Count, 1).End(xlUp).Row r = 2 While r 0 Then 'Vergelich ist nur erforderlich, 'wenn in beiden Spalten der Zeile ein Eintrag vorhanden ist CompResult = StrComp(Cells(r, 1), Cells(r, 2), vbTextCompare) If CompResult 0 Then 'Zelleninhalte der Zeile unterscheiden sich, If CompResult = 1 Then Cells(r, 1).Insert shift:=xlDown Else Cells(r, 2).Insert _ shift:=xlDown If r

Hallo, @lobby007,
nun, zeilenweise arbeit das Programm auch, jedach nutzt es nicht die Selektanweisung, da intern im Code eine Zelle eine Speicherstelle darstellr, deren Inhalt man allein durch Angabe der Speicherstellenbezeichnung abrufen kann.
Deine Zuweisung an eine lokal definierte Variable macht in einer Vielzahl von Anwendung durchaius sin, wenn wiederholt auf den gleichen Zelleninhalt zugegriffen werden muß, da die Adressenberechnung in der VBA-Tabelle über die Spalte-/Zeile zusätzlich Rechengänge erfordert, die bei einem Aufruf einer in einer benutzerdefinierten Variablen entfallen bzw. schneller gehen.
Der nächte Veränderungsschritt ist der, dass ich nur dann einen String-Vergleich durchführen brauch, wenn beide benachbarten Zellen eine Zeichenkette enthalten, jed Kette also eine Länge größer Null hat. Ist nur eine der beiden Zellen leer, dann ist kein Vergleich erforderlich, da es nichts zu verschieben gibt. Die Auswertung der Multiplikation der beiden Länge ist nur dann größer Null, wenn beide Zeichenketten eine Länge von mindestens 1 haben.
Nun wird, wenn beide Strings in der Zeile r vorhanden sind, der Vergleich einmal durchgeführt und das Ergebnis in eine Variable für die weitere Verwendung abgelegt. Dieses Ergebnis ist Null, wenn die Strings übereinstimmen, also keine weitere Aktion erforderlich ist. Ist das Ergebnis +1 oder aber -1 ist ein Einschub einer Zelle erforderlich. Dadurch vergrößert sich aber auch die Anzahl der zu untersuchenden Zeilen maxR gegenüber dem Stand zuvor.
Im Anschluß an die Untersuchung wird der Zeilenzähler um 1 erhöht, es wird also die nächste Zeile untersucht.
Möchtest Du nun aus "optischen" Gründen verfolgen, welche Zelle gerade aktiviert ist, dann füge einfach ein Cells(r,1).Select an die Stelle im Programm ein, die Dir für diese Darstellung richtig erscheint, denn ansonsten arbeitet das Programm sehrwohl zeilenweise, wie ich hoffe, es nachvollziehbar erläutet z haben und Du bei schrittweiser Ausührung der Prozedur feststellen wirst.
Wenn Du also den Sortieralgorithmus vorschaltet, dann kannst Du die Elemente der WHILE-WEND-Schleife mutatis mutandis um Deine Zeilenauswertung legen. Aber auch eine FOR-NEXT-Schleife wäre möglich erfordert aber eine separate Verwaltung und Berechnung von Zeilennummer und Schleifenzähler.
Gruß,
Uwe

Beliebteste Forumthreads (12 Monate)

Problem Selektion - Schleife

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread