Eingabe rückgängig machen (auch Mehrfacheingabe)

Guten Tag
In einem Bereich in der Tabelle "Zahlen" gibt es den benannten Bereich "rrEingabe" (mehrere Zellen einer Spalte). Dort soll bei der Eingabe von negativen Werten die Eingabe rückgängig gemacht werden und eine Messagebox erscheinen.
Das klappt so weit mit untenstehendem Code. Wenn ich jedoch eine Zelle mit einer negativen Zahl kopiere, mehrere Zeilen im Bereich "rrEingabe" auswähle und einfüge, erhalte ich eine Fehlermeldung.
Wie muss der Code angepasst werden, dass eine solche Eingabe auch rückgängig gemacht wird?
Gruss, Peter
Option Explicit
Dim bUndo As Boolean

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name  "Zahlen" Then GoTo SKIP_IT
If Intersect(Target, Range("rrEingabe")) Is Nothing Then Exit Sub
If Target.Value

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Name "Zahlen" Then GoTo SKIP_IT If Intersect(Target, Range("rrEingabe")) Is Nothing Then Exit Sub If Target.Cells(1, 1).Value

Hallo Luschi
Danke! den bUndo habe ich von irgendwo übernommen - du hast recht.
Mit
If Target.Cells(1, 1).Value < 0 Then
wird nur der die Eingabe in der ersten Zeile überprüft.
Da ich ja die erste Zahl positiv und eine beliebige andere negativ sein könnte, wenn ich copy - paste mache, habe ich meinen code wie folgt angepasst:
<pre>Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rRng As Range
If Sh.Name <> "Zahlen" Then GoTo SKIP_IT
If Intersect(Target, Range("rrEingabe")) Is Nothing Then Exit Sub
For Each rRng In Target
If rRng.Value < 0 Then
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
MsgBox "Eingabe: Anzahl muss als absolute Zahl erfasst werden !!", vbCritical
Exit Sub
Else
End If
Next
SKIP_IT:
Exit Sub
End Sub</pre>

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim rRng As Range If Sh.Name = "Zahlen" Then If Not Intersect(Target, Range("rrEingabe")) Is Nothing Then For Each rRng In Target If rRng.Value

Beliebteste Forumthreads (12 Monate)

Eingabe rückgängig machen (auch Mehrfacheingabe)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

53 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eingabe rückgängig machen (auch Mehrfacheingabe)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

53 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread