Datum scrollen

Forumthread: Datum scrollen

Datum scrollen

03.10.2005 16:20:21

Josef

Guten Tag zusammen,
kann mir bitte jemand helfen, unten stehendes Makro so abzuändern, dass beim öffnen des Workbooks der 1. des aktuellen Monats in der erste Zeile steht?


Private Sub Workbook_Open()
Dim wks As Worksheet
Dim iRow As Integer
For Each wks In Worksheets
If wks.Name Like "AA#*" Then
iRow = WorksheetFunction.Match(CDbl(Date), wks.Columns(1), 0)
Application.Goto wks.Cells(iRow, 1), True
End If
Next wks
Sheets("Auswertung").Select
End Sub

Danke schon mal im voraus
Gruß Josef

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datum scrollen

03.10.2005 20:58:21

Beni
AW: Datum scrollen korrektur

03.10.2005 21:10:24

Beni
AW: Datum scrollen kleiner Fehler

03.10.2005 23:30:10

Josef
AW: Datum scrollen kleiner Fehler

04.10.2005 10:30:36

Beni
AW: Beni, klappt einwandfrei

04.10.2005 11:49:22

Josef

AW: Datum scrollen

03.10.2005 20:58:21

Beni

Hallo Josef,
Gruss Beni

Private Sub Workbook_Open()
   Dim wks As Worksheet
   Dim iRow As Long
Dim Datum1, Jahr1, Monat1
   For Each wks In Worksheets
      If wks.Name Like "AA#*" Then
Monat1 = Month(Date)
Jahr1 = Year(Date)
Datum1 = DateSerial(Jahr1, Monat1, 1)
  Set d = Columns(1).Find(What:=Datum1, LookIn:=xlValues, LookAt:=xlWhole)
  iRow = d(1, 1).Row
         Application.Goto wks.Cells(iRow, 1), True
         Exit For
      End If
   Next wks
   Sheets("Auswertung").Select
End Sub

Code eingefügt mit Syntaxhighlighter 4.0

AW: Datum scrollen korrektur

03.10.2005 21:10:24

Beni

Hallo Josef,
ohne Exit For (habe das zum testen gebraucht).
Gruss Beni

Private Sub Workbook_Open()
   Dim wks As Worksheet
   Dim iRow As Long
Dim Datum1, Jahr1, Monat1
   For Each wks In Worksheets
      If wks.Name Like "AA#*" Then
Monat1 = Month(Date)
Jahr1 = Year(Date)
Datum1 = DateSerial(Jahr1, Monat1, 1)
  Set d = Columns(1).Find(What:=Datum1, LookIn:=xlValues, LookAt:=xlWhole)
  iRow = d(1, 1).Row
         Application.Goto wks.Cells(iRow, 1), True
      End If
   Next wks
   Sheets("Auswertung").Select
End Sub

Code eingefügt mit Syntaxhighlighter 4.0

AW: Datum scrollen kleiner Fehler

03.10.2005 23:30:10

Josef

Hallo Beni,
Danke erstmal, aber bei "Set d = " VARIABLE NICHT GEFUNDEN, gehts nicht mehr weiter.
Das Datum steht in Spalte A, formatiert: TT.MM.JJJJ
Gruß Josef

AW: Datum scrollen kleiner Fehler

04.10.2005 10:30:36

Beni

Hallo Josef,
deklarier d mit Dim d as Variant.
Gruss Beni

AW: Beni, klappt einwandfrei

04.10.2005 11:49:22

Josef

Hallo Beni,
nach der Änderung funktioniert alles wie gewollt.
Herzlichen Dank für deine Arbeit.
Gruß Josef

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

Forumthread: Datum scrollen

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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread