Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
728to732
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
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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.
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
Anzeige
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige