VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Varianten zur Ermittlung des Wochentages eines Datums

Gruppe

Funktion

Bereich

DatumUndZeit

Thema

Varianten zur Ermittlung des Wochentages eines Datums

Problem

Auf welche Arten kann ich den Wochentag eines Datums anzeigen lassen?

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




ClassModule: frmColumns

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim arr() As Variant
   Dim iRow As Integer, iCol As Integer, iRowL As Integer, iColL As Integer
   iRowL = WorksheetFunction.CountA(Columns(1))
   iColL = WorksheetFunction.CountA(Columns(13))
   ReDim arr(1 To iRowL, 1 To iColL)
   For iRow = 1 To iRowL
      For iCol = 1 To iColL
         arr(iRow, iCol) = Cells(iRow, Cells(iCol, 13).Value)
      Next iCol
   Next iRow
   With cboColumns
      .ColumnCount = iColL
      .List = arr
      .ListIndex = 0
   End With
End Sub
StandardModule: Modul1

Sub CallForm()
   frmColumns.Show
End Sub

    


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