Guten Morgen,
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
versuche es mal so.
Tino
Hallo,
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
AW: versuche es mal so.
Josef_T
Hallo Tino,
genau so sollte es sein.
Danke sehr und schönen Tag noch
Josef