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
1980to1984
1980to1984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Länge und Art eines Wertes in einer Zelle bestimmen

Forumthread: Länge und Art eines Wertes in einer Zelle bestimmen

Länge und Art eines Wertes in einer Zelle bestimmen
04.07.2024 15:03:19
Marco
Hallo zusammen,

entweder stehe ich komplett auf dem schlauch oder ich finde einfach keine Lösung dafür.
Mein Problem:
Ich will eine Zelle in einem Tabellenblatt so formatiert haben, dass man nur Zahlen und auch nur 4 davon eingeben kann. in diesem Zuge soll er auch, wenn ich ein Buchstaben eingebe, die Zelle wieder leeren. (wenn möglich mit VBA)

Ich habe dies in einer UserForm schon drin und funktioniert auch, aber bekomme es nicht auf eine Zelle projizieret.


Einen Code habe ich noch nicht parat.
Das ist der Code, welchen ich in einer UserForm auf ein Textfeld anwende: 
Private Sub eingabe_Nummer_Change()

eingabe_Nummer.MaxLength = 4

If Not IsNumeric(eingabe_Nummer) Then

eingabe_Nummer = ""

End If

End Sub


Vielen dank :)

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Länge und Art eines Wertes in einer Zelle bestimmen
04.07.2024 15:09:54
daniel
Hi
muss es VBA sein?
prinzipiell ginge auch DATEN - DATENTOOLS - DATENÜBERPRÜFUNG
mit
Zulassen: Ganze Zahl
Daten: Zwischen 0 und 9999

Gruß Daniel
AW: Länge und Art eines Wertes in einer Zelle bestimmen
04.07.2024 16:33:10
GerdL
Moin Marco,

den Code ins Modul der Tabelle kopieren; die Eingabezelle ggf. anpassen.
Die Prozedur wirkt erst nach Abschluss der Eingabe des Wertes. 
Private Sub Worksheet_Change(ByVal Target As Range)



    Const cstrZelle = "C2"

    Dim Rng As Range, C As Range

    

    Set Rng = Intersect(Target, Range(cstrZelle))

    If Rng Is Nothing Then Exit Sub

    For Each C In Rng

        If Application.CountIf(Tabelle2.Range("B1:B10"), C) = 0 And (Not IsNumeric(C.Text) Or Len(C) > 4) Then

            Application.EnableEvents = False

            C = ""

            Application.EnableEvents = True

        End If

    Next

    

End Sub

Gruß Gerd
Anzeige
AW: Länge und Art eines Wertes in einer Zelle bestimmen
05.07.2024 11:33:48
Marco
Hallo Gerd,

vielen Dank. Funktioniert so wie ich es will.

Gruß Marco
AW: Länge und Art eines Wertes in einer Zelle bestimmen
04.07.2024 15:37:43
Marco
Hallo Daniel,

schonmal vielen dank. Das ist schonmal eine große Hilfe für mein Problem.

Per VBA wäre es für mich interessanter, da ich möchte, dass er mir auch noch bestimmte zahlen, welche in einem anderen Tabellenblatt in einem bestimmten Bereich stehen, zulässt.
Das hatte ich eingangs nicht erwähnt, mein Fehler.

Vielen Dank :)
Anzeige
AW: Länge und Art eines Wertes in einer Zelle bestimmen
04.07.2024 15:49:54
{Boris}
Hi,

wenn das nur ne Maßnahme sein soll, um versehentliche Eingabefehler zu vermeiden, dann reicht die Datenüberprüfung.

Hier mal bezogen auf Zelle C2. Die zusätzlich erlaubten Zahlen stehen in Tabelle2!B1:B10.
Erlaubt sind max. 4-stellige Ganzzahlen sowie die Ausnahmen im anderen Blatt.

Benutzerdefiniert:

=ISTZAHL(C2)*(LÄNGE(C2)5)*(C2>0)*(C2=GANZZAHL(C2))+ZÄHLENWENN(Tabelle2!B1:B10;C2)

VG, Boris
Anzeige
AW: Länge und Art eines Wertes in einer Zelle bestimmen
04.07.2024 16:10:34
daniel
Hi
also um zu prüfen, ob ein Text nur eine bestimmte Anzahl von Ziffern enthält, kannst du LIKE verwenden, hier gibt es # als Joker für eine Ziffer.

wenn also zwei- und vierstellige Zahlen zulässig sein sollen, ginge das mit: 

if Range("A1").Value like "##" or Range("A1").value like "####" Then


die bestimmten Zahlen könntest du mit ZählenWenn abprüfen, die 0 wird wie FALSCH bewertet 

if Range("A1").Value like "##" or Range("A1").value like "####" Or Worksheetfunction.Countif(Sheets(...).Range(...), Range("A1").value) Then


Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Kommagetrennte Werte in einer Zelle
Martin

