|
Hallo in die Runde,
Konkret: Ich habe eine Spalte mit den Urlaubstagen der Mitarbeiter. Nun möchte Ich im Dienstplan in der Zelle des Mitarbeiters den Wert "U" ausgeben lassen, wenn er an dem Tag Urlaub hat. Folgender Quelltext:
Public Sub Urlaubstage()
Dim Urlaubstagesteffen As Variant
Dim Montag As Variant
Dim Dienstag As Variant
Dim Mittwoch As Variant
Dim Donnerstag As Variant
Dim Freitag As Variant
Dim Text As String
Text = "U"
Urlaubstagesteffen = Sheets("Urlaub").Range("C3:C43") ' Laufzeitfehler 13 ""Typen unverträglich"
Montag = Sheets("1").Range("F7")
Dienstag = Sheets("1").Range("H7")
Mittwoch = Sheets("1").Range("J7")
Donnerstag = Sheets("1").Range("L7")
Freitag = Sheets("1").Range("N7")
If Montag = Urlaubstagesteffen Then Sheets("1").Range("F16") = Text Else Sheets("1").Range("F16") = ""
If Dienstag = Urlaubstagesteffen Then Sheets("1").Range("H16") = Text Else Sheets("1").Range("H16") = ""
If Mittwoch = Urlaubstagesteffen Then Sheets("1").Range("J16") = Text Else Sheets("1").Range("J16") = ""
If Donnerstag = Urlaubstagesteffen Then Sheets("1").Range("L16") = Text Else Sheets("1").Range("L16") = ""
If Freitag = Urlaubstagesteffen Then Sheets("1").Range("N16") = Text Else Sheets("1").Range("N16") = ""
End Sub
Beim Kompilierne bekomme ich immer Laufzeitfehler 13 "Typen unverträglich". Kann mir jemand helfen?
|