Datumsfelder verknüpfen !

Computer: Software & Programmierung Office Software
1

Hallo nochmal,
mein zweites Problem ,ich möchte Datumsfelder mit einer Tabelle verknüpfen.
Ich möchte ein Formular in einer Tabelle erstellen und zwar mit folgenden Feldern.

  1. Datum( mit =heute ) formatiert
  2. Zählerstand

Wenn ich jetzt das Formular aufrufe ist das aktuelle Datum voreingetragen und ich kann daneben den Zählerstand eingeben.

Wie kann ich dieses Formular mit einer vorher angelegten Tabelle mit genau diesen beiden Feldern( Datum + Zählerstand) miteinander verküpfen?

Bei Bedarf kann ich die Exceltabelle per Mail senden

Danke für eure Hilfe

Peter

2

Hi Peter,
was genau meinst du mit
…Wie kann ich dieses Formular mit einer vorher angelegten
Tabelle mit genau diesen beiden Feldern( Datum + Zählerstand)
miteinander verküpfen?..
Gruß
Reinhard

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Ich möchte ein Formular in einer Tabelle erstellen und zwar
mit folgenden Feldern.

  1. Datum( mit =heute ) formatiert
  2. Zählerstand
    Wenn ich jetzt das Formular aufrufe ist das aktuelle Datum
    voreingetragen und ich kann daneben den Zählerstand eingeben.
    Wie kann ich dieses Formular mit einer vorher angelegten
    Tabelle mit genau diesen beiden Feldern( Datum + Zählerstand)
    miteinander verküpfen?

Hi Peter,
Du hast so eine Tabelle:

 A B C D E F G H I J 
1
2 
3 Datum Wert Datum Wert Datum Wert
4 1.1 4,5 1.2 6,89 1.3 8,9 
5 2.1 1,76 2.2 5,5 2.3 12
6 usw.
7

In deiner Beispieltabelle ist die Formel „=heute“ in Zelle „K8“, der eingebene Wert in „M8“. Dies musst du noch anpassen.
Sobald sich in „M8“ der Wert ändert reagiert das Makro und berechnet sich aus dem Monat die Spalte und aus dem tag die zeile, in diese berechnete Zelle wird dann der eingebene Wert eingegeben.
Zur Codeeingabe, Rechtsklick unten auf den Blattnamen, Linksklick auf „Code anzeigen“, Makrocode reinkopieren, anpassen, Editor schliessen.
Der Code:

Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Address(0, 0) "M8" Then Exit Sub
sp = Month(Range("K8")) \* 3 - 1 'Berechnung der Spalte aus dem Monat des Eingabedatums
zei = Day(Range("k8")) + 3 'Berechnung der Zeile aus dem Tag des Eingabedatums
Cells(zei, sp) = Range("M8") 'Wert wird übernommen
End Sub

Gruß
Reinhard