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

• #11508 Delila_1 veterán MaciLaci68 #11503

  Új Válasz 2011-09-30 12:11:33 #11508

  Ú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

  

  Delila_1

  veterán

  válasz MaciLaci68 #11503 üzenetére

  Miért is van erre szükség? Hiszen ha van az aktív cellának neve, akkor a szerkesztőléc bal oldalán láthatod kiírva.

  Ez a makró is végig böngészi a neveket, csak egy kicsit gyorsabban.

  Sub CellaNeve()
  Dim i As Long
  For i = 1 To ActiveWorkbook.Names.Count
  On Error GoTo Hiba
  If ActiveWorkbook.Names(i).RefersToLocal = Selection.Name Then
  Range("A1") = ActiveWorkbook.Names(i).Name
  Exit Sub
  End If
  Next
  
  Hiba:
  Cells(1) = "A " & ActiveCell.Address & " cella nincs elnevezve"
  End Sub

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