Problem mit UserForm und Erweiterung
05.01.2006 10:42:16
Alex
habe ein Problem mit meiner User.Form1 normaerweise sollte sie starten bei zellenbetätigung in einem Vorgegebenden Bereich macht sie aber nich erhalte dauerend eine Fehlermeldung. Dann hätte ich noch eine Sache die ich geren eingebaut hätte, dass wenn man die gleich zelle erneut anklickt das er den in der Zelle stehenden Wert mit dem neuen Werd addiert.
Habe folgenden Code zum öffnen.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim rng As Range
Set rng = Me.Range("W11:AD31")
If Not Intersect(Target, rng) Is Nothing Then UserForm1.Show
End Sub
und diese habe ich für den werte zu übertragen
Private Sub CommandButton4_Click()
ActiveCell.FormulaR1C1 = "1"
Unload Me
End Sub
Private Sub CommandButton5_Click()
ActiveCell.FormulaR1C1 = "3"
Unload Me
End Sub
Private Sub CommandButton6_Click()
ActiveCell.FormulaR1C1 = "4"
Unload Me
End Sub
Private Sub CommandButton9_Click()
ActiveCell.FormulaR1C1 = "5"
Unload Me
End Sub
leider bekomme ich die Datei nicht hochgeladen auf den Server von herber also muß es leider so sein.
Hoffe ihr könnt mir helfen.
Gruß Alex
Anzeige