Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1032to1036
1032to1036
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum: Datumswerte in andere Zellen übertragen

Forumthread: Datum: Datumswerte in andere Zellen übertragen

Datum: Datumswerte in andere Zellen übertragen
13.12.2008 13:09:00
erbse
Hallo,
leider hilft mir der Code aus dem Macrorecorder nicht wirklich weiter. Zumindest funktioniert er nicht.
Folgendes Problem:
In einer Spalte (z.B. A:A) befinden sich Datumswerte im Format "tt.mm.jjjj" als Text (Import aus externer Datei). Nun möchte ich für alle Zeilen, in denen sich in A:A ein Datum befindet, in Spalte B:B die Kalenderwoche, in Spalte C:C den Monat (mm) und in Spalte C:C das Jahr (jjjj) ausgeben lassen.
Die Tabelle besitzt auch einen Tabellenkopf mit Spaltenüberschriften.
Könnt Ihr mir bitte helfen?
Leider sind meine VBA-Kenntnisse sehr bescheiden.
Natürlich könnte ich auch bei jedem Hinzufügen neuer Daten die entsprechenden simplen Excel-Formeln, z.B. =Kalenderwoche(A1;2), weiter herunterkopieren, aber ich denke mit VBA könnte das viel effektiver funktionieren?
mit freundlichen Grüßen
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum: Datumswerte in andere Zellen übertragen
13.12.2008 13:12:00
Hajo_Zi
Halo Nick,
die Augaben sind alles Probleme die nicht über VBA gelöst werden müssen.
Als erstes wenn() Monat mit Monat(A1) Kalenderwoche
Oder im Register von WF
http://www.excelformeln.de/formeln.html?welcher=7
Warum muß es so eine komplizierte Formel sein Erklärung von WF
Die Funktion KALENDERWOCHE rechnet falsch oder sagen wir es gnädiger: nach amerikanischem Standard. Der 01.01.2000 z.B. ist laut DIN die 52. KW des Jahres 1999; - in den USA die erste im Jahre 2000. Das hab ich mir irgendwann mal kopiert:
Erst 1976 wurde der Wochenbeginn auf Montag festgelegt. Die erste Woche des Jahres ist definiert als die Woche, in die mindestens 4 Tage fallen. Beides = DIN 1355 (1974) Entspricht der internationalen Norm ISO 8601 (1988); -übernommen von der EU als EN 28601 (1992) und in Deutschland als DIN EN 28601 (1993) umgesetzt.
=KÜRZEN((G6-WOCHENTAG(G6;2)-DATUM(JAHR(G6+4-WOCHENTAG(G6;2));1;-10))/7)&". KW"
von WF

Anzeige
AW: Datum: Datumswerte in andere Zellen übertragen
13.12.2008 13:25:00
erbse
Hallo Hajo,
hmm...
das dieses Problem nicht mit VBA gelöst werden muss, ist mir schon klar. Schließlich habe ich oben geschrieben, dass ich die Formeln ebenso gut jedesmal oder auf Vorrat herunterkopieren könnte.
Mein Ansinnen war:
Wie kann ich nach Einfügen neuer Daten in die Tabelle mit dem Aufruf eines Makros automatisiert die Werte in die entsprechenden Zeilen eintragen lassen?
Ich möchte mich mit der Tabelle nicht mehr beschäftigen, als Daten einzufügen, ein Makro aufzurufen um hinterher meine aktualisierten Auswertungen (Ergenbisse) zu "bestaunen".
Vielen Dank für die erste schnelle Antwort.
Viele Grüße nach NB.
Erbse
Anzeige
AW: Datum: Datumswerte in andere Zellen übertragen
13.12.2008 13:26:37
erbse
Oops, frage natürlich noch offen...
AW: Datum: Datumswerte in andere Zellen übertragen
13.12.2008 14:57:00
Tino
Hallo,
versuche es mal mit diesem Code.
Modul Modul1 
Option Explicit 
 
Sub Datum_Zerlegen() 
Dim Bereich As Range 
Dim meArea 
Dim A As Long 
Dim Datum As Date 
Set Bereich = Range("A1", Cells(Rows.Count, 1).End(xlUp).Offset(0, 3)) 
meArea = Bereich 
 
For A = 1 To Ubound(meArea) 
 If IsDate(meArea(A, 1)) Then 
  Datum = CDate(meArea(A, 1)) 
  meArea(A, 2) = KW(Datum) 
  meArea(A, 3) = Month(Datum) 
  meArea(A, 4) = Year(Datum) 
 End If 
Next A 
 
Bereich = meArea 
 
End Sub 
 
