Danke für den Tipp Tom. Hier nochmal der hoffetlich richtig formatierte Text:
Hallo liebe Leute,
leider komme ich einem Fehler der bei mir immer wieder auftritt, auch nach einer intensive Internetrecherche, nicht auf die Spur.
Ich möchte je nach Zelleninhalt in Spalte A (möglicher Inhalt : "A", "B", "C" oder "D") in Spalte J eine angepasste String-Variable (TargetDate) einfügen. Der String wird richtig zusammen gebaut, nur entsteht jedes mal ein Fehler wenn ich den String mit "Cells(RowNumber, 10).Value = TargetDate" einfügen möchte. Hat jemand eine Idee warum das nicht funktioniert?
Hier mein Code:
Sub SetTargetDate()
Dim TargetDate As String
Dim ProjectType As Range
Dim RowNumber As Integer
RowNumber = ActiveCell.Row
For Each ProjectType In Range("A" & RowNumber)
Select Case ProjectType
Case Is = "A"
TargetDate = "=SVERWEIS(C" & RowNumber & ";'SE-Docs&Targets'!B4:X38;7;FALSCH)"
Cells(RowNumber, 10).Value = TargetDate
Case Is = "B"
TargetDate = "=SVERWEIS(C" & RowNumber & ";'SE-Docs&Targets'!B4:X38;11;FALSCH)"
Cells(RowNumber, 10).Value = TargetDate
Case Is = "C"
TargetDate = "=SVERWEIS(C" & RowNumber & ";'SE-Docs&Targets'!B4:X38;19;FALSCH)"
Cells(RowNumber, 10).Value = TargetDate
Case Is = "D"
TargetDate = "=SVERWEIS(C" & RowNumber & ";'SE-Docs&Targets'!B4:X38;21;FALSCH)"
Cells(RowNumber, 10).Value = TargetDate
End Select
Next
End Sub
Vielen Dank schonmal und beste Grüße Konstantin
|