Thema Datum  Von Nutzer Rating
Antwort
Rot For each verschachteln
13.04.2022 09:18:48 Dennis
Solved
13.04.2022 10:37:39 Gast85872
NotSolved
13.04.2022 10:38:33 Gast85872
NotSolved
13.04.2022 12:55:43 Dennis
NotSolved
13.04.2022 15:46:45 Gast85872
*****
NotSolved
13.04.2022 16:17:36 Dennis
NotSolved

Ansicht des Beitrags:
Von:
Dennis
Datum:
13.04.2022 09:18:48
Views:
70
Rating: Antwort:
 Nein
Thema:
For each verschachteln

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ß


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot For each verschachteln
13.04.2022 09:18:48 Dennis
Solved
13.04.2022 10:37:39 Gast85872
NotSolved
13.04.2022 10:38:33 Gast85872
NotSolved
13.04.2022 12:55:43 Dennis
NotSolved
13.04.2022 15:46:45 Gast85872
*****
NotSolved
13.04.2022 16:17:36 Dennis
NotSolved