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