Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1700to1704
1700to1704
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Vierstellige Zahl soll nach Enter hinzugefügt

Forumthread: Bei Vierstellige Zahl soll nach Enter hinzugefügt

Bei Vierstellige Zahl soll nach Enter hinzugefügt
30.06.2019 15:09:27
Silke
Hallo Leute,
ich bräuchte nochmal eure Hilfe.
Ich möchte dass bei Eingabe einer Vierstelligen Zahl in der Spalte A nach dem Enter gedrückt wird die Zahl 140 davor gesetzt wird.
Also aus 2222 soll 1402222 werden.
Liebe Grüße
Silke
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Vierstellige Zahl soll nach Enter hinzugefügt
30.06.2019 15:20:16
Sepp
Hallo Silke,
in das Modul der Tabelle.
Microsoft Excel Objekt Tabelle1 
Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
 
  On Error GoTo Errorhandler 
 
  If Not Intersect(Target(1, 1), Range("A:A")) Is Nothing Then 
    Application.EnableEvents = False 
    If Target(1, 1) Like "####" Then Target(1, 1) = Target(1, 1) + 1400000 
  End If 
 
Errorhandler: 
  Application.EnableEvents = True 
End Sub 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Anzeige
AW: Bei Vierstellige Zahl soll nach Enter hinzugefügt
30.06.2019 15:25:42
Werni
Hallo Silke
Solange der vierstellige Zahl keine 0 vorangestellt ist 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:A1000")) Is Nothing Then Exit Sub
If Len(Target) = 4 Then Target = 140 & Target
End Sub
Gruss Werni
Anzeige
AW: Bei Vierstellige Zahl soll nach Enter hinzugefügt
30.06.2019 21:50:20
Silke
Vielen Dank ihr beiden.
Beide Versionen funktionieren wunderbar.
LG Silke
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige