Problem mit VBA Code

Question

Hallo,

jetzt habe ich doch tatsächlich noch ein Problem und zwar funktinoiert folgender Code nicht

CommandButton93.Caption = ActiveSheet.Range("an1").Range("ac35").Text

ein paar Erklärungen dazu, in Zelle an1 wird der Name der Sheets aus zwei Zellen erstellt, wird dann mit folgenden Code angewendet

ActiveSheet.Name = Range("an1").Text

wenn ich den Namen des Sheets direkt ( siehe Code unten ) angebe kommt folgende Meldung
" Index außerhalb des gültigen Bereichs "

CommandButton93.Caption = Sheets("Quartal I 2010").Range("ac35").Text

muß aber dazu sagen wenn ich den Code " ActiveSheet.Name = Range("an1").Text " deaktiviere und dem Sheet den Namen direkt gebe funktioniert das ganze mit den Code
" CommandButton93.Caption = Sheets("Quartal I 2010").Range("ac35").Text "

hoffe doch das es dafür eine lösung gibt.

gruß
Achim

Answer 1

Halo Achim,

aus Deiner Beschreiubung werde ih nicht schalu. Geht es nun um den Namen der Tabelle oder die Beschriftung eines Schalter oder um noch wa ganz anderes?

Gruß Hajo

Answer 2

Hallo Hajo,

sorry hab mich doch ein wenig unklar ausgedrückt, so jetzt noch einmal ein wenig einfacher, hoffe ich zumindest.

Der folgende Code funktioniert so weit, nur eben mit den festen Bezug " Quartal I 2010 " zu einen Sheet

Sheets("Quartal I 2010").CommandButton1.Caption = Sheets("Quartal I 2010").Range("c5").text

was ich erreichen möchte ist das der feste Bezug aus einer Zelle von den aktiven Sheet ,steht in einer Zelle, ausgelesen wird.

grüße
Achim

Answer 3

Hallo Achim,

was möchtest Du auslesen? Den Tabellennamen?
Sheets(Range("A1")).CommandButton1.Caption = Sheets("Quartal I 2010").Range("c5").text

Gruß Hajo

Answer 4

Hallo Hajo,

ja ich möchte den Tabellennamen in den Code mit einbauen, ich hab ihn ja drin aber eben als festen Bezug ( Quartal I 2010 ) und da er sich ändern kann möchte ich ihn eben aus einer zelle auslessen lassen, steht in Zelle an1

Bei deinen Code kommt leider die Fehlermeldung:
Laufzeitfehler Typen unverträglich

grüße
Achim

Answer 5

Hallo Achim,

ich sehe nicht Deine Datei. Die Tabelle mt dem Namen in Zelle A1 der aktiven Tabelle ist schon vorhanden?
Ich vermute mal, der Fehler kommt bei Deinem Code auch.

Gruß Hajo

Answer 6

Hallo Hajo,

ja die Tabelle mit den Namen in der Zelle A1 ist schon vorhanden und bei den Code von mir kommt eben keine Fehlermeldung, es werden alle Button ( 92 stck. ) beschriftet, das Problem ist eben das sich der Tabellennamen änden kann, deshalb wollte ich den Tabellennamen aus der Zelle A1 in den Code einfügen.

Gruß
Achim

Answer 7

Hallo Hajo,

habe nun einen andern Code verwendet, mit den funktioniert das so wie ich es gerne möchte.

CommandButton1.Caption = ActiveSheet.Range("c5").text


vielen dank für deine Hilfe, wünsche dir noch einen schönen Sonntagabend.


grüße
Achim