Auf dem Eingabeblatt soll auf den Berechnungsblättern eine Auswahl umgestellt werden Excel
In einer Exceltabelle mit mehreren Blättern gibt es ein Dateneingabeblatt.
In den einzelnen Blättern wird anhand der Eingaben auf allen Blättern (Tabellen) eine Berechnung ausgeführt.
Nun soll es aber möglich sein, auf einem einzelnen Blatt die Berechnung mit eigenen Eingabedaten durchzuführen.
Dazu gibt es auf jedem Blatt die Zelle B9 mit dem Wert "Eigen" oder "Eingabeblatt". Diese Auswahl wird über Daten / Datenüberprüfung / Zulassen Liste vorgegeben.
Bis hierher funktioniert alles wie gewollt.
Nun gibt es aber folgendes Problem.
Wie kann auf dem Tabellenblatt Eingabeblatt für die Dateneingabe auf allen Blättern die Auswahl von "Eigen" (für eigene Dateneingabe auf diesem Tabellenblatt) auf "Eingabeblatt" für die Datenübernahme vom Eingabeblatt umgestellt werden?
Bitte um Hilfe
Danke im voraus
Gerry
In den einzelnen Blättern wird anhand der Eingaben auf allen Blättern (Tabellen) eine Berechnung ausgeführt.
Nun soll es aber möglich sein, auf einem einzelnen Blatt die Berechnung mit eigenen Eingabedaten durchzuführen.
Dazu gibt es auf jedem Blatt die Zelle B9 mit dem Wert "Eigen" oder "Eingabeblatt". Diese Auswahl wird über Daten / Datenüberprüfung / Zulassen Liste vorgegeben.
Bis hierher funktioniert alles wie gewollt.
Nun gibt es aber folgendes Problem.
Wie kann auf dem Tabellenblatt Eingabeblatt für die Dateneingabe auf allen Blättern die Auswahl von "Eigen" (für eigene Dateneingabe auf diesem Tabellenblatt) auf "Eingabeblatt" für die Datenübernahme vom Eingabeblatt umgestellt werden?
Bitte um Hilfe
Danke im voraus
Gerry
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 671397
Url: https://administrator.de/forum/auf-dem-eingabeblatt-soll-auf-den-berechnungsblaettern-eine-auswahl-umgestellt-werden-excel-671397.html
Ausgedruckt am: 19.02.2025 um 21:02 Uhr
4 Kommentare
Neuester Kommentar
Wie kann auf dem Tabellenblatt Eingabeblatt für die Dateneingabe auf allen Blättern die Auswahl von "Eigen" (für eigene Dateneingabe auf diesem Tabellenblatt) auf "Eingabeblatt" für die Datenübernahme vom Eingabeblatt umgestellt werden?
Sub ChangeValueOnAllSheets()
Dim ws as Worksheet
for each ws in Sheets
ws.Range("B9").Value = "Eingabeblatt"
Next
End Sub