Dobrý den,

Řekněme, že mám makro pro vkládání aktuální data na konkrétní řádek při změny hodnoty

Private Sub Worksheet_Change(ByVal Target As Range)
  Select Case Target.Row
    Case 1
      'Ignore first row
      Exit Sub
  End Select
  Select Case Target.Column
    Case 3
      'Ignore column C
      Exit Sub
  End Select
  Application.EnableEvents = False
  Range("C" & Target.Row) = Date
  Application.EnableEvents = True
End Sub

Funguje správně, až na jeden problém, že je fixovaný na sloupec C. Pokud teda přidám sloupec, tak to bude stále vkládat do C, což je špatně.

To by však šlo vyřešit tím, že by výběr sloupce nebyl statický, ale udělal bych to pomocí vyhledání "Date" v prvním řádku. A při každém přidání/odebrání sloupce by se to opětovně zavolalo.

Jak to, prosím Vás, upravím, aby to tak fungovalo?

Děkuji

PS. Samozřejmě je tu stále to, co má vlastně vyhledávat, ale to považuji za naprostý detail, kdy vyhledávané slovo snadno změním.