AW: Code läuft nicht
19.08.2010 12:50:38
Bernd
Die Eingabe in den Zellen E22:E41 ist per Gültigkeit auf das "x" beschränkt.
Allerdingst wird per Code eine Abfrage gestartet.
Wenn nun statt des "x" ein anderer Wert eingetragen wird, kommt halt die Gültigkeitsmeldung und bei Bestätigung der Abfrage im Code mit "ja" kommt es dann zur Fehlermeldung.
Hier mal der komplette Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, Mldg1, Stil1, Titel1, Antwort1, Zelle1, Zelle11, Mldg2, Stil2, Titel2, Antwort2, Zelle2, _
Zelle22
If Range("E22:E41") "x" Then
a = 22
Else
If Not Intersect(Target, Range("E22:E41")) Is Nothing And Target.Count = 1 Then
Zelle1 = ActiveCell(0, -2)
Zelle11 = ActiveCell(0, -1)
Mldg1 = "Hat der/die Kollege/Kollegin " & Zelle11 & " " & Zelle1 & vbCr & _
"auch die folgenden fünf Monate in Vollzeit gearbeitet?"
Stil1 = vbYesNo + vbQuestion
Titel1 = "Autoausfüllen?"
Antwort1 = MsgBox(Mldg1, Stil1, Titel1)
If Antwort1 = vbYes Then
Target.Offset(, 2).Value = "x"
Target.Offset(, 4).Value = "x"
Target.Offset(, 6).Value = "x"
Target.Offset(, 8).Value = "x"
Target.Offset(, 10).Value = "x"
ActiveCell(1, -3).Select
Else
End If
Else
End If
If Not Intersect(Target, Range("F22:F41")) Is Nothing And Target.Count = 1 Then
Zelle2 = ActiveCell(0, -3)
Zelle22 = ActiveCell(0, -2)
Mldg2 = "Hat der/die Kollege/Kollegin " & Zelle22 & " " & Zelle2 & vbCr & _
"auch die folgenden fünf Monate in Teilzeit gearbeitet?"
Stil2 = vbYesNo + vbQuestion
Titel2 = "Autoausfüllen?"
Antwort2 = MsgBox(Mldg2, Stil2, Titel2)
If Antwort2 = vbYes Then
Target.Offset(, 2).Value = "=RC[-2]"
Target.Offset(, 4).Value = "=RC[-4]"
Target.Offset(, 6).Value = "=RC[-6]"
Target.Offset(, 8).Value = "=RC[-8]"
Target.Offset(, 10).Value = "=RC[-10]"
ActiveCell(1, -4).Select
Else
End If
Else
End If
End If
End Sub