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
das läuft super...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