Probleme beim verrutschen einer Zeile
10.02.2005 21:45:28
Moni
Ich habe beim folgenden Code ein Problem.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim lgZeile As Long
Dim lgPruef As Long
Dim bCount As Byte
If Target.Column > 8 And Target.Column < 16 Then
If Target.Row > 21 Then
Application.EnableEvents = False
On Error GoTo errHand
For bCount = 8 To 16
lgPruef = Cells(Target.Row, bCount).End(xlUp).Row + 1
If lgPruef > lgZeile Then lgZeile = lgPruef
Next
If lgZeile < 21 Then lgZeile = 21
If Target.Row <> lgZeile Then
Rows(Target.Row).Cut
Rows(lgZeile).Insert 'Shift:=xlDown
Cells(lgZeile, Target.Column).Select
End If
End If
End If
errHand:
Application.EnableEvents = True
End Sub
Dieser Code sortiert die letzte eingegebene Zeile ab Zeile 21 von oben nach unten. Ich versuche eine Bedingung einzufügen, dass NICHTS sortiert hinzukriegen, wenn in der daraufhin folgenden Zeile (nur Spalte H-P) irgendeine Zahl steht. Leider ohne Erfolg :(
Danke