Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
504to508
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
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

303 Forumthreads zu ähnlichen 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
Anzeige
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
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
TextBox Inhalt auf Richtigkeit prüfen
Frank

Hallo am Sonntagabend!!!
Wenn man wie ich mit VBA arbeiten möchte, aber es nicht kann, kommen dann vielleicht solche Fragen auf.
Ich möchte gern prüfen, wenn ich eine TextBox verlasse ob die Eingabe ein bestimmtes Format hat, so zum Beispiel: "00.0000.0000", aus den Nullen werden natürl...
28.06.2009 21:11:34
Thread-ID: 1084949
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
10
2
3
1
8
12
7
3
2
4
6
3
4
4
2
5
1
2
6
1
6
4
2