Anzeige
Archiv - Navigation
1724to1728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Formel und schleife VBA

Formel und schleife VBA
25.11.2019 14:56:34
xxFreestylexx
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Doppelt. owT
25.11.2019 14:57:42
SF
Anzeige

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige