Clever-Excel-Forum

Seiten: 1 2

Guten Abend zusammen,

bisher habe ich als Leser hier in diesem Forum alles gefunden um weiter zu kommen.
Jetzt allerdings habe ich ein Problem und ich wüsste noch nicht einmal, wonach ich hier im Forum explizit suchen müsste um eine Lösung zu finden. Mein Problem hat irgendwie noch nicht mal einen "Namen".

Ich habe ein täglich auszufüllendes (und zu druckendes) Stammblatt (auch gleich Blattname).
In diesem Stammblatt in Zelle AJ11 kann via Dropdown ein Wert ausgewählt werden (ganze Zahlen oder Dezimalzahlen).

Nun habe ich Blatt names Verlaufliste. In diesem Blatt befindet sich in Spalte A fortlaufend ein Tages-Datum (immer plus 1 Tag ab Anlagedatum des Stammblatts für insgesamt 35 Tage).
In Spalte B möchte ich nun pro Tag den Wert aus AJ11 aus dem Blatt Stammblatt übernommen haben.

Beispiel:
Ich trage heute in Zelle AJ11 per Dropdown den Wert 105,50 ein.
Dann soll in Blatt Verlaufsliste beim passenden Datum (10.03.17 in Spalte A) der Wert 105,50 in Spalte B automatisch übernommen werden.
Aber:
Trage ich morgen in AJ11 per Dropdown den Wert 99,99 ein, soll im Blatt Verlaufsliste bei Datum 11.03.17 (in Spalte A) der Wert 99,90 in Spalte B übernommen werden, OHNE das er den Wert vom 10.03.17 wieder überschreibt/löscht/ändert. Der soll bestehen bleiben.

Das gleiche Spiel dann übermorgen. Ich trage in AJ11 = 66,60 ein. Und mein Blatt Verlaufliste hat dann stehen:
SPALTE A SPALTE B
10.03.2017    105,50
11.03.2017       99,90
12.03.2017    66,60

Per Gültigkeitsregel unterbinde ich dann, dass die Werte aus Spalte B im Blatt Verlaufsliste geändert werden können.

Ich hoffe, dass ich mich einigermaßen verständlich ausdrücken konnte und würde mich freuen, wenn ich Hilfe erhalten könnte.

Bis dahin wünsche ich einen schönen Abend!

Viele Grüße
Sandro

Hallo,

theoretisch könnte es so gehen:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

  Dim x

  If Target.Address(0, 0) = "AJ11" Then

    If Target <> "" Then

      With Sheets("Verlaufsliste")

        x = Application.Match(CLng(Date), .Columns("A"), 0)

        If IsNumeric(x) Then

          If .Cells(x, 2) = "" Then

            .Cells(x, 2) = Target.Value

          Else

            MsgBox "Für das heutige Datum wurde schon ein Wert eingetragen!"

          End If

        Else

          MsgBox "Das heutige Datum wurde in Verlaufsliste nicht gefunden!"

        End If

      End With

    End If

  End If

End Sub

Hallo atilla,

vielen Dank für Deine Hilfe.

Ich glaube ich habe mich unverständlich ausgedrückt.

Mir geht es nicht um die Meldung die dann erscheinen soll.

Ich kriege es nicht hin, dass der Wert aus Zelle AJ11 des Blattes Stammblatt täglich in das passende Datumsfeld von Blatt Verlaufsliste eingetragen wird. Tages-Datum in Blatt Verlaufsliste A5:A37 und der tägliche Wert aus Stammblatt!AJ11 soll in Verlaufsliste!B5:A37 (je nach Tag) eingetragen werden.

In AJ11 wird jeden Tag ein Zahlenwert eingetragen. Dieser Zahlenwert soll auf das Blatt Verlaufsliste automatisch chronologisch übernommen und nicht am nächsten Tag überschrieben werden.

Viele Grüße
Sandro

