muss noch was Fragen.
In Zelle A2 der "Menü" Sheet der Wert aus der aktiven Sheet Zelle H18 und
A3 gleich H19 genommen wird.
gruß kurt k
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name "Menü" Then
With Sheets("Menü")
.Range("A1") = Range("H15")
.Range("A3") = Range("H16")
End With
End If
End Sub