selection.Insert(xlshiftdown) geht nur ca. 400x
15.08.2003 12:32:58
Guenter
das Problem ist MS typisch und für mich völlig unlogisch. Ich habe ein kleines Makro (Auszug s. unten) in dem ich auf einfache Art zwei Textspalten auf grösse "< oder >" vergleiche. Je nach dem welcher Inhalt kleiner ist lasse ich Zellen mit "Selection.Insert(xlshiftdown)" einfügen.
Das funktioniert ganz Klasse bis zum Vergleich in Zeile ca. 446. Ab hier schaltet Excel intern auf "Selection.Insert(xlshiftright)" um und lässt sich im Moment nicht vom Gegendteil überzeugen. Da ich ca. 1000 Zeilen mit dieser Methode bearbeiten will ist das ziemlich *mistig*.
Hat jemand 'ne Idee?
.....Schonmal, danke.
- - - - - - - - - - -
Auszug aus dem Makro:
- - - - - - - - - - -
' Z = Zeilennummer
' LZ = Letzte Zeile der Liste
For Z = Z To LZ
Range("a" & Z).Select
A = ActiveCell.Value
Range("d" & Z).Select
E = ActiveCell.Value
' Definition der Spaltenbereiche
S1 = "A" & Z & ":" & "c" & Z
S4 = "D" & Z & ":" & "F" & Z
If A = E Then
GLEICH = GLEICH + 1
Else
If A < E Then
Range(S4).Select
On Error GoTo errorHaendler2
Selection.Insert (xlShiftDown)
' Funktioniert bis Zeile 446 einwandfrei,
' danach wechselt EXCEL auf "nach rechts verschieben"
' und das ist *bullshit* Im else-Zweig genauso.
Else
Range(S1).Select
On Error GoTo errorHaendler2
Selection.Insert (xlShiftDown)
End If
End If
Next
errorHaendler2:
If Not Error = 0 Then
TEXT = "Es ist ein Fehler in Zeile " & Z & "aufgetreten" _
& Chr(13) & "ABBRUCH"
MsgBox (TEXT)
End If
End Sub