Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
784to788
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
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum suchen, vervollständigen

Datum suchen, vervollständigen
29.07.2006 22:58:48
Gerhard
Hallo zusammen,
Daten(Plural Datum) in Tabelle1, Spalte A ab A2 (A1 ist eine Überschrift).
Ich möchte beim Öffnen der Mappe zum aktuellen Datum gelangen. Die Datenreihe
kann aber vor dem aktuellen enden. In diesem Fall möchte ich erreichen, dass
die Datenreihe bis zum heutigen Datum automatisch erweitert wird.
Beispiel:
Datereihe endet am 01.07.2006 dann soll die Reihe bis zum 29.07.2006
erweitert werden.
Grüße Gerhard

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum suchen, vervollständigen
29.07.2006 23:35:19
K.Rola
Hallo,
das könntest du so erschlagen, ruf den Code z.B. in 

Private Sub Workbook_Open() auf:
Sub marine()
Dim Start As Long, Ende As Long
Start = [a2].End(xlDown).Row
Ende = [a2].Offset(Date - [a2]).Row
Range(Cells(2, 1), Cells(Ende, 1)).DataSeries Rowcol:=2, Type:=3, Date:=1, Step:=1
End Sub

Gruß K.Rola
AW: Datum suchen, vervollständigen
29.07.2006 23:43:52
K.Rola
Hallo,
gib besser noch den Tabellennamen an, also:

Sub marine()
Dim Start As Long, Ende As Long
With Sheets("Tabelle1")
Start = .[a2].End(xlDown).Row
Ende = .[a2].Offset(Date - .[a2]).Row
.Range(.Cells(2, 1), .Cells(Ende, 1)).DataSeries Rowcol:=2, Type:=3, Date:=1, Step:=1
End With
End Sub

Gruß K.Rola
Anzeige
Danke, perfekt. owT
30.07.2006 00:24:08
Gerhard
g

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige