Schleife per vba
12.01.2004 21:20:16
Dirk
Taste mich gerade an eine schleife heran!
Leider habe ich in vba keine ahnung davon!
Grundbedingungen:
1. in Spalte A befinden sich 100 Kundennummern
2. in Spalte B sollen dann die Übertragenen Mengen stehen (natürlich auch 100)
3. Spalte C1 ist die übertragene Kundennummer (z.b. per hand eingegeben)
4. Spalte C2 ist die übertragene Anzahl (Menge) (z.b. per hand eingegeben)
Das Makro startet nach drücken eines Buttons
Es läuft eine schleife bis i= 100
Dabei wird geprüft
Wenn i = 1 ist soll eine Wenn Fkt. A1(Ai=A1) mit C1 vergleichen
Siehe unten
Wenn i = 2 ist soll eine Wenn - Fkt. A2(Ai=A2) mit C1 vergleichen
Usw.
Bis i=100 ist;
Wenn die bedingung bei irgendeinem (i) erfüllt ist, soll an die Zelle B(i) die Menge übergeben werden,
wenn Bedingung nicht erfüllt, soll nichts passieren.
------------------Nur so mal zusammengereimt--------------------
Sub test()
For Each zellen In [a1:a100]
i = i + 1
If Sheets("Tabelle2").Range("A[i]").Value = Sheets("Tabelle2").Range("C1").Value Then
Sheets("Tabelle2").Range("B[i]").Value = Sheets("Tabelle2").Range("C2").Value
End If
Next
End Sub
Vielleicht kann mir jemand bei dieser Schleife helfen!
Liebe grüsse an alle und vielen dank an alle die sich die zeit nehmen zu lesen.
Gruss
Dirk