Formelschutz und Doppelklickfunktion
29.04.2005 10:40:17
Thomas
ich habe hier im Forum eine Formelschutzfunktion gefunden, die auch gut funkt. Nun habe ich eine Doppelklickfunktion aus einem anderen Tabellballt in das geschützt eingebaut. Hier bei wird nur eine Zahl übertragen. Bei der Ausführung der Doppelklikfunk. kommt es zur Fehlermeldung. Die Doppelklickfunktion geht auf eine nicht geschützte Celle, auf diese wird dann per Quervereis zugegriffen.
Hier der Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim RaZelle As Range
Dim InMldg As Integer
Dim Test As String
For Each RaZelle In Range(Target.Address)
Test = RaZelle.Address
'es dürfen keine gefüllten Zellen ausgewählt werden
'If RaZelle.Value <> "" Then
'es dürfen keine Zellen mit Formeln ausgewählt werden
If RaZelle.HasFormula Then
'MsgBox "Diese Formel ist absichtlich geschützt", 16, "Warnung"
'Diesen Teil reinnehmen falls formeln geändert werden dürfen
'InMldg = MsgBox("Wollen Sie die Formel ändern", vbYesNo + vbQuestion, "Formelabfrage ?", "", 0)
If InMldg = 6 Then Exit Sub
Cells(Target.Row, Target.Column + 3).Select
Exit For
End If
Selection.FormulaHidden = True
Next RaZelle
End Sub
Sub adresseinrechnung() 'Rechnungsdaten
Dim i
Dim SMenge As Object
Set SMenge = Application.Intersect(Range("B:B"), Range(ActiveCell.Address)) ' Doppelklickprüfung
If SMenge Is Nothing Then Exit Sub
Selection.Copy
Sheets("Druckbereich").Select
Range("J7") = 2
Range("G12").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Woran kann es liegen? Was muss ich ändern. Ich habe es auch mit dem normalen Blattschutz versucht, das geht auch nicht sorecht, da im Anschluß an die Speicherung die Verküpfungen entfernt werden.
MFG Thomas