VBA- Bestellungen per Mail versenden

[Käpt'n Blaubär]

Hallo,

... und nun noch die aktuelle Datei, das wäre richtig, richtig gut

[Steffl]

Auch Hallo,

welches Worksheet ist aktiv? Und was steht in der Zelle D6?

[legiminator]

Hallo,
anbei mal die Datei in welche ich die Daten eingefügt habe. Die überflüssigen Daten habe ich der einfacheits halber gelöscht. Der fehler bleibt gleich.

Gruß flo

[00202]

Hallo, :19:

habe deinen Code nur kurz überflogen, aber da fallen schon zwei Fehler auf: :21:

1. In "Modul1" steht am Ende "Option Explicit" - das gehört da nicht hin. Wenn schon, dann als erste Zeile.

2. Beim Sortieren nimmt man keinen festen Bereich - und "ActiveSheet" hat da auch nichts verloren...

Code:

.Range("A6:L28").Sort key1:=ActiveSheet.Range("D6")

Schreibe es so...

Code:

.Range("A6").Sort key1:=.Range("D6")

So läuft es durch. Den Rest habe ich mir nicht angesehen. :21:

[legiminator]

Guten Mrogen Case,
danke für deine schnelle Hilfe. Ich hab die Änderungen eingepflegt. Nun läuft es aber nur für den "Lieferanten 1".  Kann es sein das nur der Lieferant genommen wird welcher in A6 steht? Wenn ich daraus wieder einen Bereich mache "A6:L28" geht es aber wieder nicht.  

Code:

.Range("A6").Sort key1:=.Range("D6")

An was kann es leigen?

Vielen Dank schon mal

Gruß Flo

[EbyAS]

Hallo Floh,
was hast Du denn für Probleme? Versuche die Version die ich Dir angehängt habe.
Übrigens die Fehlermeldung erscheint wegen Deiner Formatierung der Seite "Materialliste" (sehr ungewöhnlich).
Beachte!
Verbundene Zellen sortiert Excel nicht!

[legiminator]

Hallo Armin,
danke für deine überarbeitete Version. Wenn ich das Makro ausführe wird aber nur eine Email für Lieferant 1 erstellt.

Ist das bei dir anders?

Gruß flo

[EbyAS]

Hallo Floh,
habe leider nie bis zum Ende getestet. Da Du jedoch nur 2 Liferanten im Beispiel hast, ist nur einer gelaufen.
Habe den Fehler behoben. Siehe Anhang.

[legiminator]

Hallo Armin,
sehr geil! Danke.

Habe es auf die schnelle eingeplegt. Schaut gut aus. Werde heute aben noch die Bereiche entsprechend erweitern und nochmals Testen.

Gruß Flo

[legiminator]

Hallo Armin,
ich habe deinen Code nun in der Anwendung. Mir hat es nun schon öffters meine Liste zerschossen. Der Fehler im System liegt daran das beim Testen alle Lieferantennamen mit L begonnen haben. Dein Code sortiert die Spalte mit den Lieferanten alphabetisch. Wenn ich nun einen Lieferanten habe, dessen Name mit einem Buchstaben vor dem L beginnt sortiert es mir die Überschiftzeile weiter unten in der Tabelle ein.

Meine vermutung ist das der Bereich der Sortierung geändert werden muss.

Könntest du mal einen Blick daruaf werfen?


Gruß Flo