|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 For each verschachteln |
13.04.2022 09:18:48 |
Dennis |
|
|
|
13.04.2022 10:37:39 |
Gast85872 |
|
|
|
13.04.2022 10:38:33 |
Gast85872 |
|
|
|
13.04.2022 12:55:43 |
Dennis |
|
|
|
13.04.2022 15:46:45 |
Gast85872 |
|
|
|
13.04.2022 16:17:36 |
Dennis |
|
|
Von:
Dennis |
Datum:
13.04.2022 09:18:48 |
Views:
505 |
Rating:
|
Antwort:
|
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ß
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
For each verschachteln |
13.04.2022 09:18:48 |
Dennis |
|
|
|
13.04.2022 10:37:39 |
Gast85872 |
|
|
|
13.04.2022 10:38:33 |
Gast85872 |
|
|
|
13.04.2022 12:55:43 |
Dennis |
|
|
|
13.04.2022 15:46:45 |
Gast85872 |
|
|
|
13.04.2022 16:17:36 |
Dennis |
|
|