Tabellenblatt mit Datum aus Zelle benennen

Hallo Claus,

der Wert, welcher kopiert werden soll ist rein numerisch ohne Datumsbezug, befindet sich in Tabellenblatt "Tageswert" an der Stelle B2 und wird einmal täglich um 23.59 Uhr automatisch geändert.

Das Datum befindet sich in einer Spalte B des Tabellenblattes "Test". Im selben Tabellenblatt soll dann in Spalte F in der Zeile, in welcher sich das heutige Datum befindet der Wert aus dem Tabellenblatt "Tageswert" kopiert werden.

Hallo Claus,

das "d" kommt aus der Deklaration des Pfades des Tabellenblattes:

Const d = "G:\ABC\7 DEF\04 GHI\xyz\TB 2018\"

In diesem Tabellenblatt soll aus 2 Werten die Differenz ermittelt und das Ergebnis in einem anderen Tabellenblatt eingetragen werden. Bisher sollte der Wert einer Zelle (hier C27) ausgelesen und in eine Zelle eines anderen Tabellenblattes (2018 aktuell.xlsm,
Register Tabelle1) kopiert werden:

Sub getValueFebruar()

Dim c As Range

Dim Datum As Date

Dim myFormula1 As String

Const d = "G:\ABC\7 DEF\04 GHI\xyz\TB 2018\"

Datum = Date

i = 1

Tag = Format(Day(Date - i), "00")

myFormula1 = "'" & d & "[02_FebTB.xlsx]" & Tag & "'!$C$27"

With Workbooks("2018 aktuell.xlsm").Sheets("Tabelle1")

Set c = .Range("B:B").Find(Datum - i, LookIn:=xlFormulas)

If Not c Is Nothing Then

With c.Offset(, 4) ' ist Spalte F

.Formula = "=" & myFormula1

.Value = .Value

End With

End If

End With

End Sub

Freundliche Grüße

Heiko

Hallo,

wenn es um das Wechseln auf andere Blätter geht, könntest Du auch Zellen benennen und diese dann über das Namenfeld auswählen. Du sparst Dir die Programmierung, kannst leicht neue Blätter ergänzen und brauchst keine Steuerelemente.

Ansonsten könntest Du auch das Ereignis Worksheet_SelectionChange nutzen um den Wert aus einem Dropdown abzufragen und diesen dann in einem kleinen Makro mit dem Aufruf eines Tabellenblatt verbinden.

Die Werte für das Datengültigkeitsfeld kannst Du dann ganz normal über die Datenprüfung eingeben.

Beste Grüße

Andreas

Hallo,



wie heißt Dein Tabellenblatt, auf dem sich die Pivottabelle befindet?

Ich habe es hier Pivot! genannt. Du müsstest dies auch noch benennen.



Beste Grüße

Andreas

Soweit mir bekannt ist, gibt es keine Funktion, die automatisch einen Hyperlink öffnet und den Inhalt einer bestimmten Zelle des verlinkten Tabellenblattes abruft und kopiert. Sie können jedoch den Inhalt einer bestimmten Zelle eines anderen Tabellenblattes mithilfe einer Formel wie “=Tabelle2!A1“ abrufen, wobei “Tabelle2“ der Name des anderen Tabellenblattes und `A1` die Zelle ist, deren Inhalt Sie abrufen möchten.

Es ist aber möglich, mit VBA-Code einen Hyperlink zu öffnen und den Inhalt einer bestimmten Zelle des verlinkten Tabellenblattes abzurufen und zu kopieren. Um den Inhalt einer bestimmten Zelle des verlinkten Tabellenblattes abzurufen und zu kopieren, können Sie eine benutzerdefinierte VBA-Funktion erstellen.
Hier ist ein Beispiel für eine solche Funktion:

Function
ZellenwertAbrufen(TabellenblattName As String, ZellenAdresse As String) As Variant
' Diese Funktion gibt den Wert einer Zelle in einem bestimmten Tabellenblatt zurück
ZellenwertAbrufen = Worksheets(TabellenblattName).Range(ZellenAdresse).Value
End Function

Diese Funktion nimmt den Namen des Tabellenblattes und die Adresse der Zelle als Eingabe und gibt den Wert der Zelle zurück. Sie können diese Funktion dann in einer Formel verwenden, um den Wert der Zelle abzurufen und in eine andere Zelle zu kopieren.
Sie können dann die folgende Formel in einer Zelle des Übersichtstabellenblattes eingeben, um den Wert von Zelle A1 von Tabelle2 abzurufen (beispiel):

=ZellenwertAbrufen("Tabelle2", "A1")

Diese Formel ruft die benutzerdefinierte VBA-Funktion `ZellenwertAbrufen` auf und gibt den Namen des Tabellenblattes ("Tabelle2") und die Adresse der Zelle ("A1") als Eingabe an. Die Funktion gibt dann den Wert von Zelle A1 von Tabelle2 zurück, der in der Zelle des Übersichtstabellenblattes angezeigt wird, in der Sie die Formel eingegeben haben.

Zuerst sollte die benutzerdefinierte VBA-Funktion in Ihrem Excel-Dokument erstellt werden, bevor Sie diese in einer Formel wie oben verwenden können.