Sheet Index die 2te



Excel-Version: xl 2000
nach unten

Betrifft: Sheet Index die 2te
von: Wolfgang
Geschrieben am: 12.07.2002 - 15:28:45

Hallo Leute,
der erste Code:

Sub Codes_löschen1()
With ThisWorkbook.VBProject.VBComponents("Tabelle34").CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub

funktioniert wunderbar. Beim zweiten:

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

passiert überhaupt nichts. Ich muss das Blatt aber über den Sheet.Index ansprechen.

Das Makro:

Private Sub Worksheet_Activate()
Range("I4") = ActiveSheet.Index
End Sub

gibt mir in Zelle I4 den Wert 29 aus

im ProjectExplorer heisst das entsprechende Blatt Tabelle34(Leer(2))

Wo liegt mein Fehler??

Ich bitte um Eure Hilfe.

Grüsse

Wolfgang

nach oben   nach unten

Re: Sheet Index die 2te
von: L.Vira
Geschrieben am: 12.07.2002 - 20:49:21

Sub Codes_löschen()
Dim SN as String
SN = Sheets(29).Name
With ActiveWorkbook.VBProject.VBComponents(SN).CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "verweise"