Office: Excel Problem bei Methode Sheets.Add in VBA

Hallo,

ich bekomme beim mehrfachen ausführen des Befehls

Set Sheet2 = Sheets.Add(Type:=xlWorksheet)

über VBA Code zum hinzufügen eines neuen Excel Worksheets
häufig einen nicht weiter definierten Excel Fehler.

Excel hat ein Problem festgestellt und musste beendet werden. :-( :-(

Mal klappt die Routine ohne Probleme und dann wieder nicht,
ohne irgendwelche Veränderungen.

Ich arbeite mit Windows XP Professional Vers 2002 SP2
und Office 2003 Professional SP2

Kann mir jemand helfen??

 

Hallo geneigter Leser...

schon mal darauf geachtet, dass neu angelegte Tabellen ständig hochgezählt werden?

Wenn Du Excel startest und mit 3 Tabellen (Default-Einstellung von Xcl) beginnst und dann zum Beispiel die Tabelle 2 löschst, um diese dann wieder neu anzulegen, heißt das neue Sheet "Tabelle4".

Völlig egal, was Du dann mit diesem Sheet auch immer anstellst (es zum Beispiel umbenennst), wird bei nächsten Makrolauf die darin neu angelegte "Tabelle5" und danach "Tabelle6" (etc., etc.) heißen.

Will damit meinen, dass diese per Makro neu angelegte Tabelle ständig neu heißt und Du den zugewiesenen Namen erst auslesen und verwerten musst.

In diesem Sinne: viel Erfolg und alles Gute aus dem kalten, verregneten Eppenrod, euer/ihr...

Frederic Ch.Reuter

 

Hallo Frederic,

Deine Ausführungen sind ja grundsätzlich richtig - haben aber mit diesem Problem nichts zu tun. Denn der User benutzt ein Objekt, dem ein neues Tabellenblatt zugewiesen wird! Dabei spielt der Name keine Rolle mehr für das weitere vorgehen - den Namen braucht man also nicht.

Schau Dir als Beispiel mal diesen Code dazu an:

Code:

Sub Tabellenblatt_neu()

Dim Tabelle As Worksheet

Set Tabelle = Sheets.Add(Type:=xlWorksheet)

With Tabelle
    .Cells(1, 1) = "Das neue Tabellenblatt heißt:"
    .Cells(2, 1) = .Name
    .Range("A1").Font.Bold = True
    .Range("A2").Font.Bold = True
End With

Set Tabelle = Nothing

End Sub

Das habe ich nur mal zu Demozwecken so angelegt. Du kannst mit "Tabelle" alles machen, was Di willst bzw. was natürlich mit dme Objekt geht. Dazu benötigst Du den Namen nicht mehr...

Mir ist nur aufgefallen - um auf das ursprüngliche Problem zurückzukommen - der Name "Sheets2" wird nicht funktionieren - da wird Excel meckern, da Sheets bereits ein vordefinierter Name ist...Also einfach das Objekt umbenennen...

 

DANKE - das war nicht nur ausgesprochen "nett", sondern wirklich lehrreich - DANKE!