Sheet Index



Excel-Version: 9.0 (Office 2000)

Betrifft: Sheet Index
von: Wolfgang
Geschrieben am: 11.07.2002 - 20:33:35

Hallo Leute,

Dieser Code:

Sub Codes_löschen()
With ActiveWorkbook.VBProject.VBComponents("Tabelle3").CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub

funktioniert wunderbar solange der VB-Name (nicht der Blattname) des Blattes feststeht. Nach dem Kopieren und Verschieben des Blattes innehalb der gleichen Mappe haben sich der VB-Name und auch der Sheet("Name") geändert. Lediglich der Index Sheet(29) bleibt immer gleich. Wie kann ich das Blatt ansprechen?

Bin für jede Hilfe dankbar.

Grüsse

Wolfgang

  

Re: Sheet Index
von: Andreas
Geschrieben am: 11.07.2002 - 22:37:46

Hallo Wolfgang,

so kannst Du darauf zugreifen:
Worksheets(29).CodeName

Viel Spaß,
Andreas