Excel - Formel Arbeitsblatt aktualisiere

Forumthread: Excel - Formel Arbeitsblatt aktualisiere

29.07.2021 15:19:29

Laila

Hallo liebe Profis,
folgendes Problem:
Ich habe eine Excel-Datei, in der in Registerblatt 1 eine Tabelle ist. Ist Registerblatt "Auswertung" wird diese Tabelle mit diversen Formeln und Bezügen zu Registerblatt 1 ausgewertet.
Diese Auswertung soll zukünftig als Vorlage dienen und in verschiedenen Tabellen eingesetzt werden, bei der Registerblatt 1 aber immer einen anderen Namen hat. Über Verknüpfung aktualisieren kann man ja eine neue Datei auswählen und so die Formeln aktualisieren. Ist das irgendwie auch in einer Tabelle möglich, dass ich den Bezug der Formeln zu Registerblatt 1 mit einem Klick anpasse? Gerne auch als Makro.
Hab ich mich verständlich ausgedrückt?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Excel - Formel Arbeitsblatt aktualisiere

29.07.2021 15:47:54

Yal

Hallo Laila,
wenn deine "Tabelle" im Blatt 1 eine Datentabelle (sog. "intelligente Tabelle") ist, dann kann in alle Dateien auf deren Tabellenname verwiesen werden, egal welche Name das Blatt hat. Es ist in dem Fall wie eine benannte Bereich.
Auswertung könnte auch mit Pivottaelle gemacht werden. Dann ist das Wechseln der Quelle leichter.
Wenn Du eine Beispieldatei hochlädst, könnte man diese Fall prüfen/ergänzen.
VG
Yal

AW: Excel - Formel Arbeitsblatt aktualisiere

29.07.2021 15:54:13

Laila

Hallo Yal,
danke für die Info - aber es natürlich keine intelligente Tabelle - es ist eine konsolidierte Tabelle/ Liste. Die Auswertung über Pivot führt nicht zum gewünschten Ergebnis, da die Ausgangsdaten nicht wie erforderlich eingetragen werden. :/

AW: Excel - Formel Arbeitsblatt aktualisiere

29.07.2021 16:39:29

Yal

Hallo Laila,
natürlich kann man mit VBA vieles erreichen, aber es ist von weitem kein Sauberstab, das Gedanken lesen kann. Und noch weniger etwas, was sich von selbst an einem geänderten Sachlage anpasst.
Versuche dein Glück mit:


Sub Formel_ändern(BlattName_alt As String, Blattname_neu As String)
Dim Z As Range
Dim ErsteTreffer As String
Dim HK As String
Const cHK = "'"
Set Z = ActiveSheet.Cells.Find(What:=BlattName_alt, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not Z Is Nothing Then ErsteTreffer = Z.Address
If InStr(1, Z.FormulaLocal, BlattName_alt & "'!") Then HK = cHK   'alte Blattname ist zwischen Hochkommas
Do While Z Is Nothing
Z.FormulaLocal = Replace(Z.FormulaLocal, HK & BlattName_alt & HK & "!", cHK & Blattname_neu & cHK & "!")
Set Z = ActiveSheet.Cells.FindNext(After:=ActiveCell)
If Z.Address = ErsteTreffer Then Exit Sub
Loop
End Sub

(ungetestet. Auf eine Kopie arbeiten)
Die Ausgangsdaten (in dem Fall eher die Eingangsdaten) in einer Form zu bringen, die das gesamte pivottabellentauglich macht, wäre sicher auf langere Sicht das kostengünstigste. Wäre es nur wegen dem Vorzeige-Effekt "So arbeitet man g'scheid". Natürlich werden viele dagegen meckern, aber eine Name macht man sich nicht, in dem man seine Beitrag unsichtbar macht. ;-)
VG
Yal

Beliebteste Forumthreads (12 Monate)

Excel - Formel Arbeitsblatt aktualisiere

Forumthread: Excel - Formel Arbeitsblatt aktualisiere

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread