Guten Morgen zusammen,
folgendes Aufgabe soll mein Code lösen:
Spalte A beinhaltet Artikelnummern
Spalte B beinhaltet Bestellmenge
Nun möchte ich, dass mein Code alle Zellen (B3:B30) durchläuft und immer wenn dort eine Zahl größer >0 steht folgenden text in eine Mail schreiben:
"B3" " x " "A3"
und das ganze dann bis B30.
für die Spalte B kriege ich das hin aber die zweite Schleife für Spalte A macht mein ganzes Makro kaputt.
Am Ende soll der Text zum Beispiel so aussehen:
"A3" " x " "B3"
"A7" " x " "B7"
"A22" " x " "B22"
"A29" " x " "B29"
Folgendermaßen sieht meine Schleife zur Zeit aus:
For Each C In Worksheets("Einkaufsliste").Range("B3:B30")
If C.Value = 0 Then
'NOTHING
Else
tmp = tmp & C.Value & " x "
For Each D In Worksheets("Einkaufsliste").Range("A3:A30")
If D.Value = 0 Then
'NOTHING
Else
tmp = tmp & D.Value & vbNewLine
End If
Next
End If
Next C
Und folgendes kommt bei diesem Makro raus:
"A3" x "B3" '(so soll es überall stehen)
"B4" (so ist falsch weil mir davor "A4 und "x" fehlt)
"B5"
"B6"
...
Vielen Dank im Voraus!!!
???????Gruß
|