PDA

Vollständige Version anzeigen : Jahreszahl fixieren für verkürzte Datumseingabe


Quality
01.07.2015, 14:00
Ich versuche mal das Problem so einfach wie möglich zu beschreiben.
In Datenerfassungen für zurückliegende Jahre soll in der Zelle A1 die Jahreszahl eingetragen werden. In den nachfolgenden Zellen der Spalte, also A2 - A300, werden Tagesdaten eingetragen, z. B. 03.04 ; 12.07 ; 18.09 ; ....
In der Spalte B daneben sollen die dazu korrespondieren Wochentage automatisch eingetragen werden. Das bedingt, dass wenn in A1 2009 steht, die Tagesdaten dann auch entsprechend 03.04.2009 ; 12.07.2009 ..... als Vollwert haben müssen, damit der Wochentag dazu passt. Excel macht aus der Eingabe jedoch 03.04.2015 oder, wenn ein neues Blatt anfängt, 03.04.1901
Wie kann ich erreichen, dass die Jahreszahl zum Tagesdatum aus der Zelle A1 übernommen wird?

Besten Dank für einen hilfreich Tip im Voraus

Hannes

Frank Furter
01.07.2015, 15:19
hallo Hannes, wenn es ohne vba oder ohne hilfsspalte sein soll (dann hast du aber den "Vollwert" nicht) geht es so..: (A2 ist text)

<table border='1' cellspacing='0' cellpadding='2' valign='middle' colspan='3' style='font-family:Arial; color:#000000; background-color:#FFFFFF; font-size:11px; font-weight:normal; font-style:normal; '><colgroup><col width='28pt'><col width='66pt'><col width='66pt'></colgroup><tr style='background-color:#FAFAFA'><td align='middle' colspan='3'>Arbeitsblatt mit dem Namen 'Tabelle1'</td></tr><tr style='background-color:#cacaca'><td>*</td><td align='middle'>A</td><td align='middle'>B</td></tr><tr><td style='background-color:#cacaca' align='middle'>1</td><td align='right' >2009</td><td align='right' >*</td></tr><tr><td style='background-color:#cacaca' align='middle'>2</td><td align='left' >03.04</td><td align='right' >Freitag</td></tr></table><br><table border='3' cellspacing='0' cellpadding='2' valign='middle' colspan='3' style='color:#000000; background-color:#FFFFFF; font-family:Arial; font-size:10px;'><tr style='background-color:#aaeeaa'><td>Zelle</td><td>Format</td><td align='right'>Wert</td></tr><tr><td>A2</td><td>TT. MMM</td><td align='right'>03.04</td></tr><tr><td>B2</td><td>TTTT</td><td align='right'>03.04.2009</td></tr></table><br><table border='3' cellspacing='0' cellpadding='2' valign='middle' colspan='2' style='table-layout:auto; color:#000000; background-color:#FFFFFF; font-family:Arial; font-size:10px;'><colgroup><col width='40pt'><col></colgroup><tr style='background-color:#eeaaaa'><td>Zelle</td><td>Formel</td></tr><tr><td>B2</td><td><Span style='color:#222222'>=--</Span><Span style='color:#0000DD'>(A2&"."&$A$1)</Span><Span style='color:#222222'></Span></td></tr></table><table style='font-family:Arial; font-size:7pt'><tr><td style='color:#333333'>Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg</td></tr></table>

aloys78
02.07.2015, 06:37
Hallo Hannes,

mein Vorschlag:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:A300")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If IsDate(Target) Then
Target.Value = Format(DateSerial(Range("A1"), Month(Target), Day(Target)), "dd.mm.yyyy")
Else
Target = "" 'ungültige Eingabe
End If
Application.EnableEvents = True
End Sub


Gruß
Aloys

Quality
26.07.2015, 09:01
hallo Frank,

besten Dank für den Tipp. Die Lösung ist eigentlich einfach, man muss nur drauf kommen. Arbeiten für 3,-€ , gewusst wie für 20,-€.

