Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1700to1704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige