prüfen ob Eingabe Binärzahl ist

Hallo zusammen,
hab mir eine UF gebastelt bestehend aus einem Textfeld und einem Command_Button.
Im Textfeld wird ein Binärcode eingegeben. Mit Click auf den CButton wird dieser in eine Dezimalzahl umgewandelt und im Label ausgegeben. Die Prüfung, ob die Eingabe nummerisch ist, hab ich hinbekommen, aber ob es sich bei der Eingabe wirklich um einen Binärcode handelt hab ich damit nicht geprüft.
Die Frage ist nun: Wie prüfe ich, ob es sich um einen Binärcode handelt?
So sieht es bis jetzt aus:

Private Sub CommandButton2_Click()
If Not IsNumeric(TextBox2.Text) And TextBox2.Text > "" Then
MsgBox "Bitte nur Zahlen eingeben!", vbCritical
TextBox2 = ""
TextBox2.SetFocus
Exit Sub
End If
Label8.Caption = BinToDez(TextBox2.Value)
End Sub

Hat da jemand eine Lösung? Bei der Recherche konnte ich nichts passendes finden.
VG Uwe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function BinaerZuDezimal(BinaerString As String) As Long ' Peter Haserodt 2004 Dim i As Integer For i = Len(BinaerString) To 1 Step -1 BinaerZuDezimal = BinaerZuDezimal + Val(Mid(BinaerString, i, 1)) * 2 ^ (Len(BinaerString) _ - i) Next i End Function

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii 'nur 0 und 1 zulassen Case 48 , 49 'Zeichen sind zulässig - nichts machen Case Else 'Alle anderen Zeichen unterdrücken KeyAscii = 0 End Select End Sub

Private Sub CommandButton4_Click() TextBox2 = UCase(TextBox2) If IsError(Hex(TextBox2.Value)) Then MsgBox "geht nicht", vbCritical, "Eingabe prüfen..." TextBox2.SetFocus Exit Sub End If Label8.Caption = CDec("&H" & TextBox2.Value) End Sub

…nicht dezimal ist, Uwe;
hätte ich dazuschreiben sollen, aber damit ist immer noch nicht gesagt, dass sie auch hexadezimal ist. Man kann auch, wie bei binär, nur verhindern, dass ungültige Ziffern (hier auch A-F als „Ziffer“) enthalten sind. Mit Like kann man das eigentlich nur für jeweils ein Zeichen sinnvoll tun. Also müsste damit der ganze String durchlaufen wdn.
Aber statt Hex verwende besser die WorksheetFunction.Hex2Dec. Die war früher nicht im WorksheetFunction-Objekt, weshalb ich da nicht immer gleich dran denke. Dadurch entsteht der Fehler 2036 (xlErrNum = #ZAHL!), falls die Angabe nicht als hexadezimal interpretiert wdn kann.
Natürlich musst du den ggf entstehenden Fehler noch abfangen, damit sich der Debugger nicht meldet, On Error Resume Next davor und danach wieder On Error GoTo 0 u/o generell eine Fehlerbehandlung im Pgm vorsehen.
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

prüfen ob Eingabe Binärzahl ist

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

prüfen ob Eingabe Binärzahl ist

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread