Butonn click
08.12.2007 17:33:18
reno
Ich versuche mehrere Textboxen im aktiven Sheet vorzubelegen wenn Sie leer sind.
Leider kommt immer ein Debugg Fehler : Typen unverträglich
hier mal der code
Private Sub OptionButton8_Click()
Dim a As Shapes
TextBox1 = a
For a = TextBox1 To 28
If a.Value = "" Then a.Text = "1000"
End If
Next a
End Sub
was mach ich falsch
Anzeige