VBA und Wenn Formel
Stefan
hätte mal eine Frage.
Ich erstelle gerade, eine Liste zur Überwachung von Wartungsintervallen.
Bin gerade dabei, dieses Schicht gebunden aufzuteilen. (Früh-, Spät- und Nachtschicht)
Die Tabelle hat Vier Spalten: H=Chipnummer; I=Zeit; J=Datum; K=Schicht.
Sie besteht momentan aus; VBA und Wenn Fomel.
Die Chipnummer wird "noch" manuell eingefügt. Die Zeit, das Datum per VBA und die Kürzel für die Schichten (Fs;Ss;Ns) per Wenn Formel.
VBA Formel:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objRange As Range, objCell As Range
Set objRange = Intersect(Target, Range("H3:H33"))
If Not objRange Is Nothing Then
For Each objCell In objRange
If IsEmpty(objCell.Value) Then
objCell.Offset(0, 1).Resize(1, 2).ClearContents
Else
objCell.Offset(0, 1).Value = Time
objCell.Offset(0, 2).Value = Date
End If
Next
Set objRange = Nothing
End If
End Sub
Wenn Formel:
=WENN($I18>=ZEITWERT("20:30:00");"Ns";WENN($I18 Meine Frage jetzt. Kann ich die Wenn Formel, in den VBA Code einbinden?
Danke für eure Hilfe.
Gruß Stefan