Namenszuweisung bei Blattaktivierung
18.01.2006 19:35:42
Peter
ich möchte bei der Aktivierung einer best. Tabelle
der Zelle „A110“ den Namen „Probe2“ zuweisen.
Mit der Aufzeichnung komme ich irgendwie nicht weiter.
Danke Peter
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim intMonat As Integer
Dim intJahr As Integer
intMonat = Month(Date)
intJahr = Year(Date)
If Sh.Name = Format(DateSerial(intJahr, intMonat, 1), "mmm YYYY") Then
'lt. Aufzeichnung:
Range("A110").Select
ActiveWorkbook.Names.Add Name:="Probe2", RefersToR1C1:="='Jan 2006'!R110C1"
End If
End Sub
Anzeige