VBA
06.12.2014 08:52:27
tigub
Hallo zusammen
Nur eine kleine Hilfe.
Ich hab hier ein Sup,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objRange As Range, objCell As Range
Set objRange = Intersect(Target, Range("A2"))
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, 7).Value = Time
End If
Next
Set objRange = Nothing
End If
End Sub
Doch hab ich jetzt das Problem:
- ich möchte es nicht auf "A2" sondern auf "AP37"
und die Uhr soll's auf auf "AE17" anzeigen.
Ich bekomm's nicht hin.
Kann mir da jemand kurz helfen?
Vielen Dank
tigub
Anzeige