UF für mehrere TB nutzen
09.11.2005 15:31:59
Petra
ich habe eine UF die ich für mehrere Tabellenblätter nutzen möchte.
In dem unten stehenden Code der UF wird die Eingabe in TB "Plan 2006 " in Zelle A1 eingetragen, nun bestehen noch Tabellen , mit dem Namen "Plan 2007 " bis "Plan 2009 " .
Ist das möglich oder muss ich noch mehrere UF erstellen oder kann ich das mit der vorhandenen UF bewerkstelligen ? Und wie muste da der Code ausehen?
Gruss Petra
Private Sub CommandButton1_Click()
On Error GoTo Fehler
If TextBox1.Value = "" Then Exit Sub
Sheets("Plan 2006").Range("A1").Value = TextBox1.Value
[A1] = [A1] + CDbl(UserForm1.TextBox1)
Unload Me
Exit Sub
Fehler:
MsgBox "Es handelt sich nicht um reine Zahler!", vbCritical, "Falsche Eingabe"
TextBox1.Value = ""
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
If TextBox1.Value = "" Then
CommandButton1.Enabled = False
Else
CommandButton1.Enabled = True
End If
End Sub