Mit X Werte aus Zelle oberhalb übernehmen
13.03.2008 19:31:00
Markus
vor ein paar Tagen hat in diesem Forum jemand geschrieben, dass er mittels einer Taste (hier "x") den Wert aus der Zelle oberhalb übernehmen möchte.
Ein ganz fleissiger hat dann folgender VBA-Befehl geschrieben, der in jede Tabelle der Mappe einzufügen ist.
Warum funktioniert der Befehl nicht, wenn ich das Makro in ein Modul stecke, so das das folgende Makro in jeder Tabelle der Mappe funktioniert.
Danke für Antwort
Markus II
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Target = "" Then Application.EnableEvents = True: Exit Sub
If Target = "x" Then Target = Target.Offset(-1, 0).Value
Application.EnableEvents = True
End Sub