Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 11:29:24
Algorhitmus, der kleinste Summe von Zahlen berechnet
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
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
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Check, ob Zahl 6 Ziffern hat

Forumthread: VBA: Check, ob Zahl 6 Ziffern hat

VBA: Check, ob Zahl 6 Ziffern hat
27.10.2004 14:43:43
Fab
Hallo
Wie lautet der VBA-Befehl, um in einer markierten Zelle zu prüfen, ob die Zahl in der Zelle 6 Ziffern hat?
Folgender Befehl funktioniert nicht:
IsNumeric(Mid(Zelle, 3, 6)) = False
Besten Dank für die Hilfe
Gruss
Fab
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Check, ob Zahl 6 Ziffern hat
Ramses
Hallo
If Isnumeric(Zelle(3,6)) and Len(Zelle(3,6) = 6 then
Msgbox "Korrekte Zahl"
End if
Gruss Rainer
AW: VBA: Check, ob Zahl 6 Ziffern hat
27.10.2004 14:56:54
Fab
Vielen Dank schon mal!
Ich habe nun deinen Befehl in das 

Sub von Reinhard eingefügt, aber es funktioniert noch nicht. Weisst du vielleicht warum? Das 


Sub checkt, ob die Identifikationsnummer in der Art AB123456 ist.
Gruss
Fab


Sub tt()
Dim Adresse() As String
ReDim Adresse(1)
anz = 1
For Each Zelle In Selection.Cells
If Left(Zelle, 2) <> "AB" Or Isnumeric(Zelle(3,6)) = False Or Len(Zelle(3,6) = 6 = _ False Then
anz = anz + 1
ReDim Preserve Adresse(anz)
Adresse(anz) = Zelle.Address
End If
Next Zelle
Meldung = "Fehler in "
For n = 2 To UBound(Adresse)
Meldung = Meldung & Adresse(n) & " "
Next n
If Meldung <> "Fehler in " Then MsgBox Meldung, vbCritical
End Sub
Anzeige
AW: VBA: Check, ob Zahl 6 Ziffern hat
27.10.2004 15:01:42
Nepumuk
Hi,
diese Zeile:
If Left(Zelle, 2) "AB" Or Isnumeric(Zelle(3,6)) = False Or Len(Zelle(3,6) = 6 = _ False Then
sollte so aussehen:
If Left(Zelle, 2) "AB" Or Isnumeric(Zelle(3,6)) = False Or Len(Zelle(3,6) = 6 = False Then
Gruß
Nepumuk
AW: VBA: Check, ob Zahl 6 Ziffern hat
27.10.2004 15:03:58
Fab
Ich habe es mit deiner Zeile versucht, Nepomuk, es funktioniert aber noch nicht!
Fab
Anzeige
AW: VBA: Check, ob Zahl 6 Ziffern hat
Ramses
Hallo Nepumuk
Er verwendet "Zelle" als Range, deshalb läuft "Zelle(3,6)" ins Leere ;-)
Gruss Rainer
AW: VBA: Check, ob Zahl 6 Ziffern hat
27.10.2004 15:22:33
Nepumuk
Hi,
die Korrektur:


Sub tt()
    Dim Zelle As Range, Meldung As String
    Meldung = "Fehler in"
    For Each Zelle In Selection.Cells
        If Left(Zelle, 2) <> "AB" Or Not IsNumeric(Mid(Zelle, 3)) Or Len(Zelle) <> 8 Then Meldung = Meldung & " " & Zelle.Address(0, 0)
    Next Zelle
    If Meldung <> "Fehler in" Then MsgBox Meldung, vbCritical, "Falsche Eingabe"
End Sub


Gruß
Nepumuk
Anzeige
AW: VBA: Check, ob Zahl 6 Ziffern hat
Ramses
Hallo
bist du dir sicher mit "VBA-Gut" ?
Option Explicit

Sub tt()
Dim MsgText As String
Dim Zelle As Range
MsgText = ""
For Each Zelle In Selection.Cells
Debug.Print Left(Zelle, 2)
Debug.Print Right(Zelle, 6)
Debug.Print Len(Zelle)
If Left(Zelle, 2) <> "AB" Or Not IsNumeric(Right(Zelle, 6)) Or Len(Zelle) <> 8 Then
MsgText = MsgText & Zelle.Address & "; " & Zelle.Text & Chr$(13)
End If
Next Zelle
If MsgText = "" Then
MsgBox "Keine Fehler gefunden"
Else
MsgBox "Folgende Fehler gefunden:" & Chr$(13) & MsgText
End If
End Sub

Gruss Rainer
Anzeige
AW: VBA: Check, ob Zahl 6 Ziffern hat
27.10.2004 15:17:21
Fab
Ich bin nicht gut in VBA, DU bist gut! Leider kann man bei den Kenntnissen nur auswählen zwischen VBA gut und kein VBA. Ich bin dazwischen, eher bei kein VBA ;-)
Danke dir.
Gruss
Fab
AW: VBA: Check, ob Zahl 6 Ziffern hat
Ramses
Hallo
Macht ja nix :-)
Die Zeilen mit "Debug.Print" kannst du übrigens alle löschen.
Die waren für mich nur zum testen.
Gruss Rainer
Anzeige
;

Forumthreads zu verwandten Themen

Word-Text auf xls-Zellen verteilen
Florian

Guten Morgen zusammen,
eine Frage: wie kann ich Word-Zeilen auf Excel-Zeilen (einzelne Zellen verteilen)?
Im Word-File habe ich z.B. den Text
Zeile1
Zeile2
Zeile3
untereinanderstehen, jetzt soll "Zeile1" in Zelle A1, "Zeile2" in Zelle B1 usw. stehen. Bsp hängt an.
Da...
18.08.2008 07:29:00
Thread-ID: 1002498
3 Beiträge
Zellinhalt aufgrund Sheetname und Zelle ermitteln
Peter

Guten Tag
Wahrscheinlich stehe ich mir selbst auf der Leitung.
Mit Hilfe der String-Variablen strTab (enhaltend der Worksheet-Name) und strZelle (enthaltend die Zelladresse, z.B. A3) möchte ich den Wert der entsprechenden Zelle (Text) ermitteln und der Variable strContent zuweisen.
...
11.09.2008 10:31:00
Thread-ID: 1009001
3 Beiträge
Textbox auf UF dann Zellen füllen
Walter

Hall Fachfrauen und Männer,
habe ein kleines Problem bzw. Frage:
Ich habe auf einer UF eine Textbox1 wenn ich einen Wert eingebe z.b. 15,00
dann wird der Wert in meine Tabelle C10 eingesetzt.
Nun möchte ich das der Wert von C10 die Zellen mit dem gleichen Wert bis
C20 ausfül...
30.09.2008 10:27:04
Thread-ID: 1013282
11 Beiträge
Zelle auf Inhalt Text oder Zahl prüfen
Moritz

Hallo,
ich habe eine sehr große Tabelle mit Adressen. Problem ist nur, dass die Straßen, PLZ und so nicht untereinander in einer Spalte stehen sondern alle unterschiedlich verrückt sind je nachdem wie viele Vorname oder Nachnamen jemand hat. Es gibt aber ein einheitliches System. Erst kommt...
30.09.2008 10:36:00
Thread-ID: 1013287
3 Beiträge
Anzeige
Zelleninhalt auf Textteil überprüfen...
Jessi

Hallo zusammen,
ich bin gerade dabei meine Liste mit SVerweisen zu füllen und hänge an einem Problem:
Eine Ausgabe (über SVerweis) liefert einen Wert "String" XY_Text, ALTERN_Text oder MUSTER_Text in einer Zelle
jetzt möchte ich in einer anderen Zelle sagen:
Wenn Zelleninhalt mi...
07.11.2008 12:55:13
Thread-ID: 1022638
2 Beiträge
Welche Zellen enthalten Zahlen größer Null??
Christian

Hallo Forum,
folgendes Problem:
in einer Zeile (von Spalte A....FB, also recht viele) stehen Formeln und Zahlen, Zahlen Null und größer Null.
Wie bekommen ich (ohne VB!) raus in welchen Zellen Zahlen größer Null stehen? Ich brauche die Spaltennummern....
Vielen Dank für einen Hi...
14.11.2008 11:39:00
Thread-ID: 1024509
9 Beiträge
Zelle auf zwei Bedingen prüfen
Claudia

Guten Tag,
ich habe folgendes Problem:
ich möchte mit einer Schleife den Inhalt von Zellen auf zwei Bedingungen prüfen.
Hier der Code:
Do While Sheets(b).Cells(iDatumRow, i) "Ich" Or "Du"
leider funktioniert er nicht, es klappt nur mit einer Bedingung, also ohne Or "Du"
...
16.06.2009 12:54:36
Thread-ID: 1081854
13 Beiträge
Anzeige
teste verschiedene Zellen auf den selben Inhalt
Tom

Hallo,
Ich habe verschiedene Zellen mit einem Datum versehen, welches sich täglich ändern kann.
Und..ich habe ein "Master-Datum" in einer Zelle stehen..
Ich möchte gern ein "Wahr" oder ein "Falsch" oder halt vergleichbares als Antwort
wenn:
Teste bestimmte Zellen auf deren D...
23.06.2009 12:19:20
Thread-ID: 1083751
8 Beiträge
Anzeige
Zelle auf mehrere werte aus tabelle überprüfen
Michael

hallo
für einen script müsste eine zelle a1 dahingehend überprüft werden, ob der dort eingegebene wert identisch ist mit werten, die in b1:b200 stehen. sollte der wert in a1 identisch sein mit einem der werte in b1:b200, wird dann eine if-anweisung ausgeführt.
wie lautet der code für di...
07.08.2009 13:18:50
Thread-ID: 1094283
3 Beiträge
Verteilung des Inhalts einer Zelle auf zwei Zellen
Jeanette

Hallo, gegeben eine Tabelle mit einer Spalte, die Informationen in folgender Form enthält:
1. Ein Wort oder mehrere Wörter, die durch Blank getrennt sind.
2. Unmittelbar auf das letzte dieser Wörter folgt ein Komma, gefolgt von einem Blank.
3. Danach öffnet sich eine Klammer „(„.
20.08.2009 16:33:59
Thread-ID: 1097466
5 Beiträge
Anzeige
Zelle auf bestimmten Inhalt prüfen
Mandy

Hallo,
ich habe in meinem Excel Sheet sowas wie ein Kopf, wo der User Pflichtfelder ausfüllen MUSS.
Leider ist das Format so blöd, dass gleich 5 Abfragen in einer Zelle gemacht werden.
Die 5 Angaben sind also durch einen Zeilenumbruch innerhalb der Zelle dargestellt, sieht ungefähr...
14.09.2009 10:06:22
Thread-ID: 1102539
7 Beiträge
Mit Userform Zellen auf Inhalt pruefen
Jeron

Hallo sehr geehrte Excelfreunde,
ich bräuchte bitte eure Hilfe bei der Erstellung eines Codes für ein Userform.
Die Spalte H12:I17 auf Tabellenblatt "Jahresplanung" soll auf Inhalt überpüft werden.
Sobald eine Zelle keinen Inhalt aufweist, soll der Eingabewert von ComboBox1 eingetr...
14.09.2009 18:21:24
Thread-ID: 1102720
4 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