Hallo Wissende,
ich möchte in Excel 97 den Blattname automatisch beschriften lassen, d.h. in einer Zelle A1 gebe ich ein Datum ein. Nach Abschluss der Eingabe mit Enter soll diese Datum automatisch den entsprechenden Blattnamen ändern und zwar als Kalenderwoche.
wie das am besten gehn?
Danke
Gruss Hirsch
Hi Hirsch,
versuch’s mal hiermit, einzufügen unter „DieseArbeitsmappe“ im Visual-Basic-Editor (damit geht es zumindest unter Excel2000):
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = „$A$1“ Then
Range(„B1“) = „=KALENDERWOCHE(A1)“
ActiveSheet.Name = Range(„B1“).Value
Range(„B1“) = „“
End If
End Sub
Wenn Du in Zelle A1 etwas eingegeben hast, wird in Zelle B1 die Kalenderwoche aus dem Datum aus A1 berechnet, und diese sodann als Tabellenname verwendet. Anschließend wird B1 wieder geleert. Zelle B1 kannst Du natürlich anpassen, so dass keine Daten überschrieben werden.
Viele Grüße
Sculpture