Für Hajo_Z Zellen nicht anwählbar
15.02.2004 16:04:18
Werner Schmidt
Ich habe ein tolles Makro von Hajo Ziplies im Einsatz (weiter unten). Hier wird hingewiesen wenn man auf eine Zelle kommt die eine Formel enthält.
Meine Frage:
Da zwei unterschiedliche Druckbereiche per Makro erstellt werden kommt bei jedem Aufruf logischerweise der Hinweis "Wollen Sie die Formel ändern".
Kann man das in diesem Fall unterbinden?
Gruss aus Hamburg
Hans-Werner Schmidt
Option Explicit
Dim StAdresse As String
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' erstellt von Hajo.Ziplies@web.de 16.09.03
' http://home.media-n.de/ziplies/
' Formel dürfen nicht geändert werde
' sollen Formel geändert werden sind diese einzeln auszuwählen
' wird ein Zelle mit Formel ausgewählt wird der zuletzt gewählte Bereich markiert
Dim RaZelle As Range
Dim InMldg As Integer
For Each RaZelle In Range(Target.Address)
' es dürfen keine Zellen mit Formeln ausgewählt werden
If RaZelle.HasFormula Then
' 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
Application.EnableEvents = False
If StAdresse <> "" Then
Range(StAdresse).Select
Application.EnableEvents = True
Exit For
Else
If RaZelle.Column < 256 Then
RaZelle.Offset(0, 1).Select
Else
RaZelle.Offset(0, -1).Select
End If
Application.EnableEvents = True
Exit For
End If
End If
Next RaZelle
StAdresse = Selection.Address
End Sub