Laufzeitfehler 9
Volker
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("G1").Value = Range("G2").Value Then
PrüfenObAllesStimmt
End If
JedeZelle
End Sub
Sub PrüfenObAllesStimmt()
Dim Zelle As Range, Bereich As Range, ColorIndex As Integer
Set Bereich = Worksheets("Schleifen").Range("C5:C17")
For Each Zelle In Bereich
If Zelle.Value ColorIndex = 2 Then
MsgBox "Es sind noch Einträge zumachen"
End If
Next
JedeZweite
End Sub
Sub JedeZweite()
Dim i As Integer
Sheets("Schleife").Activate
Range("D2").Select
If ActiveCell.Value = "1" Then
For i = 1 To 19 Step 3
Rows(i).Hidden = False
Next i
ElseIf ActiveCell.Value = "2" Then
For i = 1 To 19 Step 3
Rows(i).Hidden = True
Next i
End If
End Sub
Sub JedeZelle()
With Sheets("Schleife")
If .Range("B4") = 3 Then .Range("C5").Interior.ColorIndex = 3
If .Range("B4") = 2 Then .Range("C5").Interior.ColorIndex = 2
If .Range("B7") = 5 Then .Range("C8").Interior.ColorIndex = 5
If .Range("B7") = 2 Then .Range("C8").Interior.ColorIndex = 2
If .Range("B10") = 5 Then .Range("C11").Interior.ColorIndex = 5
If .Range("B10") = 2 Then .Range("C11").Interior.ColorIndex = 2
If .Range("B13") = 10 Then .Range("C14").Interior.ColorIndex = 10
If .Range("B13") = 2 Then .Range("C14").Interior.ColorIndex = 2
If .Range("B16") = 10 Then .Range("C17").Interior.ColorIndex = 10
If .Range("B16") = 2 Then .Range("C17").Interior.ColorIndex = 2
End With
End Sub
Hallo!
Dies ist mein ganzes Werk.
Ich fürchte es ist nicht gut aber das ist der erste Versuch!
Es soll wenn G1 = G2 ist,prüfen ob die Zellen von C5 bis C17
weiß sind.
Da erscheint der Laufzeitfehler!!
Vieleicht könnte Ihr mir helfen?
Vielen Dank und macht weiter so!!!!!
Anzeige