Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
976to980
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
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Möchte Datum Nicht Manuell Ändern !!!

Möchte Datum Nicht Manuell Ändern !!!
17.05.2008 22:31:56
Leo
Abend zusammen,
ich hab` in der A SPALTE ein fortlaufendes Datum im QUARTALSRHYTHMUS (jeweils mit dem Datum des Quartalsende) & in den SPALTEN B:G entsprechende Werte - die ich aufgrund der Dateigröße alle gelöscht habe !!!
Der Punkt ist; "ich brauche kein QUARTALSRHYTHMUS sondern ein MONATSRHYTHMUS & und möchte eben nicht immer MANUELL 2 SPALTEN (MIT EINEM FORLAUFENDEN DATUM) EINFÜGEN ...
Hier die Datei : https://www.herber.de/bbs/user/52425.xls
Ich beschäfte mich schon das ganze WE mit diesem Thema !!! Für einen EXCEL bzw. VBA Profi dürfte das sicherlich kein Problem darstellen !!! Ich bin mit meine Latein am Ende !!! Welcher Fachchinese kann mir mit einer FUNKTION bzw. MAKRO weiterhelfen ?
MfG
Leo van der Haydn
PS :
DANK EUCH (DIR) SCHON JETZT !!!

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

Betreff
Datum
Anwender
Anzeige
AW: =DATUM(JAHR(A2);MONAT(A2)+2;0)
17.05.2008 22:43:28
Uwe
Hi,
in A3:
=DATUM(JAHR(A2);MONAT(A2)+2;0)
und runterkopiernen.
OK?
Gruß
Uwe
(:o)

Bleib in der (alten) Beitragsfolge... o.w.T.
17.05.2008 22:46:00
Reinhard

AW: Möchte Datum Nicht Manuell Ändern !!!
17.05.2008 23:40:03
Gerd
Hallo Leo,
was meinst mit MERCURY ?

Sub einfügen()
Dim row As Long
For row = Cells(Rows.Count, 1).End(xlUp).row To 3 Step -1
Rows(row).Insert shift:=xlDown
Range(Cells(row, 1), Cells(row, 256)).Cells.Interior.Color = vbRed
Cells(row, 1).Value = DateAdd("m", -1, Cells(row + 1, 1))
Rows(row).Insert shift:=xlDown
Rows(row).Interior.Color = vbRed
Cells(row, 1).Value = DateAdd("m", -1, Cells(row + 1, 1))
Next
Columns(1).NumberFormat = "dd.mm.yy"
End Sub


Gruß Gerd

Anzeige
Uwe's Formel ist perfekt
18.05.2008 06:26:00
Matthias
Hallo Leo
Wie Du siehst, beschäftigen sich einige Leute mit Deinem Problem.
Nun denke ich die endgültige Lösung gefunden zu haben, dank Uwe!
Userbild
hier die Datei
https://www.herber.de/bbs/user/52427.xls
Userbild

274 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige