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

• #11503 MaciLaci68 csendes tag

  Új Válasz 2011-09-30 11:11:58 #11503

  Ú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

  

  MaciLaci68

  csendes tag

  Szervusztok,
  Az alábbi makró szerepe hogy ha az aktív cellának van neve, akkor azt A1 cellába beírja.
  Kicsit bonyolult lett, az összes nevet átnézi a program és ha az aktív cella címe egyezik valamelyik név címével akkor megvan a tettes.
  Szóval nekem csak az aktív cella neve kellene egy egyszerűbb módszerrel. Kínomban találtam ki ezt a bonyolultat.

  Sub NEVEKRE_hivatkozás()
  aktívcella = ActiveCell.Address
  Lap = ActiveSheet.Name
  aktívcellacím = "=" & Lap & "!" & aktívcella
  névszám = ActiveWorkbook.Names.Count
  For i = 1 To névszám
  On Error Resume Next
  nevekcímei = ActiveWorkbook.Names(i).RefersToLocal
  If nevekcímei = aktívcellacím Then
  név = ActiveWorkbook.Names(i).Name
  Range("A1") = név
  Else
  End If
  Next
  End Sub

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