Office: Tabellenblatt mit VBA suchen und umbenennen

Hallo zusammen

Ich suche im Moment nach einer VBA Formel mit welcher Ich nach dem Namen eines bestimmten Tabellenblattes suchen und es dann umbenennen kann.

Also sowas in der Art wie

if Activesheets.name = "x"
then set.activesheet.name = "y"

Bin halt nicht gerade ein Spezialist auf dem Gebiet und deshalb dankbar für jede Hilfe.

Gruss Fabian

:)

 

Hallo Fabian,

wenn du den Namen der Arbeitsmappe kennst:

Gruß Ingolf

 

Moin Fabian,

auch wenn es keine VBA-Formel (in dem Sinne) gibt, hier eine Sub (Prozedur) *wink.gif*
Code:

 

Hallo Zusammen

Danke für eure Antworten.

Mir gefällt die Variante von Ingolf besser, da sie einfacher und schlichter ist.

Nun habe ich aber noch ein weiteres Problem. Wenn ich nun ein Tabellenblatt wieder löschen möchte, wie müsste ich die Formel setzen um den Namen aus einer Excel Zelle zu ziehen?

habe Im Moment folgende Ausgangslage:

Code:

Hier möchte ich dass Excel den Wert "Range(Cells(4, Listbox1.ListIndex))" liest und anhand des dortigen Namens das entsprechende Tabellenblatt löscht.

Gibt es dafür eine einfache Lösung?

Danke nochmals für eure Hilfe *Smilie

 

Hallo Fabian,

folgender Code setzt voraus, dass

1. die Listbox sich auf einem Tabellenblatt befindet, nicht auf einem Userformular.
2. der Code sich im Klassenmodul ebendieses Tabellenblattes befindet.
3. das zu löschende Tabellenblatt sich in der gleichen Arbeitsmappe befindet.

Code:

Ansonsten müsste sowohl die Listbox als auch das zu löschende Tabellenblatt vollständig referenziert werden. Übrigens: Keine Umlaute in Prozedurnamen, Variablennamen, ...

Wie du siehst, habe ich im Code das ö im Prozedurnamen durch ein oe ersetzt.

Gruß Ingolf