Vba textboxen nicht ausgefüllt fehler meldung

Computer: Software & Programmierung Visual Basic
#1

HI,
ich habe 7 Textboxen in Vba geschrieben.
Alle müssen mit Zahlen gefüllt sein, also sie dürfen nicht leer sein und nicht mit buchstaben befüllt sein.
falls eine oder mehrere dieser 7 boxen nicht ausgefüllt bzw mit buchstaben gefüllt ist, soll eine fehlermeldung ausgegeben werden. Falls alles korrekt gefüllt wurde soll mit den berechnungen begonnen werden( die ich schon geschrieben habe und die auch funktionieren)

kann ich sowas probieren wie :

if checkbox1.value OR checkbox2.value Or …usw.
= ??? then…
else
( und dann die berechnungen)

oder ist das ein völlig falscher ansatz?

würde mich über eine hilfe freuen

glg

#3

ich habe 7 Textboxen in Vba geschrieben.
Alle müssen mit Zahlen gefüllt sein, also sie dürfen nicht
leer sein und nicht mit buchstaben befüllt sein.
falls eine oder mehrere dieser 7 boxen nicht ausgefüllt bzw
mit buchstaben gefüllt ist, soll eine fehlermeldung ausgegeben
werden. Falls alles korrekt gefüllt wurde soll mit den
berechnungen begonnen werden( die ich schon geschrieben habe
und die auch funktionieren)

Hallo Abudabi,

Sub Berechnung()
Dim intTB As Integer
For intTB = 1 To 7
 With Worksheets("Tabelle1").OLEObjects("TextBox" & intTB)
 If Not IsNumeric(.Object.Value) Then
 MsgBox "Fehler in Textbox" & intTB
 Exit Sub
 End If
 End With
Next intTB
'
' Berechnungem
'
End Sub

Gruß
Reinhard

#4

Hallo Reinhard,
zunächst vielen dank für die antwort, aber irgendwie funktioniert das doch nicht. vielleicht hab ich mein problem undeutlich formuliert. hier ist das, was ich bis jetzt habe. es stimmt soweit, nur dass eben noch ein fehler ausgegeben werden soll wenn die textboxen falsch oder garnicht beschriftet werden.
lg

Private Sub CommandButton1_Click()

Dim pE As Double
Dim pF As Double
Dim Ugke As Double
Dim Ugkf As Double
Dim WagnisE1 As Double
Dim WagnisF1 As Double
Dim GewinnE1 As Double
Dim GewinnF1 As Double
Dim GeschaftskostenE1 As Double
Dim GeschaftskostenF1 As Double
Dim BauzinsenE1 As Double

WagnisE1 = WagnisE.Value
WagnisF1 = WagnisF.Value
GewinnE1 = GewinnE.Value
GewinnF1 = GewinnF.Value
GeschaftskostenE1 = GeschaftskostenE.Value
GeschaftskostenF1 = GeschaftskostenF.Value
BauzinsenE1 = BauzinsenE.Value

pE = WagnisE1 + GewinnE1 + GeschaftskostenE1 + BauzinsenE1
pF = WagnisF1 + GewinnF1 + GeschaftskostenF1

Ugke = (100 * pE) / (100 - pE)
Ugkf = (100 * pF) / (100 - pF)

Range(„B11“).Value = Ugke
Range(„B12“).Value = Ugkf

End Sub

#5

Hallo Abudabi,

zunächst vielen dank für die antwort, aber irgendwie
funktioniert das doch nicht.

sorry, davon ham wir nix. Was genau funktioiert nicht, was läuft falsch? Der Code war getestet.

vielleicht hab ich mein problem
undeutlich formuliert. hier ist das, was ich bis jetzt habe.
es stimmt soweit, nur dass eben noch ein fehler ausgegeben
werden soll wenn die textboxen falsch oder garnicht
beschriftet werden.

Ja und, mein Code ist so gedacht daß er in "CommandButon1_Click() oben steht, danach dein Code.

Teste das mal.

Und ich ging von TB aus, die TextBox1, Textbox2, usw. heißen.
Nun hast du andere Namen was ja so gesehen korrekt ist
Liegt daran das was nicht funktioniert?
Dann muß man halt mit einem Array arbeiten indem die ganzen namen der TBs stehen, auch kein Akt.

Aber gib bitte erstmal Feedback.

Gruß
Reinhard