Microsoft Excel

Herbers Excel/VBA-Archiv

Frage an Sepp oder Andere! | Herbers Excel-Forum


Betrifft: Frage an Sepp oder Andere! von: Frank H.
Geschrieben am: 05.12.2009 18:40:29

Hallo Sepp und allen anderen Usern auch 'nen schönen Abend!

Für morgen wünsche ich allen einen schönen 2. Advent!

Gestern hast du mir mit einer Formel geholfen. Das war und ist Spitze. Nun meine neuerliche Frage: In Spalte BA stehen díe Datumswerte untereinander, ab Zeile 11. In Zelle BR11 kommt deine Formel, welche dann nach unten kopiert werden soll. Nun möchte ich aber die Formel immer nur bis zum heutigen Tag runterkopiert wissen, am besten immer beim Öffnen der Arbeitsmappe! Wie müsste ich das anstellen???
Danke im Vorraus!!!

Herzlichst Frank H.

  

Betrifft: AW: Frage an Sepp oder Andere! von: Josef Ehrensberger
Geschrieben am: 05.12.2009 18:54:40

Hallo Frank,

das geht, aber nur per Makro.


' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_Open()
  Dim varRes As Variant
  
  With Sheets("Tabelle1") 'Tabellenname anpassen!
    varRes = Application.Match(CDbl(Date), .Range("BA:BA"), 0)
    If IsNumeric(varRes) Then
      .Range("BR11:BR" & CStr(varRes)).FillDown
    End If
  End With
  
End Sub


Gruß Sepp



  

Betrifft: AW: Frage an Sepp oder Andere! von: Frank H.
Geschrieben am: 05.12.2009 19:39:54

Hallo Sepp!

Funzt wie immer Spitze!!!

Herzlichen Dank!!!

Frank H.