Guten Tag,
ich habe eine Excel Sheet mit mehreren Makros. Diese Arbeitsmappe mus ich freigeben damit mehrer Perosnen daran Reduntanz frei arbeiten können.
ein Makro funktioniert nur leider nicht.
Wo ran liegt das ?
Da andere Makros in diesem Excel Sheet funltionsfähig sind auch wenn ich die Arbeitsmappe freigebe.
Sub vollstaendigOE()
Dim wks As Excel.Worksheet: Set wks = ActiveSheet
Dim rng As Excel.Range: Set rng = wks.Range("A1:OE452")
Dim i As Long
'
With wks
If .AutoFilterMode Then .AutoFilterMode = False
'
For i = 15 To 30 Step 1
rng.AutoFilter _
Field:=i, _
Criteria1:="", _
Operator:=xlFilterNoFill
Next i
'
If Not Intersect(rng, rng.Offset(1, 0), rng.SpecialCells(xlCellTypeVisible)) Is Nothing Then
Intersect(rng, rng.Offset(1, 0), rng.SpecialCells(xlCellTypeVisible), rng.Columns(31)).Value = "Ihre Unterlagen wurdern vollständig eingereicht."
End If
'Filter entfernen
.AutoFilterMode = False
End With
End Sub
|