Was bedeutet "If c=6 Then" ?
09.09.2008 14:39:00
Josef_T
kann mir mal bitte jemand erklären, was die Anweisung: "If c=6 Then" bewirkt?
Dim c
Select Case Target.Column
Case 19
Cancel = True
c = MsgBox("Mängel behoben ?", vbYesNo)
If c = 6 Then
Target.Value = Format(Now, "dd/mm/yy hh:mm") & " Mängel behoben!"
Else
Target.Value = Format(Now, "dd/mm/yy hh:mm") & " Gerät defekt!"
End If
Die Feststellungen "Mängel behoben" und "Gerät defekt" sollen in Spalte S (19) ab Zeile 8 bis 39, arbeiten.
Wäre Nett, wenn Ihr mir helfen würdet.
Gruß
Josef