Erweiterung eines bestehenden VBA-Skripts
19.08.2013 08:53:38
Sebastian
vor einigen Tagen habe ich hier im Forum bereits sehr gute Hilfe bekommen.
Es wurde mir ein Code für die Aufgabe genannt, beim Anwählen einer Zelle die Markierung auf die gesamte Tabelle auszuweiten.
Zusätzlich wurde die "Entf" Taste mit einem Makro Namens "auslagern" versehen.
Meine Frage (da meine VBA-Kenntnisse noch im Aufbau sind): Ist es möglich, dieses Skript zu erweitern, um der "Enter" und der "Eingabe"-Taste ein zusätzliches Makro zuzuordnen? Vielen Dank vorab!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo fehler
Application.EnableEvents = False
Application.ScreenUpdating = False
If Not Intersect(Target, Range("tabelle1")) Is Nothing Then
Cells(Target.Row, 2).Resize(, 5).Select
ActiveCell.Offset(0, 4).Activate
Application.OnKey "{del}", "auslagern"
Else
Application.OnKey "{del}"
End If
fehler:
Application.EnableEvents = True
End Sub