TextBox.Activate klappt mal, klappt mal nicht
Reinhard
ich habe drei TextBoxen im Tabellenblatt. In ihnen dürfen nur Zahlwerte stehen undkeine davon darf leer sein. Die Auswertung dessen funktioniert mit nachfolgendem Code.
Ich würde halt gerne die erste gefundene fehlerhaft befüllte TextBox aktivieren.
Das klappt beim ersten Codedurchlauf und beim 3ten, beim 5ten usw.
Es klappt nicht beim 2ten, 4ten,6ten , usw. Codedurchlauf.
Also funktioniert es nur abwechselnd.
Mit F8 habe ich es geprüft, ".Activate" wird immer korrekt ausgeführt. Aber in jedem zweiten fall bewirkt "Exit Sub" daß die Aktive Zelle angesprungen wird.
Wer weiß Rat?
Option Explicit
Sub Berechnung()
Dim intTB As Integer
For intTB = 1 To 3
With Worksheets("Tabelle1").OLEObjects("TextBox" & intTB)
If Not IsNumeric(.Object.Value) Then
MsgBox "Fehler in Textbox" & intTB
.Activate
'DoEvents
Exit Sub
End If
End With
Next intTB
' Berechnungem
End Sub
Danke ^ Gruß
Reinhard