Einfügen durch Erhöhung eines bestimmten Werts

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Fehler Dim Tmp If Not Intersect(Range("G17:G27"), Target) Is Nothing Then If IsNumeric(Target) Then Application.EnableEvents = False Application.Undo Tmp = Target.Value Application.Undo Application.EnableEvents = True If Target.Value > Tmp Then MsgBox "Wert erhöht von: " & Tmp End If Else MsgBox "Nur Zahlen erlaubt" Application.EnableEvents = False Target.ClearContents Target.Select Application.EnableEvents = True End If End If Fehler: Application.EnableEvents = True End Sub

Hallo Pflaume,
die Zeile "If Not intersect(target, columns("H") is nothing then" steht nicht dafür dass in den Zellen nichts ist. Aber fangen wir mal komplett von vorn an:
Eine Änderung des Wertes in einer Zelle löst ein Ereignis (von Excel vordefinierte Makros) aus. Diesem Makro wird der Bereich der geänderten Zelle(n) als Wert mit übergeben, das sogenannte Target.

Private Sub Worksheet_Change(ByVal Target As Range)
End Sub

Die Intersect()-Funktion bildet die Schnittmenge aus dem Target und deinem definierten Bereich (Range("G17:G27"). Ist diese leer so wurde keine der Zellen im Bereich geändert, das heist: tue nichts. Ansonsten (Schnittmenge ist nicht Nichts / Not ... Nothing) führe deinen in der Aufgabenstellung beschriebenen Ablauf aus.
Der Teufel steckt hierbei jedoch im Detail. Excel erkennt eine Änderung erst nach dem Eintragen des neuen Wertes, will heißen der ursprüngliche Wert ist nicht bekannt und damit kannst du nicht wissen ob es eine Erhöhung war. Sollte das für deine Aufgabe kein Problem darstellen, weil andere Änderungen ausgeschlossen sind, so kannst du dir recht einfach dein Makro basteln.
Können in deiner Mappe aber auch Änderungen geschehen, die keine Erhöhung sind und die Unterscheidung ist zwingend notwendig müsstest du sozusagen einen Durchschlag deines Blattes haben (Kopie) in welcher noch der alte Wert zum Vergleichen steht. Ist dein Ablauf fertig, so muss der neue Wert in die Kopie geschrieben werden.
Ich hoffe das war genug Anregung für jemanden mit Kenntnisstand Gut.
lg Steve

Hallo zusammen,
zuerst mal vielen Dank für eure Mühe und die Antworten aber ich fürchte, mit meinen VBA-Kenntnissen "gut" habe ich mich etwas überschätzt. Bislang konnte ich alle Codes, die ich in dem Forum erhalten habe einigermaßen nachvollziehen aber da steig ich irgendwie nicht durch. Wofür brauche ich die Messagebox? Dem künftigen User meiner Mappe ist klar, dass in den Zellen G17-G27 nur Zahlen eingetragen werden. Und diese Zahlen erhöhen sich auch immer nur um den Wert 1. Es geht um einen "Fehler", den der Mitarbeiter in diesen Zellen notieren soll. Könnte man den Code mit einer Summenformel vereinfachen, wenn man z.B. in G28 die Summe für G17-G27 darstellt und man die Änderung nur auf G28 bezieht?

Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Fehler Dim Tmp If Not Intersect(Range("G17:G27"), Target) Is Nothing Then Application.EnableEvents = False Application.Undo Tmp = Range("G28").Value Application.Undo Application.EnableEvents = True If Range("G28").Value = Tmp + 1 Then MsgBox "Wert um 1 erhöht" End If End If Fehler: Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Einfügen durch Erhöhung eines bestimmten Werts

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einfügen durch Erhöhung eines bestimmten Werts

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread