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

Datum kopieren

Forumthread: Datum kopieren

Datum kopieren
Josef
Hallo!
Ich habe in den Zellen B2:B8 das Datum 01.01.06 stehen.Ich möchte jetzt mittels VBA in den Zellen B9:B15 das Datum 02.01.06.Danach in den Zellen B16:B22 das Datum 03.01.06 usw.
Wie würde hier bitte der VBa Code lauten?
Danke
Josef
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datum kopieren
12.02.2006 11:50:33
Peter
Hallo Josef,
z. B. so:

Public Sub Datum_einstellen()
Dim lZeile  As Long
Dim dDatum  As Date
Dim iIndx   As Integer
   lZeile = 8
   
   Do
      If IsDate(Cells(lZeile, 2).Value) Then
         dDatum = CDate(Cells(lZeile, 2).Value) + 1
         For iIndx = 1 To 7
            Cells(lZeile + iIndx, 2).Value = dDatum
         Next iIndx
         lZeile = lZeile + 7
      End If
   Loop Until Day(dDatum) = 31
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Datum kopieren
12.02.2006 12:00:20
Josef
Hallo Peter!
Danke für Deine Hilfe.
Josef
NAMEN KOPIEREN
12.02.2006 12:14:55
Josef
Hallo Peter!
Eine Frage hätte ich bitte noch.
wie würde das ganze aussehen mit der Spalte A aber mit Namen?
Danke
josef
AW: NAMEN KOPIEREN
12.02.2006 16:29:42
Peter
Hallo Josef,
acht mal der geliche Name vorgegeben. Und dann?
Wie oft soll der Name denn vervielfältigt werden?
Das Datum ändert sich ja von 7-ner Gruppe zu 7-ner Gruppe.
Aber wie oft sollen denn die Namen kopiert werden?
Oder ist deine Fragestellung unvollständig?
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: NAMEN KOPIEREN
12.02.2006 17:11:50
Josef
Hallo Peter!
Danke für Deine Antwort.
Das gleiche Datum kommt sieben mal in der SpalteB vor.
In der SpalteA gibt es daher 7 verschiedene Namen, welche sich nach dem siebten Namen immer wiederholen, und zwar solange dsolange es ein Datum gibt. Beim Jänner bis 31.o1.06
Josef
AW: NAMEN KOPIEREN
12.02.2006 17:38:03
Peter
Hallo Josef,
dann schau mal, ob das dein gewünschtes Ergebnis bringt:

Public Sub Datum_einstellen()
Dim lZeile  As Long
Dim dDatum  As Date
Dim iIndx   As Integer
   lZeile = 8
   
   Do
      If IsDate(Cells(lZeile, 2).Value) Then
         dDatum = CDate(Cells(lZeile, 2).Value) + 1
         For iIndx = 1 To 7
            Cells(lZeile + iIndx, 1).Value = Cells(iIndx, 1).Value
            Cells(lZeile + iIndx, 2).Value = dDatum
         Next iIndx
         lZeile = lZeile + 7
      End If
   Loop Until Day(dDatum) = 31
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: NAMEN KOPIEREN
12.02.2006 17:41:13
Peter
Hallo Josef,
eine kleine, aber wichtige Korrektur:
Cells(lZeile + iIndx, 1).Value = Cells(iIndx + 1, 1).Value
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: NAMEN KOPIEREN
12.02.2006 19:36:54
Josef
Danke Peter. Das war die Lösung.
Schönen Abend noch
Josef
;

Beliebteste Forumthreads (12 Monate)

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