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

• #40366 Declare őstag Delila_1 #40364

  Új Válasz 2019-03-05 13:47:13 #40366

  Ú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

  

  Declare

  őstag

  válasz Delila_1 #40364 üzenetére

  Valami nem klappol

  Private Sub Workbook_Open()
Dim rng As Range, A
Set rng = Sheets("Allgem.").Range("B:B").Find(What:=Date, LookIn:=xlValues, _
LookAt:=xlWhole)
If Not rng Is Nothing Then Application.Goto rng, True

Set A = ActiveCell

Range(A).Interior.ColorIndex = 3

ActiveWorkbook.RefreshAll

End Sub

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