Új hozzászólás Aktív témák

• #33905 poffsoft veterán nordican #33903

  Új Válasz 2017-01-26 09:34:56 #33905

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  poffsoft

  veterán

  válasz nordican #33903 üzenetére

  Liste=Activesheet.Name

  Gondolom, le lehet kérdezni a kijelölt sheetek neveit is.

  Ha csak az aktivesheet kell, akkor pl:

  Sub Makro1()
Dim rng As Range
Dim c As Range

Set rng = Range("A1:F100")
For Each c In rng
With c.Interior
If .ColorIndex = 6 Then
.ColorIndex = None
.Pattern = xlNone
End If
End With
Next c
End Sub

Új hozzászólás Aktív témák