Office: Tabelle variabel in VBA einbauen

Hallo zusammen,

folgendes Problem kann ich mit meinen spärlichen VBA-Kenntnissen nicht lösen:
Meine Arbeitsmappe besteht aus mindestens drei Tabellenblättern. Eines davon heißt "50000", eines "50001".
Blatt "50001" ist für meine Frage uninteressant. Ich habe es nur der Vollständigkeit halber erwähnt.
Blatt "50000" ist eine Art Mustertabelle, aus der Bereiche kopiert werden sollen.
Das dritte Tabellenblatt, sowie alle möglichen weiteren Tabellenblätter werden automatisch entsprechend ihrem Eintrag in der jeweiligen Zelle "H3" benannt. Im Laufe der Bearbeitung durch den Sachbearbeiter sollen nun Bereiche aus dem Tabellenblatt "50000" per Schaltfläche in das jeweils aktive (und nach Zelle "H3" benannte) Blatt kopiert werden.
Blatt "50000" dafür zu benennen ist kein Problem. Wenn das aktive Blatt unmittelbar davor oder dahinter liegt habe ich auch kein Problem. Die Reihenfolge der Blätter kann aber variieren, so dass ich nicht das vorherige oder nachfolgende Blatt angeben kann.

Gibt es die Möglichkeit, den Code so zu ändern, dass ich nicht einen festen Tabellennamen eintrage, sondern ihn ebenfalls in Abhängigkeit der Zelle "H3" des jeweils aktiven Tabellenblattes bringe?

Im voraus bedanke ich mich schon einmal.

Beste Grüße
Christian

 

Hi Christian,

so richtig verstehe ich nicht was du da machen willst. Vielleicht kannst du ja mal eine abgespeckte Version deiner Mappe mit ein paar wenigen (anonymisierten) Daten/Tabellenblättern hochladen.

Bis später,
Karin

 

Hallo Karin,
das geht leider nicht, da zerhacke ich die Datei mit.

Ich versuche es noch einmal mit anderen Worten:

Ich habe eine Date mit einer beliebigen Anzahl an Tabellenblättern, die ihren eigenen Namen aus der eigenen Zelle "H3" beziehen. Sollte in Zelle "H3" also "X" stehen, so heißt auch das eine Tabellenblatt so. Jedes dieser Tabellenblätter mit dem potenziellen Namen "X" beinhaltet eine Schaltfläche, die einen Code startet, mit dem Daten aus dem Tabellenblatt "50000" in genau das Tabellenblatt kopiert werden, in dem sich die Schaltfläche befindet.

Mein Problem ist nun in dem Code klarzustellen, welches Tabellenblatt das ist (weil ja der Name des Tabellenblattes durch den Zellbezug variabel ist).

Vielleicht war das verständlicher. Wenn nicht, versuche ich es gerne noch einmal anders. :)

Beste Grüße

Christian

 

Hi Chsitian,

benutze in deinem Code ActiveSheet.Name

Bis später,
Karin

 

Moinsens!

Beverly hat es schon erwähnt: "Activesheet" ist hier wahrscheinlich Dein Freund, obwohl Du nach Deiner Beschreibung mindestens eine weitere Möglichkeit hast.

Grundlegend willst du ja Bereiche von einem auf ein anderes Blatt kopieren. Das wäre dann z.B.

Code:

ws1.Range(Bereich1).copy destination:= ws2.Range(Bereich2)

Bereich1 und Bereich2 sollten klar sein: Der Bereich auf Blatt "50000", der kopiert werden soll und der Bereich auf dem aktuellen Blatt, in den das eingefügt werden soll. Bei mehreren Bereichen hast Du entsprechend mehrere solcher Zeilen. (Der Zielbereich kann dabei auch nur aus der linken oberen Zelle bestehen, muß nicht genau so groß wie der Quellbereich sein.)

Der springende Punkt sind die Variablen ws1 und ws2: Die repräsentieren die Blätter und werden deklariert als

Code:

Dim ws1 as Worksheet
Dim ws2 as Worksheet

Und jetzt mußt du nur noch sagen, welche Blätter es sind. Beim 1. ist es einfach, da der Name "50000" bekannt ist. Beim 2. kannst Du Activesheet benutzen. Alternativ kannst Du auch Zelle H3 auslesen, was ich aber nicht empfehlen würde.

Code:

Set ws1 = Worksheets("50000")
Set ws2 = Activesheet

Es ginge auch:

Code:

Set ws2 = Worksheets(Activesheet.Name)

oder

Code:

Set ws2 = Worksheets(Range("H3").Value)

Als Beispiel mal alles zusammen könnte es so aussehen:

Code:

Private Sub Kopieren()

    Dim ws1 as Worksheet
    Dim ws2 as Worksheet

    Set ws1 = Worksheets("50000")
    Set ws2 = Activesheet

    ws1.Range("C3:E5").Copy destination:= ws2.Range("G7")

End Sub

Gruß, Michael