michael1306
Goto Top

In Excel das Datum aus einer Registerlasche in einer Formel verwenden

Hallo zusammen,

ich habe eine Excel Tabelle mit vielen Registerlaschen. Die Registerlaschen habe ich alle mit einem Datum versehen. Meine Frage ist nun ob es eine Möglichkeit gibt, dass Datum das ich in einer Registerlasche eingetragen habe in einer Formel zu verwenden damit ich nicht immer das Datum auch im Formular verändern muss sondern das eben über eine Formel geht und ich das Datum nur noch in der Registerlasche ändern muss?

Vielleicht kann mir ja jemand helfen.

Danke schon im Voraus

Gruß
Michael

Content-Key: 317452

Url: https://administrator.de/contentid/317452

Printed on: April 18, 2024 at 15:04 o'clock

Member: Pjordorf
Solution Pjordorf Oct 11, 2016 at 11:57:52 (UTC)
Goto Top
Hallo,

Zitat von @michael1306:
Meine Frage ist nun ob es eine Möglichkeit gibt, dass Datum das ich in einer Registerlasche eingetragen habe in einer Formel zu verwenden
Ja.
https://www.extendoffice.com/documents/excel/2618-excel-reference-tab-na ...

Gruß,
Peter
Member: emeriks
Solution emeriks Oct 11, 2016 updated at 12:03:31 (UTC)
Goto Top
Hi,
das geht mit VBA.

1. VBA öffnen (im Excel Alt+F11)
2. Neues Modul erstellen
3. Im Modul eine Public Function erstellen
Public Function ActiveSheetName() As String
  ActiveSheetName = Application.ActiveSheet.Name
End Function
4. In der Tabelle im Feld als Formel einrtagen
=ActiveSheetName()

Edit:
activesheetname

E.
Mitglied: 131026
Solution 131026 Oct 11, 2016 updated at 12:04:00 (UTC)
Goto Top
Und ohne VBA:
=TEIL(ZELLE("dateiname";A1);FINDEN("]";ZELLE("dateiname";A1))+1;255)  
Gruß R.
Member: emeriks
Solution emeriks Oct 11, 2016 at 12:29:38 (UTC)
Goto Top
Cool. Geht aber erst, wenn die Datei gespeichert wurde.
Member: SeaStorm
Solution SeaStorm Oct 11, 2016 at 13:41:29 (UTC)
Goto Top
Public Function ActiveSheetName() As String
 Application.Volatile True
  ActiveSheetName = Application.ActiveSheet.Name
End Function

Application.Volatile True, damit bei Änderungen auch die Funktion erneut aufgerufen wird
Member: michael1306
michael1306 Oct 12, 2016 at 16:35:54 (UTC)
Goto Top
Super vielen Dank. Das hat geklappt. Ich habe noch eine Frage. Anbei einmal die Formel wie sie funktioniert aber umständlich ist.

='17.06.16'!B2+'01.07.16'!F8

Ich hole mir aus einer Registerlasche einen Wert und addiere diesen mit einem anderen Wert. Wie kann ich das mit dieser Formel umsetzen?

=TEIL(ZELLE("dateiname";A1);FINDEN("]";ZELLE("dateiname";A1))+1;255)
Member: emeriks
emeriks Oct 12, 2016 at 17:29:26 (UTC)
Goto Top
  1. Ich glaube, DAS geht wirklich nur über VBA.
  2. Wie soll das gehen? Beide Wege, der über VBA und der über die o.g. Formel liefern Dir den Namen des Blatts, in welchem die Zelle mit der Formel ist. In Deinem Bsp. "='17.06.16'!B2+'01.07.16'!F8" verweist Du aber auf zwei verschiedene Blätter. Du musst also so oder so die Blätter per Parameter angeben. Du gewinnst also nichts. Es sein denn, man kann das zweite Blatt vom aktuellen Blatt eindeutig ableiten (berechnen). Also z.B. das Vorgänger- oder Nachfolger-Blatt.