VBA soll meldung geben, bei weniger als 6 Zahlen

Computer: Software & Programmierung Office Software
1

Hallo.
Wie bringe ich es fertig, das wenn ich ein makro starte, es mior zuerst abfragt, ob in der Zelle A1 6 Zahlen eingegeben wurden?
Es müssen 6 Zahlen sein, und dürfen keine Buchstaben, bzw Lehrstellen enthalten.

Ich hoffe es kann mir jemand helfen, und bedanke mich schon mal im vorraus.

2

Hallo Krisam,

warum lässt Du Excel nicht selber entscheiden ob in den Zellen Zahlen vorhanden sind? Zitat:
IsNumeric-Funktion

Gibt einen Wert vom Typ Boolean zurück, der angibt, ob ein Ausdruck als Zahl ausgewertet werden kann.

also ein flottes If Not IsNumeric(Cells(5, 1)) Or Not Cells(5, 1) Then
MsgBox („In A5 ist keine Zahl!“)
End If prüft den Inhalt von Zelle A5 auf keine Zahl (oder leeren Inhalt) ab.

MfG Georg V.

P.S.: Warnung: Dieser Artikel benötigt Grundkenntnisse in Excel-VBA :smile:

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Hallo wer?

mal im vorraus.

Sehr nett, aber voraus hat nur ein „r“
Die Lösung deines „Problems“

Sub sechs()
If IsEmpty(Cells(1, 1)) Or Not IsNumeric(Cells(1, 1)) Or Len(Cells(1, 1).Value) 6 Then
MsgBox ("Zelle A1 ist leer oder enthält nicht 6 Zahlen")
Exit Sub
End If
MsgBox ("hier mit Makro weiter, wenn A1 OK ist")
' code geht hier weiter
End Sub

und dann sage ich:
Gruss von Erich

4

Nachtrag
Wenn du - wie in deiner Frage - nur „weniger als 6“ Zahlen erfassen möchtest, schreibst du anstatt
Len(Cells(1, 1).Value) 6 Then
einfach
Len(Cells(1, 1).Value)