VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Auflistung der Kalenderwochen eines variablen Jahres

Gruppe

Funktion

Bereich

DatumUndZeit

Thema

Auflistung der Kalenderwochen eines variablen Jahres

Problem

Die Kalenderwochen von/bis der einzelnen Monate sollen gelistet werden, wobei das Jahr - Zelle B1 - variabel gehalten werden soll. Kein Einsatz von VBA.

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




ClassModule: Tabelle1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim iRow As Integer
   With ThisWorkbook.Sheets("Memory")
      iRow = WorksheetFunction.CountA(.Columns(1)) + 1
      .Cells(iRow, 1).Value = Target.Cells(1).Address(False, False)
      If iRow >= 11 Then
         .Range("A1:A10").Value = .Range("A2:A11").Value
         .Range("A11").ClearContents
      End If
   End With
End Sub
Sub a()
ThisWorkbook.Sheets("Memory").Columns(1).ClearContents
End Sub
StandardModule: Modul1

Sub Eintragen()
   Dim iRow As Integer
   For iRow = 1 To 10
      Cells(iRow, 1).Value = ThisWorkbook.Sheets("Memory").Cells(iRow, 1).Value
   Next iRow
End Sub

    


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