Makrostart bei Zelle ändern - (funkt. nicht ganz)
12.11.2004 00:59:37
Franc
Wenn man auf "Button 12" klickt wird die Zahl im Feld F40 um 1 erhöht und dies auch noch selbst im Text vom Button angezeigt.
Da der Nutzer auch manuell im Feld 14 die Möglichkeit hat diesen Wert abzuändern, habe ich diesen Code ins Tabellenblatt geschrieben.
Das funktioniert auch.
Aber wenn man Zelle F40 anklickt und "Entf" drückt, wird zwar der Zellinhalt gelöscht aber das Makro springt NICHT an und ich habe zum Beispiel noch im Button "Zahl: 6" stehen anstatt "Zahl: "
Wie kann man dieses Problem lösen?
PS: Kann ich irgendwo die Nr. von einem Button sehen?
thx
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("F40").Address = Target.Address Then
Range("M10").FormulaR1C1 = Now
Range("M11").FormulaR1C1 = "Zahl auf " & Range("F40") & " geändert."
ActiveSheet.Shapes("Button 12").Select
Selection.Characters.Text = "Zahl: " & Range("F40")
End If
End Sub
Anzeige