Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1032to1036
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
1032to1036
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

116 Forumthreads zu ähnlichen Themen

Datum automatisch in andere Zelle kopieren
ThomasB

Hallo,
Nach langem möchte ich ein wenig in Excel wieder üben. Für meine Frau will ich eine Zuchttabelle für Kaninchen erstellen. soweit habe ich das auch in Griff. Nur mit dem Datum und der automatischen Kopierung gibt es ein kleines Problem. In der Celle C2 wird das erste Deckdatum eingetr...
15.01.2009 14:00:41
Thread-ID: 1040123
4 Beiträge
Anzeige
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
ich hab' immer noch mein kleines Problem, vielleicht weiß hier ja einer weiter?
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
18.03.2009 13:41:01
Thread-ID: 1061396
6 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
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
Hyperlink-Adresse aus Zelle übernehmen
werner

Hallo,
ich habe in einer Datei div. Userforms Buttons, die Hyperlinks zu internen Dateien und Web- _ Sites öffnen und gelegentlich aktualisiert werden müssen, z.B. Private Sub CBt34_Click() ActiveWorkbook.FollowHyperlink Address:="http://www.xxx.html", NewWindow:=True End Sub
Damit ic...
02.09.2009 17:43:19
Thread-ID: 1100160
3 Beiträge
Teil des Datums in anderer Zelle als Zahl anzeigen
Karsten

Hallo,
in A1 steht bei mir 07.09.2009. Ich möchte, dass in B1 von diesem Datum nur die 7 als "normale" Zahl - nicht im Datumformat, angezeigt wird. Ich brauche diese Zahl zum weiterverarbeiten. Da sich das Datum auch ändert kann es auch eine andere Zahl außer der 7 sein.
Kann mir dabei...
05.09.2009 17:51:23
Thread-ID: 1100792
3 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
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
5
13
13
12
2
2
2
6
6
2
3
6
4
1
2
5
19
4
3
3
3
6
7