VBA Code
08.06.2022 00:50:03
Frank
Ich google schon seit Wochen und habe x-Seiten auch in Englisch aufgerufen, und nichts Konkretes gefunden. Möglicherweise suche ich mit den falschen Parametern ?
Es ist auch meine allererste Bitte um Hilfe in einem Forum. Forumsregeln möchte ich natürlich nicht verletzen, und falls ich etwas nicht beachtet habe bevor ich mein Problem nachfolgend schildere, bitte ich um Nachsicht.
Ich möchte in der Tabelle1 in der Zelle A1 die Ziffer "9" eintragen. Nachdem Eintrag und des Drückens der Entertaste, soll dann automatisch auch in Tabelle1 Zelle A1 anstatt der 9 der Text "KEINE" dastehen.
Ich habe einen fast zutreffenden Code vor einiger Zeit gefunden, allerdings ersetzt der nur Zahlen für Zahlen. Steht so, und funktioniert in Tabelle1.
Beim Eintrag der Zahl "9" also in A1 , erscheint nach dem Drücken von Enter automatsich die Ziffernfolge 2014406806 in Zelle A1. Ändere ich im Code diese Ziffernfolge 2014406806 ab in den gewünschten Text "KEINE" , passiert leider nichts.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERR_Handler
With Target
If Not Intersect(Target, Range("A1")) Is Nothing Then
If .Count = 1 Then
If .Value = 9 Then
Application.EnableEvents = False
.Value = 2014406806
End If
End If
End If
End With
ERR_Handler:
Application.EnableEvents = True
End Sub