Makro ändern - an Josef Ehrensberger
29.01.2005 13:42:51
HeinzH
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim neuer_Blattname As String
If Target.Address = "$A$6" Or Target.Address = "$A$52" Then
neuer_Blattname = Range("A6") & " bis " & Range("A52")
ActiveSheet.Name = neuer_Blattname
End If
End Sub
Könntest Du mir Bitte wieder einmal helfen ?
Danke Heinz
PS: Schön langsam werde ich Dank Eurer Hilfe Fertig
https://www.herber.de/bbs/user/17109.xls