Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2025 14:16:04
VBA - Löschen Zellinhalt nur unter Voraussetzung zulassen
25.04.2025 11:50:27
Fehler beim Kopieren von Word zu Outlook
25.04.2025 11:11:55
Summenprodukt
25.04.2025 10:46:43
Code generierte Textboxen in Frames bekommen keinen Focus
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
112to116
112to116
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum zw. 2 Daten für jedes Monat erzeugen

Forumthread: Datum zw. 2 Daten für jedes Monat erzeugen

Datum zw. 2 Daten für jedes Monat erzeugen
12.04.2002 10:27:35
Daniel
Hallo,

gegeben sind ein Anfangs und ein Enddatum (B1 und C1). Via Makro soll nun für jedes Monat dazwischen (inkl. Beginn und Enddatum) ein Datum in Spalte D erzeugt werden und zwar soll der Tag immer der gleiche sein (so wie Beginndatum)?

???
Daniel

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Datum
Tags
#daten_verarbeitung #datum_generierung #makro_hilfe
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
?
12.04.2002 10:33:51
André
könntest du die fragestellung bitte genauer formulieren
Re: Datum zw. 2 Daten für jedes Monat erzeugen
12.04.2002 11:29:35
Flieger
Hallo Daniel,

meinst Du ungefähr so:

Sub test()
Dim anf As Date, ende As Date, i%, z%
anf = Cells(4, 2).Value
ende = Cells(4, 3).Value
z = 2
For i = Month(anf) To Month(ende)
Cells(z, 4).Value = Left(Format(CStr(anf), "DD.MM.YYYY"), 3) & Format(i, "00") & Right(Format(CStr(anf), "DD.MM.YYYY"), 5)
z = z + 1
Next
End Sub

Gruss
Flieger

Anzeige
Re: ?
12.04.2002 11:58:56
Daniel
ich gebe im Feld B1 ein Beginndatum und in C1 ein Enddatum (z.B. 1.1.2001 und 1.1.2002).
Nun möchte ich in Spalte D alle Monate von Beginn bis Ende auflisten:
1.1.2001, 1.2.2001, ... 1.1.2002) wobei sich der Tag nach dem Beginndatum richten soll! (Nicht 1.1.2001, 5.2.2001)

Klar?
Daniel

Anzeige
Re: Datum zw. 2 Daten für jedes Monat erzeugen
12.04.2002 14:24:48
Daniel
Hallo Flieger,

das ist nicht die gewünschte Lösung: ich möchte auch über mehrere Jahre alle Monate dazwischen auflisten; außerdem schreibt er ein völlig irres Datum in Spalte D (Anf.=1.1.2001; Ende=1.12.2001): 27.1.1927, 27.2.1927,...,27.12.1927
Wenn ich 1.1.2001 bis 1.1.2002 eingebe, dann schreibt er nur ein Datum (27.1.1927) weil er ja nur die Monate vergleicht

Herauskommen sollte aber 1.1.2001 bis 1.1.2002

Mein Ansatz war:
Sub Test()
Dim arrFiles As Variant
Range("H:H").ClearContents
Dim intCounter As Integer
For intCounter = 1 To Range("d1") + 1
With ThisWorkbook.Worksheets(1)
.Cells(intCounter, 8) = Range("b1") + (intCounter - 1) * 30
End With
Next intCounter
End Sub
b1 Anfangsdatum
c1 Enddatum
d1=RUNDEN(TAGE360(B1;C1)/30;0)
Da aber nicht jedes Monat 30 Tage hat, bleibt der Tag nicht der gleiche!

???

Daniel

Anzeige

Forumthreads zu verwandten Themen

automatisches Erstellen von pdf
pdf

Hallo alle zusammen,
ich nutze seit Monaten ein VBA zum automatischen Erstellen von PDF's. Grundlage war eine Muster aus Eurem Archiv Print to pdf von Ramses; habe ich auf meine Anforderungen angepasst.
Hat auch immer klaglos funktioniert.
Nun auf einmal Laufzeitfehler '429' Objekte...
07.08.2008 17:02:59
Thread-ID: 1000034
8 Beiträge
automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Anzeige
Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
die bedingte Formatierung be
Lemmi

Hallo zusammen,
wie kann ich die Bedingte Formatierung ersetzen durch eine "normale " Formatierung
Ich habe in einem Bereich A1:B100 einige bedingte Formatierungen, diese sollten eben durch die selbe Formatierung ersetzt werden!
Kann man das umsetzen?
Gruß
Lemmi
08.08.2008 08:45:25
Thread-ID: 1000161
5 Beiträge
Anzeige
if mit or Verknüpfung?
Tom

Hi,
ich versuch gerade ein If mit Or Verknüpfung hinzubekommen.
Hier mal der Code:
If Datei1Name = "" Or Datei2Name = "" Or TextD1v = "" Or TextD2v = "" Or TextD1A = "" Or _ TextD1E Or TextD2An Then Error = MsgBox("Es müssen alle Felder gefüllt sein", 48, "Eingabe Fehler") Else <...
08.08.2008 11:29:57
Thread-ID: 1000222
9 Beiträge
Zeitformat aus England nicht korrekt
Uschi

Hallo liebes Forum,
folgendes Problem:
Ich bekomme eine Liste mit Zeiten aus Großbritannien, in der die Nullen fehlen, wenn es nicht über eine Stunde geht (:17:22). Ist die Zeit größer als eine Stunde, wird sie korrekt angezeigt (01:17:22). Kann ich irgendwie bei allen Zeiten, wo die St...
08.08.2008 12:29:48
Thread-ID: 1000252
3 Beiträge
Anzeige
Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Daten zählen mit AutoFilter
TomTom

Hi,
hier ist ein Code, der nach bestimmten Kriterien schaut und diese zählt und das Ergebnis in Tebelle2 einträgt:
Dim TB1, TB2
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
TB2.Range("M8") = WorksheetFunction.CountIf(TB1.Range("D:D"), "Green")
TB2.Range("M10...
08.08.2008 23:34:00
Thread-ID: 1000446
10 Beiträge
AutoFilter zeigt nicht alle Einträge
Andre

Hallo Excel-Freunde,
ich weiß, dieses Problem tauchte schon öfters auf.
Aber irgendwie passt das nicht zu meinem Problem:
Ich habe eine Excel-Tabelle, in der ihc mit VBA den AutoFilter aktiviere und gewisse Spalten filtere. Will ich nun eine gewisse "planned_effort(in hours)"-Spalt...
10.08.2008 15:47:23
Thread-ID: 1000645
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige