12.09.2018, 14:10
Hallo Zusammen,
auf meiner suche nach einer Möglichkeit nur bestimme Eingabemöglichkeiten für eine Zelle zuzulassen bin ich im Internet auf folgenden Forumbeitrag gestoßen: http://www.office-loesung.de/ftopic203902_0_0_asc.php. Leider ist dieser Beitrag schon von 2008 und lässt wegen Serverwartungen keine Antworten mehr zu.
Ich möchte gerne das es in den betreffenden Zellen nur möglich ist eine 5-stellige Zahl einzugeben und anschließend diese in folgenden Format wieder gegeben wird: z.B K12345. Die Formatierung würde ich über eine benutzerdefinierte Formatierung lösen und der Code ist eigentlich auch schon ziemlich gut. An den Code stört mich jedoch, dass er zum einen wenn man ausversehen auf die ganze Spalte klickt, die komplette Spalte geändert wird und somit alle anderen Werte überschrieben werden. Außerdem stört mich, dass falls ich auf eine falsche Splate komme, man nicht mehr das Eingabefenster schließen kann um somit den Vorgang abzubrechen. Habt ihr eine Lösung für mein Problem?
Hier noch einmal der Code:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Columns("R")) Is Nothing Then Exit Sub
Dim strInp As String
Do
strInp = InputBox("xyz...", "Titel", "00")
Loop While Len(strInp) <> 2 Or IsNumeric(strInp) = False Or StrPtr(strInp) = False
Target.Value = strInp
End Sub
auf meiner suche nach einer Möglichkeit nur bestimme Eingabemöglichkeiten für eine Zelle zuzulassen bin ich im Internet auf folgenden Forumbeitrag gestoßen: http://www.office-loesung.de/ftopic203902_0_0_asc.php. Leider ist dieser Beitrag schon von 2008 und lässt wegen Serverwartungen keine Antworten mehr zu.
Ich möchte gerne das es in den betreffenden Zellen nur möglich ist eine 5-stellige Zahl einzugeben und anschließend diese in folgenden Format wieder gegeben wird: z.B K12345. Die Formatierung würde ich über eine benutzerdefinierte Formatierung lösen und der Code ist eigentlich auch schon ziemlich gut. An den Code stört mich jedoch, dass er zum einen wenn man ausversehen auf die ganze Spalte klickt, die komplette Spalte geändert wird und somit alle anderen Werte überschrieben werden. Außerdem stört mich, dass falls ich auf eine falsche Splate komme, man nicht mehr das Eingabefenster schließen kann um somit den Vorgang abzubrechen. Habt ihr eine Lösung für mein Problem?
Hier noch einmal der Code:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Columns("R")) Is Nothing Then Exit Sub
Dim strInp As String
Do
strInp = InputBox("xyz...", "Titel", "00")
Loop While Len(strInp) <> 2 Or IsNumeric(strInp) = False Or StrPtr(strInp) = False
Target.Value = strInp
End Sub