habe mal wieder ein VB Problem, dass ich alleine nicht lösen kann.
Habe hier das Prob näher beschrieben. https://www.herber.de/bbs/user/65792.xls
Kann mir bitte jemand von Euch Profis, bei der Lösung helfen?
Danke schon mal
Gruss
Josef
Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(Range("C3:C4"), target) Is Nothing Then
Sheets("Monat").Range("D2:D3").Value = Range("C3:C4").Value
End If
End Sub
Gruß Tino