Moin!
Anders herum wird ein Schuh draus, ganz ohne VBA.
In "Verlaufsliste" befindet sich eine formatierte Tabelle, die manuell weitergeführt wird:
Verlaufliste

	A	B
1	Datum	Wert
2	10.03.2017	324,86 €
3	13.03.2017	821,74 €
4	14.03.2017	263,18 €
5	15.03.2017	188,50 €
6	16.03.2017	989,31 €
7	17.03.2017	339,27 €
8	20.03.2017	969,85 €
9	21.03.2017	439,70 €
10	22.03.2017	165,55 €
11	23.03.2017	449,58 €
12	24.03.2017	132,87 €
13	27.03.2017	323,63 €
14	28.03.2017	452,32 €
15	29.03.2017	756,60 €
16	30.03.2017	555,55 €

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Dein "Stammblatt" dient ja wohl "nur" zum Ausdruck.
B1 ist eine Datengültigkeit, B3 eine einfache Formel, die auf die strukturierten Verweise der Verlaufsliste zugreift.
Wenn die Verlaufsliste erweitert wird, erkennt die Datengültigkeit automatisch den erweiterten Bereich.

Stammblatt

	A	B
1	Datum	17.03.2017
2
3	Wert	339,27 €

Formeln der Tabelle

Zelle	Formel
B3	=WENNFEHLER(INDEX(Tabelle1[Wert];VERGLEICH(B1;Tabelle1[Datum];0));"")

Namen in Formeln

Zelle	Name	Bezieht sich auf
B3	Datum	=Tabelle1[Datum]

Datengültigkeit der Tabelle

Zelle	Zulassen	Daten	Eingabe 1	Eingabe 2
B1	Liste		=Datum

Namen in Formeln

Zelle	Name	Bezieht sich auf
B1	Datum	=Tabelle1[Datum]

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

(ich habe meine Testdatei mal angehängt)

Gruß Ralf

Hi Ralf,

die Liste ist sortiert, da würde in Stammblatt!B3

Code:
=VERWEIS($B$1;Verlaufliste!A:B)

reichen.

Moin Günter! :19:
Ja, schon klar!
Da ich aber davon ausgehe, dass die "richtige" Tabelle weitaus mehr Einträge als Datum (ist es in der Realität sortiert?) und Wert besitzt und ich den tatsächlichen Tabellenaufbau nicht kenne, habe ich mich mal "vorsorglich" für die eierlegende Wollmilchsau entschieden, die immer funktioniert. ;)

Gruß Ralf

Hi Ralf,

Zitat:Da ich aber davon ausgehe, dass die "richtige" Tabelle weitaus mehr Einträge als Datum (ist es in der Realität sortiert?) und Wert besitzt[...]

meinst du wirklich, dass die Fragesteller uns so etwas wie den realen Dateiaufbau verschweigen? Kann ich mir nicht vorstellen. Wo Spalte A und Spalte B draufsteht, darf doch auch (nur) Spalte A und Spalte B drin sein. Oder?

:89: :05:

:30:
Hast Recht, so was kommt gar nie nicht niemals vor …

Gruß Ralf

Hallo Ralf,

recht herzlichen Dank für Deine Mühe!
Ich kläre das einmal ab....denn irgendwie ist das schon logisch mit dem "Schuh" :)
In der Verlaufsliste werden, soweit ich weiß, noch andere Daten eingetragen, die nicht auf dem Stammblatt erscheinen.
Würde aktuell für mich mehr Sinn machen, es so zu machen wie es in Deiner Beispieldatei ist.

Viele Grüße
Sandro

Hallo

anbei eine Beispieldatei. Wenn ich die Aufgabe richtig verstanden habe einfach Button drücken - Fertig

mgf Gast 123

Seiten: 1 2

Sandro

atilla

Sandro

RPP63

WillWissen

RPP63

WillWissen

RPP63

Sandro

Gast 123