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

• #35759 Fferi50 Topikgazda NemszakiTomi #35757

  Új Válasz 2017-07-19 08:27:03 #35759

  Ú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

  

  Fferi50

  Topikgazda

  válasz NemszakiTomi #35757 üzenetére

  Szia!

  Próbáld meg az alábbi kis makrót:
  Sub kivancsi()
Dim cl As Range
For Each cl In ActiveSheet.Range("A1:D10").Cells
MsgBox cl.Address & " cella:" & vbLf & "tartalma: " & cl.Value & vbLf & "képlete: " & cl.FormulaLocal & vbLf & "hivatkozása: " & cl.Hyperlinks.Count, vbInformation
Next
End Sub

  A vizsgálandó cellák körét természetesen állítsd a magad ízlése szerint.

  Üdv.

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