Microsoft Office Tutorials and References
In Depth Information
4.1.5 Mitarbeiterzufriedenheitsbefragung
Listing 4.1: Ereignismakro zum Ankreuzen der Fragen im Fragebogen
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intRow As Integer, intCol As Integer, i As Integer
' Variabeln mit der Zeilen- und Spaltennummer der aktiven Zelle belegen
intRow = ActiveCell.Row
intCol = ActiveCell.Column
' Prüfen, ob der Zellzeiger in einer Fragezelle steht
If Cells(intRow, 1) <> "" And intCol > 2 And intCol < 8 Then
' Alle Zellen der Zeile löschen
For i = 3 To 7
Cells(intRow, i) = ""
Next i
' Frage ankreuzen (mit Signal)
Beep
ActiveCell.Value = "X"
End If
End Sub
Abbildung 4.37: Ein Klick mit dem Mauszeiger und das Kreuz ist gesetzt
Blattschutz und Arbeitsmappenschutz
Schützen Sie den Fragebogen vor unbeabsichtigten Änderungen und
stellen Sie sicher, dass die Mitarbeiter keine Fragen löschen und auch
nichts hinzufügen. Für die Auswertung sind Zellverknüpfungen
reserviert und Formeln hinterlegt, schützen Sie auch diese mit einem
Blattschutz. Markieren Sie die gesamte Tabelle mit (Strg) + (____) und
(ª) + (____) . Aktivieren Sie mit (Strg) + (1) die Zellformatierung und
schalten Sie auf der Registerkarte Schutz die Option Ausgeblendet
ein, um alle Formeln unsichtbar zu machen. Markieren Sie alle
Ankreuzzellen und entfernen Sie in der Zellformatierung unter
Schutz das Häkchen an der Option Gesperrt . Weisen Sie der Tabelle
anschließend den Blattschutz zu.
Extras/Schutz/Blatt schützen . Geben Sie ein Kennwort ein und wie-
derholen Sie es.
Überprüfen/Änderungen/Blatt schützen
2003
2007
Search JabSto ::




Custom Search