Target variabel
12.06.2004 17:56:25
Erich
habe aus dem Forum nachstehendes Makro gebastelt, um Formeln zu schützen -
bzw. der User wird gefragt, ob er die Formel ändern will. Soweit kein Problem.
Nun suche ich eine Lösung, bei der nicht automatisch in die nächste vorgegebene
Zelle (Target(0,1)) gesprungen wird, sondern bei der die Zelle gesucht wird,
die als nächste in der Nähe keine Formel enthält.
Mit nachstehendem Makro besteht das Problem, wenn in einer Reihe mehrere Formeln
nebeneinander sind, dann wird natürlich immer die Frage aktiviert - ist dann
lästig.
Leider habe ich keine Idee, wie man eine Zelle flexibel suchen kann - ohne
Formelinhalt.
Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
''Die Blätter, die ausgenommen werden sollen-----------
'If Sh.Name <> "Tabelle1" And Sh.Name <> "Tabelle2" Then
' Variante 5 Zelle mit Formel schützen, Aufforderung ändern ja/nein
If Target.HasFormula Then
InMldg = MsgBox("Wollen Sie die Formel ändern", vbYesNo + vbQuestion, "Formelabfrage ?", "", 0)
If InMldg = 6 Then Exit Sub
Target.Offset(0, 1).Select
End If
'End If
errhandler:
Application.EnableEvents = True
End Sub
Besten Dank für eine Hilfe!
mfg
Erich