Wichtig und Bitte Eilig
09.03.2006 14:06:29
walter
habe folgendes Makro mal vom Forum erhalten, wenn ich in der Spalte17 bin, wird die Spalte 3 bis 16 makiert, funktioniert auch.
Das Problem:
Wenn ich in der Spalte 17 eine Eingabe durchführe soll "normal" die aktive Spalte17 bleiben. Mit ENTER ganz "normal" eine Zeile weiter.
Leider geht der Courswer immer zur Zeile 3 !!!!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo ErrExit
' Bei einem fehler zu "ErrExit" gehen
With Target ' "Target" ist die Selektierte Zelle
If .Row > 3 And .Column > 2 And .Column < 18 Then
' Wenn Zeilennummer > 3 Und Spalte > 2 Und Spalte < 12 Dann
Application.EnableEvents = False
' Ereignisprozeduren ausschalten um sich nicht selbst aufzurufen
Range(Cells(.Row, 17), Cells(.Row, 3)).Select
' Bereich in der Zeile (.Row) von "Target" von Spalte 3 bis 11 selektieren
.Activate
' "Target" als aktive Zelle setzten
End If
End With
ErrExit:
Application.EnableEvents = True
' Ereignisprozeduren wieder einschalten
End Sub
Herzliche Dank für die Unterstützung, arbeite gerade in der großen Datei,
gruß Walter