Hallo,
ich hab unten stehenden Code verfasst, leider klappt noch etwas nicht.
Es kommt die Fehlermeldung Laufzeitfehler 1004 Anwendungs-und Objektdefinierter Fehler.
Kann mir jemand bitte helfen - ich brauche es für eine Studienarbeit dringend.
Public Sub blenden()
Dim iSpalte As Integer
Dim lZeile As Long
Dim PERIODE1 As Range
Dim PERIODE2 As Range
Dim PERIODE3 As Range
Dim PERIODE4 As Range
Dim PERIODE5 As Range
Dim PERIODE6 As Range
Dim PERIODE7 As Range
Dim PERIODE8 As Range
Dim PERIODE9 As Range
Dim PERIODE10 As Range
Dim PERIODEN_1BIS10 As Range
Dim PERIODE_PUE As Range
With Sheets("Zweikomponenten")
Set PERIODE1 = .Cells(lZeile, 11)
Set PERIODE2 = .Cells(lZeile, 13)
Set PERIODE3 = .Cells(lZeile, 15)
Set PERIODE4 = .Cells(lZeile, 17)
Set PERIODE5 = .Cells(lZeile, 19)
Set PERIODE6 = .Cells(lZeile, 21)
Set PERIODE7 = .Cells(lZeile, 23)
Set PERIODE8 = .Cells(lZeile, 25)
Set PERIODE9 = .Cells(lZeile, 27)
Set PERIODE10 = .Cells(lZeile, 29)
Set PERIODE_PUE = .Cells(lZeile, 9)
Set PERIODEN_1BIS10 = Union(PERIODE1, PERIODE2, PERIODE3, PERIODE4, PERIODE5, PERIODE6, PERIODE7, PERIODE8, PERIODE9, PERIODE10)
End With
' die Spalte zum Test auf 'Konstant' festlegen
iSpalte = 7
For lZeile = 1 To 500
If Cells(lZeile, iSpalte) = "Konstant" Then
PERIODE_PUE.Interior.Color = RGB(255, 255, 255)
PERIODE_PUE.Font.Color = RGB(0, 0, 0)
PERIODE_PUE.Font.Bold = True
PERIODE_PUE.Locked = False
PERIODEN_1BIS10.Value = "=R" & A & "C9"
PERIODEN_1BIS10.Interior.Color = RGB(194, 214, 154)
PERIODEN_1BIS10.Font.Color = RGB(0, 0, 0)
PERIODEN_1BIS10.Font.Bold = False
PERIODEN_1BIS10.Locked = True
End If
Next lZeile
End Sub
|