Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum erzeugen

Datum erzeugen
18.09.2003 12:15:07
Fritz
Hallo liebe Profis,

Es gibt im Forum genügend Beispiele zum Datum, aber ich brauche
was besonderes.

In Spalte A1:A502 soll durch Eingabe der Tageszahl das Datum in
folgendem Format erscheinen.

Bsp.1: Eingabe in ( Arbeitsmappe Jan ) Zelle A3 ( 5 )
erscheinen soll 2003 - 01 - 05
Eingabe in ( Arbeitsmappe Jan ) Zelle A9 ( 6 )
erscheinen soll 2003 - 01 - 06

Ich habe 12 Arbeitsmappen von Jan - Dez.

Die Zelle C1 in der Arbeitsmappe "Jan" soll das Jahr in allen
Arbeitsmappen steuern.

Bsp.: Wie in Bsp.1 soll wenn ich in Zelle C1 in der Arbeitsmappe "Jan"
die Zahl 2004 eingebe auch 2004 - 01 - 05 erscheinen.

Das Jahr muss sich aber auf alle Arbeitsmappen von Jan - Dez
in der Spalte A1:A502 beziehen.

Danke an alle die sich hier im Forum mit den unwissenden wie einer bin
beschäftigen und helfen.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum erzeugen
18.09.2003 12:39:00
Panicman
Hallo Fritz,

das geht so nicht. Eingabefeld z.B. A3=5 kannst du nicht so formatieren, das automatisch
das Datum angegeben wird.
Eine Formel in der gleichen Zelle geht ja auch nicht. Die würdest du ja überschreiben mit der Eingabe.
einzige Lösung ist eine Hilfsspalte. Füge vor Spalte A noch eine Spalte ein. Diese spalte formatierst du mit: JJJJ - MM -
in dieser Spalte trägst du bei A3 folgende Formel ein:
=WENN(B3="";"";DATWERT(B3&"."&TEIL(ZELLE("dateiname";A3);FINDEN("]";ZELLE("dateiname";A3))+1;255)&"."&Jan!$D$1))
und kopierst sie runter.

Schau dir mal in ruhe das Beispiel an
https://www.herber.de/bbs/user/1067.xls

Gruß
Holger
Anzeige
AW: Datum erzeugen
18.09.2003 13:48:06
Daniel
Hallo Fritz,
hier das gesuchte Makro. Viel Spass damit:


Sub aus_Zahl_Datum()
Dim monta As Variant
Dim i As Integer
If ActiveSheet.Name = "Jan" Then monat = "01"
If ActiveSheet.Name = "Feb" Then monat = "02"
'...das muss noch für die 12 Monate fortgesetzt werden
For i = 1 To 502 Step 1
If Right(Cells(i, 1).Value, 4) = 1900 Then
Cells(i, 1).Select
Cells(i, 1).NumberFormat = "0"
End If
If Cells(i, 1).Value < 32 = True Then
If Cells(i, 1).Value > 0 = True Then
Cells(i, 1).Value = Worksheets("Jan").Range("C1").Value & "-" & monat & "-" & Cells(i, 1).Value
End If
End If
If Cells(i, 1).Value > 10000 Then
Cells(i, 1).NumberFormat = "yyyy-mm-dd"
End If
Next i
End Sub


Die eine Kleinigkeit muss noch ergänzt werde.

mfg Daniel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige