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ß