With blockvariablen
12.02.2018 07:42:15
Jan
beim Ausführen der Code Zeilen bekomme ich die Fehlermeldungen "With Blockvariablen". Ich bin VBA Anfänger und bin jetzt überfragt, könnt ihr mir helfen?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rg, rg1, rg2 As Range
If Not (Intersect(Target, Range("C1:C2")) Is Nothing) Then
Set rg = Prod_Cabin.AutoFilter.Range
rg.AutoFilter Field:=2, Operator:=xlFilterValues, _
Criteria2:=Array(0, "12/31/" & Analysis.Range("C1").Value)
rg.AutoFilter Field:=1, Criteria1:="Jan