Hallo Liebe VBA Experten,
habe ein Problem bzgl. einer Schleife. Muss dazu sagen, dass ich absoluter Neuling in VBA bin.
Es geht um folgendes:
For t = 3 To AnzZeilen
Sheets(1).Activate
WertA = Cells(t, 16).Value
If WetA<WertB Then
t = t + 1
ElseIf WertA>= WertB
Worksheets("Statistik").Cells(2, 2).Value = Cells(t, 27).Value
Worksheets("Statistik").Cells(2, 3).Value = Cells(t, 11).Value
Worksheets("Statistik").Cells(2, 4).Value = Cells(t, 39).Value
Worksheets("Statistik").Cells(2, 5).Value = Cells(t, 1).Value
End If
Next
Und zwar sollen hier in 2 Tabellen 2 Werte miteinander verglichen werden. Sobald der WertA >=WertB ist, will ich diese Zeile speichern und aus dieser Zeile weitere Werte in eine gemeinsame Tabelle schreiben.
Hoffe ihr könnt mir helfen..Vielen Dank schon mal im Voraus
MfG sanv0
|