bei Eingabe von Zahlen, autom. Trennung

• bei Eingabe von Zahlen, autom. Trennung von udo vom 01.10.2003 23:49:02
  • AW: bei Eingabe von Zahlen, autom. Trennung - von heinz am 02.10.2003 02:23:33
    • Vielen lieben Dank Heinz, konnte mich erst ... - von udo am 02.10.2003 20:04:29
      • ok ot - von heinz am 03.10.2003 11:15:39

Betrifft: bei Eingabe von Zahlen, autom. Trennung
von: udo
Geschrieben am: 01.10.2003 23:49:02
Hallo Ihr Lieben,

hätt so spät noch kurz ein Anliegen. Ich suche einen VBA Code, der dann ins Tabellenblatt gesetzt wird, und mit Worksheet Change dann funktionieren könnte.

Ziel soll es sein in einer x-beliebigen Spalte ( z.B. " B " ) oder auch nur von B2:B1000 , egal, in diesem Bereich einen 10 - stelligen Zahlenwert einzugeben ( per Nummertastaur ), und zwar hintereinander ohne Spacetaste.

Also die Eingabe wäre z.B. 1234567892 , und die Anweisung trennt mit dann den Wert auf die folgende Weise zu :

1_234_567_892 ( die " _ " sollen Leerzeichen sein ) , also " 1 234 567 892 "
wäre dann das optimale Ergebnis.

_______________________________________________________________________

Ich muss in dieser Tabelle dort in dieser Spalte ewig viele Zahlenwerte eingeben, und würde mir die Eingabe gerne erleichtern.

Es kann auch sein , dass mal anstatt einer Zahl , an einer Position ein Buchstabe stehen soll, z.B. : 1 234 567 H15

Hättet ihr da eine Idee, oder ein ähnliches Makro, welches ich an meine Tabelle dann anpassen könnte.

Vielen lieben Dank, schon mal für eure Unterstützung

Gruß udo

...

Betrifft: AW: bei Eingabe von Zahlen, autom. Trennung
von: heinz
Geschrieben am: 02.10.2003 02:23:33
interessantes problem - ist mir nix besseres eingefallen
bei zellen formatieren tatsächlich nix gefunden

Private Sub Worksheet_Change(ByVal Target As Range)
Dim eingabe As String
eingabe = Target.Text
If Len(eingabe) = 10 Then
Target = Mid(eingabe, 1, 1) & " " & Mid(eingabe, 2, 3) & " " & Mid(eingabe, 5, 3) & " " & Mid(eingabe, 8, 3)
End If
End Sub

Betrifft: Vielen lieben Dank Heinz, konnte mich erst ...
von: udo
Geschrieben am: 02.10.2003 20:04:29
... jetzt melden, werde es gleich mal probieren, sieht aber auf den ersten Blick schon ganz vielversprechend aus.

Mit Target und Length hatte ich auch schon verzweifelt rum versucht.

Danke dir, erstmal, ich meld mich nochmal zurück

Gruß udo

Betrifft: ok ot
von: heinz
Geschrieben am: 03.10.2003 11:15:39

Excel-Beispiele zum Thema " bei Eingabe von Zahlen, autom. Trennung"
Zelleingaben speichern	Bei falscher Eingabe alten Wert wiederherstellen
Eingabeerleichterung bei Zeitformaten	Nichtnumerische Eingaben verhindern
Eingabe in Großbuchstaben wandeln	Eingaben aufaddieren
Automatisches Komplettieren einer Zelleingabe	Nur numerische Eingaben zulassen
Vereinfachte Zeiteingabe	Datumseingabe in Textfeld erzwingen