VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Julianisches Datum

Gruppe

Funktion

Bereich

DATEDIF

Thema

Julianisches Datum

Problem

Wie ermittle ich das Julianische Datum in der Schreibweise "yyddd"?

Lösung

Diese Formel ergibt das Julianische Datum des aktuellen Tages: =RECHTS(JAHR(HEUTE());2)&DATEDIF(DATUM(JAHR(HEUTE());1;1)-1;HEUTE();"d")




StandardModule: basMain

Sub ZeilenKopieren()
   Dim iEnd As Integer, iRow As Integer
   Dim sStart As String
   Application.ScreenUpdating = False
   sStart = InputBox("Startzeile:", , 3)
   iEnd = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = CInt(sStart) To iEnd Step 2
      Rows(iRow).Hidden = True
   Next iRow
   Rows(sStart & ":" & iEnd).SpecialCells(xlCellTypeVisible).Copy _
      Worksheets("Tabelle2").Range("A1")
   Worksheets("Tabelle2").Columns.AutoFit
   Rows.Hidden = False
   Application.CutCopyMode = False
   Application.ScreenUpdating = True
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und DATEDIF