-
IT café
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.