Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
948to952
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
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro ändern

Makro ändern
05.02.2008 15:59:00
mike49
Hallo,
in meinem aufgezeichneten Makro möchte ich was ändern: Die Zeile
ActiveCell.FormulaR1C1 = ""
möchte ich so abändern, dass das Datum aus C5 (z.B."31.12.2007") für ein Jahr später (31.12.2008) übernommen und eingetragen wird.
Wie muss die Zeile dann heißen?
Gruß
mike49

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro ändern
05.02.2008 16:08:52
Daniel
Hi
probiers mal damit

ActiveCell.Value = DateSerial(Year(Range("C5")) + 1, Month(Range("C5")), Day(Range("C5")))"


Gruß, Daniel

AW: Makro ändern
05.02.2008 16:30:00
mike49
Hallo ihr beiden,
habe die Zeile ausgetauscht, aber leider kommt die Meldung
Fehler beim Kompilieren: Syntaxfehler
Benötigt ihr das ganze Makro?
Gruß
mike49

ja (owT)
05.02.2008 16:31:00
Renee

Habe Fehler gefunden . . .
05.02.2008 16:45:00
mike49
es waren die Schluss-Anführungszeichen zuviel beim Vorschlag von Daniel.
Hätte auch die fehlerlose Lösung von Renee nehmen können. Wie dem auch sei. Es funktionieren jetzt beide Lösungen und ich danke euch beiden nochmals.
Gruß
mike49

Anzeige
AW: Makro ändern
05.02.2008 16:12:00
Renee
Mazwara Mike,

ActiveCell.Value = DateSerial(Year(ActiveSheet.Cells(5, 3).Value) + 1, _
Month(ActiveSheet.Cells(5, 3).Value), _
Day(ActiveSheet.Cells(5, 3).Value))


GreetZ Renée

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige