Aktív témák

• #23 MaciLaci68 csendes tag

  2011-09-30 11:08:31 #23

  Ö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

Aktív témák