Hallo zusammen,
Ich habe folgendes Problem:
Zahlen/Werte die jeweils in einer Zelle stehen und mittels Komma (und Leerzeichen) getrennt sind, will ich einzeln untereinander in eigene Zellen verfrachten, für jeden Wert eine Zelle. Da ich hunderte solcher Zellen habe mit unterschiedlich v...
14.11.2008 13:33:53
Thread-ID: 1024555
6 Beiträge
Anzeige
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
Anzeige
mehrere Zellen in einer einfügen
Claus

Hallo,
wie kann ich per Makro die Eingaben einiger Zellen in einer andere kopieren? Beispiel
A1 = 1,
A2 = 2,
A3 = 3,
A4 = 4,
A5 = 5,
Ergebnis sollte in B1 stehen und müsste wie folgt lauten 1,2,3,4,5,
Die Anzahl der A Zeilen ist nich fix. Fängt immer bei A1...
27.01.2009 18:00:00
Thread-ID: 1044333
2 Beiträge
Anzeige
Daten in Abhängigeit einer Zelle auswählen
MikeM

Hallo zusammen,
da es etwas schwierig ist, mein Problem zu beschreiben, habe ich eine Datei mit angehängt mit allen Infos.
Kurz zur Info: Es geht um Summenwenn, Bereich verschieben oder ähnliches.
Es soll in Abhängigkeit einer Zelle (Jan, Feb, Mrz) eine Spalte mit Zahlen gefüllt...
02.03.2009 14:08:11
Thread-ID: 1055549
3 Beiträge
Mehrere Werte in Spalte Vergleichen
juergen

Hallo
Ich habe folgendes Problem:
Wie kann Ich sieben zellen in einer Zeile die mit Text gefüllt sind vergleichen.Allerdings ist bei der Auswertung nicht jede Zelle belegt.Also müßte eine freie Zelle demnach nicht berücksichtigt werden.
Ich habe mich schon mal mit den wenn funktione...
03.03.2009 23:25:19
Thread-ID: 1056142
4 Beiträge
Inhalt einer Zelle in mehrere Zellen aufsplitten
Joerschi

Hallo liebe Excel-Community,
ich möchte den Inhalt einer Zelle (getrennt durch Leerzeichen) in andere Zellen aufsplitten bzw. in anderen Zellen getrennt anzeigen lassen. Die Leerzeichen aus der Herkunftszelle sollen dabei ignoriert werden.
Z. B. steht in Zelle A1: "1 2 3 4 5"
Jetzt...
04.03.2009 11:46:03
Thread-ID: 1056268
9 Beiträge
"Spiegelzellen" - Werte in mehreren Zellen eingebe
Martin

Hallo,
ich möchte erreichen, dass ein und die selbe Eingabe in mehreren Zellen sichtbar wird.
In eine Richtung ist das kein Problem:
Eingabezelle: A1
In den anderen Zellen =A1 eingeben.
Ich möchte aber auch die andere Richtung möglich machen; d.h. bei Eingabe einer Zahl in d...
06.05.2009 14:06:47
Thread-ID: 1073350
11 Beiträge
Anzeige
Bedingte Formatierung mit mehreren Werten
Thorsten

Liebe Excel-Gurus,
ich benötige Hilfe bei folgendem Problem.
In der angehängten Tabelle möchte ich gerne, dass die Zeile bzw. das LAS und FAL
sich farblich verändern sobald in irgendeinem der oberen Fraktionen der Wert
Farbe (grün), Farbe (weiß) oder Farbe (braun) ausgewählt wir...
13.07.2009 17:09:04
Thread-ID: 1088289
2 Beiträge
Max.Wert mehrerer Werte in einer Zelle
Peter

Hallo Forum,
wer kann helfen?
In einer Zelle sind (5 numer. Werte) gespeichert und duch ein
Semikolon getrennt. Die Zelle kann auch Leerstrings enthalten.
z.B. 4;33;;52;12
Ich möchte den max. Wert an die Textbox 'TxtAltKWo1'
übergeben.
Danke Peter
'Zellinhalt (5...
07.11.2009 20:59:50
Thread-ID: 1115285
3 Beiträge
Inhalt von mehreren Textboxen in einer Zelle speic
mehreren

Hallo Forum,
ich möchte per VBA den Inhalt von mehreren Textboxen in einer Zelle speichern.
(mit Semikolon getrennt)
Da gibt es bestimmt eine bessere Lösung als:
Wer kann helfen?
Cells(1,1).value=TextBox1.text & „;“ & TextBox2.Text……….
Danke Peter
08.11.2009 19:48:16
Thread-ID: 1115412
2 Beiträge
Inhalte einer Zelle auf mehrere Zellen aufteilen
Küstermann

Hallo liebe Forumsmitglieder, ich habe eine Word-Tabelle die ich problemlos in Excel einfügen kann. Problem: In einer Zelle stehen mehrere Informationen ohne feste Trennung (kein Komma oder so) die ich zur weiteren Bearbeitung (Filter, Berechnungen) auf mehrere Zellen aufteilen muss. Der Zellin...
13.11.2009 15:33:16
Thread-ID: 1116980
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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