If-Condition mit String aus Zelle
11.12.2020 14:31:15
Manfred
Ich bin VBA-Neuling und versuche ein Problem in Excel mit VAB zu lösen. Und zwar soll das Heutige Datum gesetzt werden, wenn ein bestimmter String in die Spalte B geschrieben wird. Ich habe bereits verschiedene Einträge durchgeschaut und das Setzen des Datums hingekriegt. Aber nur mit einer Zahl. Hier der Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Dim ZellenInhalt As String
Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
ZellenInhalt = VBA.Val(Rng.Value)
If ZellenInhalt = 1 Then
Rng.Offset(0, xOffsetColumn).Value = Now
Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
Else
Rng.Offset(0, xOffsetColumn).ClearContents
End If
Next
Application.EnableEvents = True
End If
End Sub
Nun soll der ZellenInhalt nicht mit 1 verglichen werden, sondern mit einem String. Kann mir da jemand weiterhelfen?