Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

auf zuletzt eingefügtes Blatt referenzieren

auf zuletzt eingefügtes Blatt referenzieren
14.12.2016 08:51:54
Julia
Hallo,
kann mir jemand sagen, wie ich es mache, dass er nicht das Tabellenblatt 'B (2)' nimmt sondern immer das zuletzt eingefügte Tabellenblatt?
Wäre toll wenn mir da jemand weiterhelfen könnte?
Danke
Gruss
Julia
Sub TEST()
Range("L16").Select
ActiveCell.FormulaR1C1 = "='B (2)'!R[-11]C[2]"
Range("L16").Select
Selection.AutoFill Destination:=Range("L16:NN16"), Type:=xlFillDefault
Range("L16:NN16").Select
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: auf zuletzt eingefügtes Blatt referenzieren
16.12.2016 15:20:30
Michael
Hallo Julia!
immer das zuletzt eingefügte Tabellenblatt?
Das kommt aber auch darauf an, wie dieses Blatt eingefügt wurde. Fügst Du Blätter manuell hinzu, zB über das Symbol im Tabellenblatt-Reiter, wird das jeweilige Blatt am Ende, d.h. hinter das zuvor letzte Tabellenblatt, hinzugefügt; fügst Du Blätter per VBA hinzu wird das Blatt aber standardmäßig VOR das zuvor erste Tabellenblatt hinzugefügt, außer Du verwendest einen entsprechenden Parameter (before:= bzw. after:=).
Prinzipiell kannst Du Dir den Namen von Tabellenblättern zB so in Deine Formel holen, hier für das "letzte" Blatt, also jenes, das in der Tabellenblattreihenfolge am weitesten rechts steht:
ActiveCell.FormulaR1C1 = "='" & Sheets(Sheets.Count).Name & "'!R[-11]C[2]"
Oder analog so für das "erste", also das Blatt in der Reihenfolge ganz links:
ActiveCell.FormulaR1C1 = "='" & Sheets(1).Name & "'!R[-11]C[2]"
LG
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige