|
Hallo Ihr Lieben,
ich würde gerne, dass mein Programm automatisch ausführbar ist, sobald ich in eine Zelle etwas ändere.
Folgendes Problem, in der Tabelle Questionnaire ändere ich die Stufen z.B. von 10 auf 0. Wenn ich eine 0 eintrage soll in andere Zelle eine Stuffe C vergeben werden. Ich möchte, dass die Stufe C automatisch vergeben wird sobald ich die Null eintrage. Ich habe schon mit: DieseArbeitsmappe:Privat Sub Worksheet_Change probieren.
Sobald ich das tue hängt mein Excel und ich muss Computer ausschalten :( oder neu starten. Weißt jemand wie ich das lösen kann ??? Danke für eure Hilfe
Code kopierenSub
For n = 1 To 100
If Sheets("Questionnaire").Cells(24, 28) = "A" Then
Sheets("Questionnaire").Cells(36, 9).Interior.Color = RGB(196, 215, 155)
ElseIf Sheets("Questionnaire").Cells(24, 28) = "B" Then
Sheets("Questionnaire").Cells(36, 9).Interior.Color = RGB(255, 255, 175)
ElseIf Sheets("Questionnaire").Cells(24, 28) = "C" Then
Sheets("Questionnaire").Cells(36, 9).Interior.Color = RGB(218, 150, 148)
End If
If Sheets("Questionnaire").Cells(12, 7) = "0" Or Cells(13, 7) = "0" Or Cells(14, 7) = "0" Or Cells(15, 7) = "0" Or Cells(16, 7) = "0" Or Cells(17, 7) = "0" Or Cells(18, 7) = "0" Or Cells(19, 7) = "0" Or Cells(20, 7) = "0" And Sheets("Questionnaire").Cells(24, 28) = "A" Or Sheets("Questionnaire").Cells(24, 28) = "B" Then
Sheets("Questionnaire").Cells(24, 28) = "C"
Else: Sheets("Questionnaire").Cells(24, 28) = Sheets("Questionnaire").Cells(24, 27)
End If
End Sub
|