MS Excel

U Cells(1, 1) jsi neuvedl, že chceš ukládat ono pozadí.
P.

Možné řešení:
Sub vypln()
Dim pozadi As Integer
pozadi = Cells(1, 1).Interior.Pattern
Cells(1, 2).Interior.Pattern = pozadi
End Subcitovat

xlPatternHorizontal není text ale definovaná konstanta s hodnotou -4128
neřešte to přes proměnnou, řešte rovnou

Cells(1, 2).Interior.Pattern = Cells(1, 1).Interior.Pattern


edit:
už asi rozumím
Hodnota buňky je "xlPatternHorizontal"
Nemůžete do buňky napsat -4128 ?citovat

Sub vypln()
If Cells(1, 1) = "xlpatternhorizontal" Then pozadi = xlPatternHorizontal
Cells(1, 2).Interior.Pattern = pozadi
End Subcitovat

Já to, ale potřebuji jak jsem psal, text v buňce dostat do proměnné. (jako-by pomocí hodnot v buňce měnit kód.)
To podle mého názoru neuděláte. Jediná možnost je udělat tabulku např.:

xlPatternAutomatic -4105
xlPatternChecker 9
xlPatternCrissCross 16
xlPatternDown -4121
xlPatternGray16 17
xlPatternGray25 -4124
xlPatternGray50 -4125
xlPatternGray75 -4126
xlPatternGray8 18
xlPatternGrid 15
xlPatternHorizontal -4128
xlPatternLightDown 13
xlPatternLightHorizontal 11
xlPatternLightUp 14
xlPatternLightVertical 12
xlPatternNone -4142
xlPatternSemiGray75 10
xlPatternSolid 1
xlPatternUp -4162
xlPatternVertical -4166

a v ní pak pomocí vyhledávací fce přiřadit číselnou hodnotu

K čemu Vám je, že máte v listu místo čísla název konstanty? Proč tam nemůžou být ta čísla?citovat

jj tak toho jsem se bál, že to přijde:
To podle mého názoru neuděláte. Jediná možnost je udělat tabulku
Je to smutné, chtěl jsem obecně pomocí buňky měnit kód. Škoda.
Přesto mnohokráte děkuji. Naděje umírá poslední citovat