Gruß Hannes

Quality
26.07.2015, 09:03
Moin Alois,

Dein Lösungsvorschlag sieht für mich sehr kompliziert aus. Ich kann das leider nicht nachvollziehen.

Gruß Hannes

Hajo_Zi
26.07.2015, 09:13
Hallo Hannes,

<br/><b><em>Tabelle2</em></b><table border="1" cellspacing="0" cellpadding="0" style="border-color:#000000; border-width: 1px; font-size:11pt; background-color:#ffffff; padding-left:2pt; padding-right:2pt; "><colgroup><col style="font-weight:bold; width:40px;" /><col style="width:126px;" /><col style="width:126px;" /><col style="width:126px;" /></colgroup><tr style="background-color:#99CCFF; text-align:center; font-weight:bold; "><td>&nbsp;</td><td>A</td><td>B</td><td>C</td></tr><tr><td style="background-color:#99CCFF; text-align:center; font-weight:bold; ">1</td><td style="border-color:#000000; color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:right; ">2009</td><td style="border-color:#000000; color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:right; ">&nbsp;</td><td style="border-color:#000000; color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:right; ">&nbsp;</td></tr><tr><td style="background-color:#99CCFF; text-align:center; font-weight:bold; ">2</td><td style="border-color:#000000; color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:left; ">'12.07</td><td style="border-color:#000000; color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:right; ">Sonntag</td><td style="border-color:#000000; color:#000000; border-color:#000000; background-color:#FFFFFF ;; text-align:right; ">Sonntag</td></tr></table><br/><table border="1" cellspacing="0" cellpadding="0" style="border-color:#000000; border-width: 1px;font-size:11pt; background-color:#ffffff; width:800px;padding-left:2pt; padding-right:2pt; "><tr style="background-color:#FFCC66; text-align:center; font-weight:bold; "><td colspan="3" > verwendete Formeln </td><td> </td></tr><tr valign="top" style="background-color:#FFCC66; text-align:center; font-weight:bold; "><td> Zelle </td><td> Formel</td><td> Bereich </td> <td>N/A</td></tr><tr><td>B2</td><td>=(A2&amp;"."&amp;$A$1)*1</td><td>&nbsp;</td><td>&nbsp;</td></tr></table><br/><table border="1" cellspacing="0" cellpadding="0" style="border-color:#000000; border-width: 1px; font-size:11pt;width:800px; background-color:#ffffff; padding-left:2pt; padding-right:2pt; "><tr style="background-color:#FFCCCC; text-align:center; font-weight:bold; "><td colspan="3" > Zahlenformate </td></tr><tr valign="top" style="background-color:#FFCCCC; text-align:center; font-weight:bold; "><td> Zelle </td><td> Format </td><td> Wert </td></tr><tr><td>A2 </td> <td style="text-align:center; ">'@</td> <td style="text-align:right; ">12.07</td></tr><tr><td>B2:C2 </td> <td style="text-align:center; ">'TTTT</td> <td style="text-align:right; ">40006</td></tr></table><b>Zellen mit Format Standard werden nicht dargestellt</b><br/><table cellspacing="0" cellpadding="0"><tr style="text-align:left; font-weight:bold; " class="style21"><td style="text-align:left; font-size: xx-small" ><a href="http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip" >Excel-Inn.de</a></td></tr> <tr style="text-align:left; font-weight:bold; " class="style21"><td style="text-align:left; font-size: xx-small" ><a href='http://Hajo-Excel.de/tools.htm' >Hajo-Excel.de</a></td></tr><tr style="text-align:left; font-weight:bold;" ><td style="text-align:left; font-size: xx-small" >XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007</td></tr><tr style="text-align:left; font-weight:bold; " ><td style="text-align:left; font-size: xx-small" > Add-In-Version 19.07 einschl. 64 Bit</td></tr></table><br/>

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>