Hallo bräüchte hilfe bei einer Schleife .. Bekomms einfach nicht hn..
tab1letzte = letztespalte in Tabelle 1 z.b 34
Do Until Range("Tabelle1[[#Headers],[LAA]]").Rows = tab1letzte
offs2 = Range("Tabelle1[[#Headers],[LAA]]").Offset(1, ww2).Cells.Address
offs0 = Range("Tabelle1[[#Headers],[LAA]]").Offset(1, ww).Cells.Address
(r bleibt absolut)
't = "=IF(" & r & "-" & offs0 & ">=" & offs2 & ";0;1)"
'Range("Tabelle1[[#Headers],[LAA]]").Offset(1, ww).Select
'adress = Range("Tabelle1[[#Headers],[LAA]]").Offset(1, ww).Cells.Address & ":" & 'Range("Tabelle1[[#Headers],[LAA]]").Offset(letztezeile, ww).Cells.Address
'With Range(adress)
'.FormatConditions.Add Type:=xlExpression, Formula1:=t
' .FormatConditions(.FormatConditions.Count).SetFirstPriority
'
' With .FormatConditions(1).Interior
' .Pattern = xlSolid
' .PatternColorIndex = xlAutomatic
' .Color = 65280
' .TintAndShade = 0
' .PatternTintAndShade = 0
' End With
'End With
'ww = ww + 2
'ww2 = ww2 + 2
als ergebnis bei der ganzen sache soll in jeder 2. spalte die formel erweitert werden
z.b ist r=Z1, offs0 gerade zelle A1 und offs2 B1
"=IF(" & r & "-" & offs0 & ">=" & offs2 & ";0;1)"
WENN(Z1-A1">=B1"..)
LOOP
WENN(Z1-A1-B1">="C1..)
'LOOP
WENN(Z1-A1-B1-C1">="D1..)
LOOP
WENN(Z1-A1-B1-C1-D1">="E1..)
usw usw