Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then 'mit dieser Zeile wird nur die Zelle B2 überwacht
'If Target.Column = 2 And Target.Row > 2 Then 'evtl.Spalte und Zeile anpassen, damit kannst _
Du auch Bereiche prüfen
' wenn obere Zeile Kommentar dann diese aktivieren und Bereich festlegen (jetzt Spalte B und _
Zeile > 2)
'eine Zeile oben muss als Kommentar stehen!! Also nur eine deaktivieren mit '
If IsNumeric(Target.Value) Then
Target.NumberFormat = "#,##0"
Else
Application.EnableEvents = False
Target.Value = ""
Target.NumberFormat = "#,##0"
MsgBox "nicht zulässiges Format", vbCritical, "Hinweis"
Application.EnableEvents = True
End If
End If
End Sub
Gruß Armin
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then 'mit dieser Zeile wird nur die Zelle B2 überwacht
'If Target.Column = 2 And Target.Row > 2 Then 'evtl.Spalte und Zeile anpassen, damit kannst _
Du auch Bereiche prüfen
' wenn obere Zeile Kommentar dann diese aktivieren und Bereich festlegen (jetzt Spalte B und _
Zeile > 2)
'eine Zeile oben muss als Kommentar stehen!! Also nur eine deaktivieren mit '
If IsNumeric(Target.Value) Then
Target.NumberFormat = "#,##0"
Else
Application.EnableEvents = False
Target.Value = ""
Target.NumberFormat = "#,##0"
MsgBox "nicht zulässiges Format", vbCritical, "Hinweis"
Application.EnableEvents = True
End If
End If
End Sub
Gruß Armin