Office: Zahlen automatisch Ausgeben

Hallo zusammen,

leider habe ich das Thema über die SuFu nicht gefunden.

ich habe folgende Problem, ich habe mehrere Zahlen:

700100
700101
700102
700103

usw..

Wenn ich jetzt in eine Spalte die letzten 3 Zahlen eingebe also z.B. 101 Dann hätte ich gerne, das die gesamte Zahl also: 700101 erscheint.

Wie kann ich das bewerkstelligen?

Danke für eure Hilfe.

 

Moin!
Nimm das benutzerdefinierte Zahlenformat "700"000

Gruß Ralf

 

Hi Ralf,

danke für Deine Antwort. Daran habe ich auch schon gedacht.

Aber, was ist, wenn sich die Zahlenreihe irgendwann erweitert in z.B. 701 001 (und das wird sie) dann funktioniert das mit der benutzerdefinierten Formatierung nicht mehr oder?

was für Möglichkeiten habe ich da?

Gruss

Eicky

 

Hallo,

unter diesen Umständen wirst du wahrscheinlich um ein VBA-Makro nicht herumkommen.
Ich habe dir ein solches ins Codemodul des Arbeitsblattes "Tabelle1" gespeichert.

Code:

Option Explicit
Private lztWert6Stellig As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Wert As Variant
  With Target
     If .Column = 1 Then         '<-- nur wenn Target in Spalte A liegt (eventuell anpassen!!)
         Wert = .Value
         If VarType(Wert) Like "[2-5]" Then
           'falls es sich bei Wert um eine
           'Integer-, Long-, Gleitkommazahl(einfach-,doppeltgenau) handelt:
            If Wert >= 100000 Then
              'Falls Wert eine Zahl mit mindestens 6 Vorkommastellen ist:
              'setze die Hunderter/Zehner/Einer-Stelle auf 0 und speichere sie zwischen
               lztWert6Stellig = Wert - Wert Mod 1000
            ElseIf Wert < 1000 Then
              'Falls Wert eine Zahl ist, die kleiner 1000 ist:
              'Hole die zwischengespeicherte Zahl und addiere Wert und speichere sie in der Zelle
               .Value = lztWert6Stellig + .Value
            End If
         End If
     End If
  End With
End Sub

Es setzt voraus, dass die Zahleneingabe in Spalte A erfolgt. Falls das eine andere Spalte sein sollte, ist die Spaltennummer an der gekennzeichneten Stelle zu ändern.

 

Hallo Exl121150,

Danke für Deine mühe. Leider bekomme ich immer den Hinweis "method value of object range failed. Gehe ich auf debug, schmiert das Excel ab.

Aber ich glaube ich habe mich zu beginn falsch ausgedrückt was ich gerne hätte.

Ich habe eine Liste mit Zahlen in einem Sheet. die Zahlen bestehen immer aus 6 ziffern

Also z.B. 123456 , 654321

Die Endung 456 oder 321 sind einmalig

Wenn ich jetzt also z.b. in die Spalte A1 456 eingebe, hätte ich gerne, das der Wert 123456 in der Spalte A1 ausgeben wird.

Kann ich dass nicht mit WENN bewerkstelligen?