Function KW(d As Date) As Integer 
Dim t As Variant 
    t = DateSerial(Year(d + (8 - Weekday(d)) Mod 7 - 3), 1, 1) 
    KW = (d - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1 
End Function


Das Makro Datum_Zerlegen kannst Du über einen Button aufrufen.
Gruß Tino

Anzeige
AW: Datum: Datumswerte in andere Zellen übertragen
13.12.2008 23:55:38
erbse
Vielen Dank Tino!
Genau das ist es!
mit freundlichen Grüßen

Forumthreads zu verwandten Themen

Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Datum aus Zelle nehmen Abfrage ODBC
lisa

Hallo zusammen
In der Recherche gibt es vielerlei Diskusionen über diese Thema, leider aber weiß ich nicht es für mich umzusetzen, deswegen die Frage an die Experten nämlich Euch.
Ich habe mir eine Datenbankabfrage ODBC erstellt!
Ich habe in der Abfrage auch mein Abfragedatum integr...
08.06.2009 15:38:17
Thread-ID: 1079946
14 Beiträge
Anzeige
Eintrag aus Textfeld in zelle übernehmen wenn leer
Benni

hallo,
kann mir jemand helfen, ich kenne mich mit VBA nicht wirklich gut aus.
ich möchte die Eingabe in einem Textfeld auf einer UserForm in eine Zelle auf dem Worksheets "Werte" übertragen. Problem bei der Sache ist, dass z.B. ich bei der Zelle A1 Anfange und wenn dort schon ein „Inhal...
24.06.2009 09:05:21
Thread-ID: 1083991
14 Beiträge
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Datum aus 2 Zellen in 1 Zelle übernehmen
gerhard

Hallo zusammen,
Bitte um VBA Hilfe!
In meiner Tabelle stehen in der Spalte H ein Datum im Format z.B in der Zelle H50 29.07.2008 in der Spalte I steht ebenfalls ein Datum im Format z.B in der Zelle I50 06.10.2008
Jetzt soll in der Spalte G in Zelle G50 automatisch folgender Eintrag...
11.09.2009 07:40:30
Thread-ID: 1101896
3 Beiträge
Anzeige
Datum mit Klick in andere Zelle kopieren
Josef_T

Hallo zusammen,
ich bräuchte mal eure Hilfe, für eine Formel die folgendes ausführt:
In B6:B30, habe ich Datums (Datümer?) stehen. Wenn ich dann irgendeins der Datümer in dieser Spalte anklicke, soll das jeweilige Datum in die Zelle D6 geschrieben werden. Die Datümer in Spalte B, sollen...
17.09.2009 19:18:21
Thread-ID: 1103686
7 Beiträge
Anzeige
Zeilenhöhe aus Zelle bestimmter Sp übernehmen
Peter

Guten Tag
Ich habe eine Tabelle, in der in Spalte G ab Zeile 1 bis x steht, wieviel die Zeilenhöhe betragen soll. Nun möchte ich diese Zeilenhöhen mit Makro zuweisen und zwar zuerst die letzte Zeile mit Inhalt anwählen und dann rückwärts bis Zeile 1 abarbeiten.
Mit nachstehendem Code bi...
26.10.2009 14:49:49
Thread-ID: 1112247
3 Beiträge
Anzeige
Numerischen Teilstring aus Zelle übernehmen | Herbers Excel-Forum
RalfTh
Hilfe
Ich bin ein absoluter Anfänger und hatte schon die Lösung aber leider ist mir das Excel abgeraucht.
Ich finde die eingesetzte Funktion aber nicht mehr, es ist zum verzweifeln.
Hier also mein Problem:
Ich habe in einer Zelle einen String stehen der einen in "()" gefassten nume...
14.01.2010 13:41:47
Thread-ID: 1129897
7 Beiträge
best. Datum aus Kalendersteuerelem. in Zelle
Frank

Hallo und Guten Abend!
Ich brauche Hilfe und hoffe das die VBA - Cracks unter euch mir weiter helfen! Ich öffne eine UF (frmDaten), in dieser befindet sich ein Kalendersteuerelement, welches immer den aktuellen Tag anzeigt. Nun möchte ich das beim Öffnen der UF ein bestimmtes Datum in Tbell...
05.02.2010 18:49:18
Thread-ID: 1136236
5 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:20:47
Thread-ID: 1165045
2 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:09:45
Thread-ID: 1165046
3 Beiträge
Datum aus früherer Spalte übernehmen - Bedingungen
Peter

Guten Tag
Im einer Tabelle steht in einem Bereich in Spalte A eine Datumsreihe, in der Spalte B ab Position 2 oder später ein dazugehöriger Wert - einige Zellen auf Spalte B sind jedoch leer.
Nun möchte ich in Spalte C mittels Formel ein Datum aus Spalte A übernehmen, mit folgender Logi...
13.09.2010 13:38:09
Thread-ID: 1177251
20 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Datumswerte in andere Zellen übertragen

Schritt-für-Schritt-Anleitung

Um Datumswerte aus einer Zelle in andere Zellen zu übertragen, kannst Du die folgende Schritt-für-Schritt-Anleitung nutzen. Diese Anleitung setzt voraus, dass Du Excel 2016 oder eine neuere Version verwendest.

  1. Öffne Deine Excel-Datei und gehe zu dem Arbeitsblatt, in dem Du die Datumswerte übertragen möchtest.
  2. Wähle die Zelle aus, in der sich das Datum befindet (z.B. A1).
  3. Verwende die Formel, um das Datum in eine andere Zelle zu übernehmen. Zum Beispiel, um das Jahr zu extrahieren, kannst Du in Zelle B1 folgende Formel eingeben: 
    =JAHR(A1)
  4. Um die Kalenderwoche zu ermitteln, kannst Du in Zelle C1 diese Formel verwenden: 
    =KALENDERWOCHE(A1;2)
  5. Für den Monat in Zelle D1 nutze die Formel: 
    =MONAT(A1)
  6. Kopiere die Formeln von B1, C1 und D1 nach unten, um die Werte für alle Zeilen zu übernehmen.

Häufige Fehler und Lösungen

  • Problem: Das Datum wird als Text erkannt.
    Lösung: Stelle sicher, dass die Zelle im Datumsformat formatiert ist. Du kannst dies unter "Start" > "Zahlenformat" ändern.

  • Problem: Falsches Jahr wird angezeigt.
    Lösung: Verwende die Formel =JAHR(DATUMWERT(A1)), um sicherzustellen, dass das Datum korrekt interpretiert wird.

Alternative Methoden

Falls Du VBA verwenden möchtest, kannst Du die folgende Methode nutzen, um die Datumswerte automatisiert zu übertragen:

  1. Öffne den Visual Basic for Applications (VBA) Editor (ALT + F11).

  2. Füge ein neues Modul hinzu und kopiere den folgenden Code hinein:

    Sub Datum_Zerlegen()
   Dim Bereich As Range
   Dim meArea
   Dim A As Long
   Dim Datum As Date

   Set Bereich = Range("A1", Cells(Rows.Count, 1).End(xlUp))
   meArea = Bereich

   For A = 1 To UBound(meArea)
       If IsDate(meArea(A, 1)) Then
           Datum = CDate(meArea(A, 1))
           meArea(A, 2) = KW(Datum)
           meArea(A, 3) = Month(Datum)
           meArea(A, 4) = Year(Datum)
       End If
   Next A

   Bereich = meArea
End Sub

  3. Führe das Makro aus, um die Datumswerte in andere Zellen zu übertragen.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du das Datum in andere Zellen übertragen kannst:

  • Beispiel 1: Wenn in A1 das Datum 15.03.2023 steht, wird in B1 2023, in C1 11 (Kalenderwoche) und in D1 3 (Monat) angezeigt.
  • Beispiel 2: Wenn Du die oben angegebene VBA-Methode verwendest, wird für alle Datumswerte in Spalte A automatisch die Kalenderwoche, der Monat und das Jahr übernommen.

Tipps für Profis

  • Verwende Tastenkombinationen wie CTRL + D, um Formeln schnell nach unten zu kopieren.
  • Formatiere die Zellen mit bedingter Formatierung, um Datumswerte hervorzuheben.
  • Nutze Datumsfunktionen wie DATEDIF() oder EDATUM(), um komplexere Berechnungen durchzuführen.

FAQ: Häufige Fragen

1. Wie kann ich ein Datum aus einer anderen Zelle übernehmen?
Du kannst einfach die Formel =A1 in die Zelle eingeben, in der Du das Datum haben möchtest (z.B. B1).

2. Was tun, wenn das Datum in einer anderen Zeitzone ist?
Du kannst die Zeitzone manuell anpassen, indem Du die Zeit mit der entsprechenden Stundenanzahl addierst oder subtrahierst.

3. Ist es möglich, mehrere Datumswerte gleichzeitig zu übertragen?
Ja, Du kannst die Formeln einfach nach unten kopieren oder ein VBA-Makro verwenden, um alle Datumswerte in einem Schritt zu bearbeiten.

Beliebteste Forumthreads (12 Monate)

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