PDA

Vollständige Version anzeigen : Daten bei datum Speicher


fc1985
13.07.2006, 08:50
Hallo zusammen,
ich möchte mir eine Matrix aufbauen. in der ist in Spalte a das datum OIN SPALTE B sollen werte ünbertragen werden und in spalte c.
habe es bisher so wenn(a1=e1;´xxx d790;"") in e1 ist die formel heite() hinterlegt.
nun ist ja das probelm das die daten von gestern nicht stehenbleiben also jedes mal wieder verschwinden. hätte es gern so wie bei diesem code fürs datum

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'**************************************************
'* H. Ziplies *
'* 13.06.03 *
'* erstellt von Hajo.Ziplies@web.de *
'* http://home.media-n.de/ziplies/ *
'**************************************************
' wird im definierten Bereich ein Wert geändert, wird in der nächsten Spalte das Datum eingetragen
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("B3:B20, D1:D7")
' ActiveSheet.Unprotect
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, -1) = Date
Next RaZelle
' ActiveSheet.protect
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub


lieben gruß
FC

jinx
13.07.2006, 18:15
<font size="2" face="Century Gothic">Moin, fc1985,

und wie sieht das Problem in einer Arbeitsmappe aus?</font>

Hajo_Zi
13.07.2006, 18:40
Hallo Hans Bärbel <img src="http://smilie-land.de/t/i-l/lachen/lachen0048.gif">,

ich hätte das interpretiert, das dies ohne VBA lösbar ist.

<b>Tabelle1</b><br /><br /><table border=1 cellspacing=0 cellpadding=0 style="font-family:Arial,Arial; font-size:11pt; background-color:#ffffff; padding-left:2pt; padding-right:2pt; "> <colgroup><col width=30 style="font-weight:bold; " /><col width=88 /><col width=88 /><col width=88 /></colgroup><tr style="background-color:#cacaca; text-align:center; font-weight:bold; font-size:8pt; "><td >&nbsp;</td><td >A</td><td >B</td><td >C</td></tr><tr height=17px ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >1</td><td style="text-align:right; ">05. Jul</td><td >&nbsp;</td><td >xxx d790</td></tr><tr height=17px ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >2</td><td style="text-align:right; ">06. Jul</td><td >&nbsp;</td><td >xxx d790</td></tr><tr height=17px ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >3</td><td style="text-align:right; ">07. Jul</td><td >&nbsp;</td><td >xxx d790</td></tr><tr height=17px ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >4</td><td style="text-align:right; ">08. Jul</td><td >&nbsp;</td><td >xxx d790</td></tr><tr height=17px ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >5</td><td style="text-align:right; ">09. Jul</td><td >&nbsp;</td><td >xxx d790</td></tr><tr height=17px ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >6</td><td style="text-align:right; ">10. Jul</td><td >&nbsp;</td><td >xxx d790</td></tr><tr height=17px ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >7</td><td style="text-align:right; ">11. Jul</td><td >&nbsp;</td><td >xxx d790</td></tr><tr height=17px ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >8</td><td style="text-align:right; ">12. Jul</td><td >&nbsp;</td><td >xxx d790</td></tr><tr height=17px ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >9</td><td style="text-align:right; ">13. Jul</td><td >&nbsp;</td><td >xxx d790</td></tr><tr height=17px ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >10</td><td style="text-align:right; ">14. Jul</td><td >&nbsp;</td><td >&nbsp;</td></tr><tr height=17px ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >11</td><td style="text-align:right; ">15. Jul</td><td >&nbsp;</td><td >&nbsp;</td></tr><tr height=17px ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >12</td><td style="text-align:right; ">16. Jul</td><td >&nbsp;</td><td >&nbsp;</td></tr><tr height=17px ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >13</td><td style="text-align:right; ">17. Jul</td><td >&nbsp;</td><td >&nbsp;</td></tr><tr height=17px ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >14</td><td style="text-align:right; ">18. Jul</td><td >&nbsp;</td><td >&nbsp;</td></tr><tr height=17px ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >15</td><td style="text-align:right; ">19. Jul</td><td >&nbsp;</td><td >&nbsp;</td></tr><tr height=17px ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >16</td><td style="text-align:right; ">20. Jul</td><td >&nbsp;</td><td >&nbsp;</td></tr><tr height=17px ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >17</td><td style="text-align:right; ">21. Jul</td><td >&nbsp;</td><td >&nbsp;</td></tr></table><br /><table style="font-family:Arial; font-size:10pt; border-style: groove ;border-color:#00ff00;background-color:#fffcf9; color:#000000; "><tr><td ><b>Formeln der Tabelle</b></td></tr><tr><td ><table border = 1 cellspacing=0 cellpadding=2 style="font-family:Arial; font-size:9pt;"><tr style="background-color:#cacaca; font-size:10pt;"><td >Zelle</td><td >Formel</td></tr><tr><td >C1</td><td >=WENN(A1&lt;=HEUTE<span style=' color:008000; '>()</span>;"xxx d790";"")</td></tr><tr><td >C2</td><td >=WENN(A2&lt;=HEUTE<span style=' color:008000; '>()</span>;"xxx d790";"")</td></tr><tr><td >C3</td><td >=WENN(A3&lt;=HEUTE<span style=' color:008000; '>()</span>;"xxx d790";"")</td></tr><tr><td >C4</td><td >=WENN(A4&lt;=HEUTE<span style=' color:008000; '>()</span>;"xxx d790";"")</td></tr><tr><td >C5</td><td >=WENN(A5&lt;=HEUTE<span style=' color:008000; '>()</span>;"xxx d790";"")</td></tr><tr><td >C6</td><td >=WENN(A6&lt;=HEUTE<span style=' color:008000; '>()</span>;"xxx d790";"")</td></tr><tr><td >C7</td><td >=WENN(A7&lt;=HEUTE<span style=' color:008000; '>()</span>;"xxx d790";"")</td></tr><tr><td >C8</td><td >=WENN(A8&lt;=HEUTE<span style=' color:008000; '>()</span>;"xxx d790";"")</td></tr><tr><td >C9</td><td >=WENN(A9&lt;=HEUTE<span style=' color:008000; '>()</span>;"xxx d790";"")</td></tr><tr><td >C10</td><td >=WENN(A10&lt;=HEUTE<span style=' color:008000; '>()</span>;"xxx d790";"")</td></tr><tr><td >C11</td><td >=WENN(A11&lt;=HEUTE<span style=' color:008000; '>()</span>;"xxx d790";"")</td></tr><tr><td >C12</td><td >=WENN(A12&lt;=HEUTE<span style=' color:008000; '>()</span>;"xxx d790";"")</td></tr><tr><td >C13</td><td >=WENN(A13&lt;=HEUTE<span style=' color:008000; '>()</span>;"xxx d790";"")</td></tr><tr><td >C14</td><td >=WENN(A14&lt;=HEUTE<span style=' color:008000; '>()</span>;"xxx d790";"")</td></tr><tr><td >C15</td><td >=WENN(A15&lt;=HEUTE<span style=' color:008000; '>()</span>;"xxx d790";"")</td></tr><tr><td >C16</td><td >=WENN(A16&lt;=HEUTE<span style=' color:008000; '>()</span>;"xxx d790";"")</td></tr><tr><td >C17</td><td >=WENN(A17&lt;=HEUTE<span style=' color:008000; '>()</span>;"xxx d790";"")</td></tr></table></td></tr></table> <br>

<img src="http://home.media-n.de/ziplies/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://home.media-n.de/ziplies/" target="_blank"><img border="0" src="http://home.media-n.de/ziplies/images/logo_hajo.gif" align="middle" height="40" alt="Homepage"></a>
In Foren gilt allgemein das Du. Alle Leute, die ich duze, spreche ich mit dem Vornamen an. Ich habe jetzt mal meinen Antwortstil umgestellt: in Beiträgen, in denen kein Name steht, werden die Personen mit "Hans Bärbel" angeredet, da liege ich zumindest beim Geschlecht mit 50% richtig.

fc1985
16.07.2006, 19:22
Hallo Hajo_zi erst mal danke für deine Antwort. Du bist ja ein Vorbild was Office angeht, findes es auch klasse das du auf deiner homepage soviel zu verfügung stelltst.

Nun weiter zum thema. es ist so in tabelle a stehen stundensalden in zelle x werden täglich alles stunden verrechnet (wieviele überstunden ......) da sich diese zelle jeden tag ändert funktioniert diese Formel ja nicht wegen dem täglichen bezug =heute() also dachte ich diese ginge wie der code für das datum von deiner Homepage.
Vielen Dank
Gruß
Hans Bärberl :-)
David

ps.: in meinem ersten beitrag meinte ich mit xxx 790d dasdas xxx für denn tabellen namen steht. sorry hab mich nicht gut ausgedrückt.

Hajo_Zi
16.07.2006, 19:37
Hallo David,

wie Du gesehen hast habe ich Dein Beispiel nachgebaut und das war total falsch. Eine Datei sagt mehr als tausend Worte und ein Nachbau sieht nie so aus wie das Original. Ich mache mich jetzt nicht dran das Beispiel nochmal nachzubauen. Das erste Mal war ja schon für den Papierkorb.

<a href="http://home.media-n.de/ziplies/" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

fc1985
17.07.2006, 06:22
Hallo Hajo

habe mal eine datei hochgeladen die genauso aufgebaut ist. kann die orig. nicht hochladen wegen denn daten.
Als jeden tag werden die stunden der Mitarbeiter eingetragen und errechnet wieviele überstunden alle gemiensam habe. Ich möchte auf einem anderen Tabellen blatt eine History aufbauen um zusehen wie sich di Überstunden stuation entwickelt.
Lieben Gruß
David

fc1985
17.07.2006, 10:42
hat da jemand noch ne idee

Hajo_Zi
17.07.2006, 10:48
Hallo David,

Dein erster Beitrag war vom 13.07.06 Die Antworten vom 13.07.06
Deine erste Rückmeldung zu den Antworten war am 16.07.06. Jetzt werde doch mal nicht ungeduldig.

<a href="http://home.media-n.de/ziplies/" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

Hajo_Zi
18.07.2006, 12:34
Hallo David,

welcher Wert soll übertragen werden?
Wann soll übertragen werden, beim ersten öffnen am Tag?

<a href="http://home.media-n.de/ziplies/" target="_blank" title="Hajo&#39s Excelseiten">Gruß Hajo</a>

fc1985
18.07.2006, 15:42
Hallo Hajo
Es soll immer der Aktuelle stand der SA gesamt übertragen werden. Also im Bsp.: b19.
Es kann ruhig über ein button laufen als muss nicht Komplett automatisch laufen.
Mein prbelm war nur das ich es nicht hinbekomme das er jeden tag eine andere zelle benützt. also datumsgerecht.
Lieben Gruß
David

Hajo_Zi
18.07.2006, 18:01
Hallo David,

siehe Anhang.

<a href="http://home.media-n.de/ziplies/" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>