Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Bewerten Sie hier bitte das Excel-Portal
Home Zurück Vor
Download Beispiel-Arbeitsmappe

Thema

Wiederherstellung des alten Zellinhaltes bei unerlaubten Werten

Gruppe

Change

Problem

Wie kann ich den ursprünglichen Zellinhalt wiederherstellen, wenn in eine Zelle, in der nur Ziffern erlaubt sind, Zeichenfolgen eingegeben wurden?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle2

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not IsNumeric(Target.Value) Then
      Application.Undo
      Beep
      MsgBox "Nur Zahlen erlaubt!"
   End If
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change

Msg mit 2 Ereignissen +Cancel
Ereignisprozedur
Worksheet_Change auf 2 Zellen anwenden
Mit Change() o. Calculate() Filtern und Drucken
Grafik nach Change in Exceltabelle laden
Makro für ereignisabh. Druck verschiedener Seiten
UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden?
Mail Exchange Server
Workbook_SheetChange löscht Zwischenspeicher ...
On Worksheet Change - simulieren?!
ChangeFileAccess
Zeilen aus- einblenden als Ereignis?
Welches Ereignis ist das richtige ??
Ereignis Arbeitsblatt sperren abfangen
Worksheet_SelectionChange
Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis
Fehler bei Changelink
Worksheet_SelectionChange bzw. Interior
Change
Kein Change in Combobox erlauben(wenn false)
Überprüfung von Zellen mit Worksheet change
SheetChange_Endlosschleife
Change-Ereignis in Combobox unterdrücken
Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul
Bei "Worksheet_Change" aktuelles Datum in J3
Worksheet_Activate() / Worksheet_Change()
Warum kann ich nicht Worksheet_Change
Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen
Command Button Ereignis
Ereignis von Laufzeit-Checkbox
change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern
Workcheet-Change / Schleife.....
change-ereignis bei dynamisch erstellten Controls
Worksheet_Change auf Spalten beschränken
Worksheet_Change ohne aktive Zelleingabe
Private Sub Worksheet_Change(ByVal Target As Range
For Each CheckBox, Change Value
Change(ByVal Target as range
ComboBox.Change - ComboBox.Load Problem
Zwei Mal If inersect Ranges nach Worksheet change
Schaltfläche - Ereignis erst nach Bestätigung ausl
SelectionChange - Change - Reihenfolge?
Schleife bei Worksheet_Change
Objekt_Error - Ereignis in UserForm
"Private Sub Worksheet_Change" deaktivieren