VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Dynamische Tabelle mit Tages, Wochen- und Monatsbereichen

Gruppe

DatumZeit

Bereich

Liste

Thema

Dynamische Tabelle mit Tages, Wochen- und Monatsbereichen

Problem

In einer dynamischen Tabelle soll in Abhängigkeit der Datumseingabe in Zelle B2 wird für die aktuelle Woche eine Stundenliste angelegt, für den Restmonat eine Tages und das Restjahr eine Monatsliste.

Lösung

Nur anhand der zugehörigen Beispielarbeitsmappe darstellbar.




ClassModule: Tabelle2

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim var As Variant
   Dim iRow As Integer
   Dim sOrt As String
   If Target.Column <> 1 Then Exit Sub
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   If IsEmpty(Target) Then
      Target.Offset(0, 1).ClearContents
      Exit Sub
   End If
   With Worksheets("PLZ")
      var = Application.Match(Target.Value, .Columns(1), 0)
      If Not IsError(var) Then
         Target.Offset(0, 1).Value = .Cells(var, 2).Value
      Else
         sOrt = InputBox("Bitte Ort eingeben:")
         If sOrt = "" Then Exit Sub
         iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
         .Cells(iRow, 1).Value = Target.Value
         .Cells(iRow, 2).Value = sOrt
         Target.Offset(0, 1).Value = sOrt
      End If
   End With
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Liste