MS Excel

Vesey ty jsi vypsal buňky, ne pojmenované oblasti. Pojmenovaná oblast se tvoří proto, abychom zabranili chybným výpisům při vložení buněk, řádků či sloupců, a to jak v pojmenované oblasti tak i mimo ní, to tvůj program nesplňuje, ten je tvrdý jako kámen, pokud by něco takového nastalo musíš měnit všechny parametry programu.
Proto zkus toto:

Sub Vyber()
For Each Oblast In Names
If Not Intersect(ActiveCell, Range(Oblast)) Is Nothing Then
vyh = True
hodnota = Oblast.Name & vbCrLf
For Each bunka In Range(Oblast)
If Not bunka = "" Then
If vyh Then
hodnota = hodnota & bunka & " "
Else
hodnota = hodnota & bunka & vbCrLf
End If
vyh = Not vyh
End If
Next bunka
MsgBox (hodnota)
End If
Next Oblast
End Sub

Sám bych si rád nechal poradit jak zefektivnit (resp. udělat výpis pojmenované oblati, když neznám počet sloupců ani řádků a vybírám po buňce viz přiložený kód.
Díkycitovat

Hledáš stejné řešení na jaké se já ptám v poslední větě, vím , že je to nějak v litaratuře popsané, ale já si to nepamatuji a momentálně nemám na to ani čas. Myslel jsem, že se někdo ozve a popíše to, jak se pojmeované oblasti chováji při jejich prohledávání.
Tvůj problém lze ale řešit i jinak a to ne obecně, neboť ty chceš konkrétně první a čtvrtý sloupec. Pokud je dám natvrdo tak to lze. Já využívám pojmenované oblasti málo a spíše jen jako startovací body pro makra, pokud si je označiš stejně, tz. pouze body, které chceš, aby makro procházelo (ne všechny buňky) pak je to velmi jednoduché.
Oblasti pro tvůj příklad:
oblast1 =List1!$A$1:$A$5
oblast2 =List1!$A$7:$A$11
oblast3 =List1!$A$13:$A$17
A makro značně jednodušší ale už ne obecné, pokud vložíš sloupec do pojmenované oblasti musíš makro měnit:

Sub VyberA()
For Each Oblast In Names
If Not Intersect(ActiveCell, Range(Oblast)) Is Nothing Then
Hodnota = Oblast.Name & vbCrLf
For Each bunka In Range(Oblast)
Hodnota = Hodnota & bunka & " " & bunka.Offset(0, 3) & vbCrLf
Next bunka
MsgBox (Hodnota)
End If
Next Oblast
End Sub
citovat