Artikelnummern erstellen, drucken

Computer: Software & Programmierung Office Software
#1

folgendes problem:

ich hab einen warenbestand in excel abgespeichert. nun wollen wir etickketten ausdrucken. die liste sieht für diesen vorgang so aus:

Artikel Nummer Menge Preis
xx-yy-01 3 35,99
xg-bg-02 5 55,99
df-rf-03 2 34,99

usw.

wie erkläre ich excel jetzt, das er mir die artikelnummer und den preis für das 1. 3x produziert, 5x für den 2. posten, 2x für den 3. usw.
die artikelnummer und den preis zusammenzuziehen ist nicht so das problem (=A1 & A2 zb.). die große frage ist wie sag ich ihm das er die artikelnummer so oft reproduziern soll wie menge angegeben ist. wenn ich eine lsite hätte, die etwa so aussähe, wäre ich schon zufrieden:

xx-yy-01 35,99
xx-yy-01 35,99
xx-yy-01 35,99
xg-bg-02 55,99
xg-bg-02 55,99
xg-bg-02 55,99
xg-bg-02 55,99
xg-bg-02 55,99
df-rf-03 34,99
df-rf-03 34,99

das kann dann das seriendruckprogram auf die eticketen bannen.

danke schon mal für die hilfe

#2

folgendes problem:

ich hab einen warenbestand in excel abgespeichert. nun wollen
wir etickketten ausdrucken. die liste sieht für diesen vorgang
so aus:

Artikel Nummer Menge Preis
xx-yy-01 3 35,99
xg-bg-02 5 55,99
df-rf-03 2 34,99

usw.

wie erkläre ich excel jetzt, das er mir die artikelnummer und
den preis für das 1. 3x produziert, 5x für den 2. posten, 2x
für den 3. usw.
die artikelnummer und den preis zusammenzuziehen ist nicht so
das problem (=A1 & A2 zb.). die große frage ist wie sag ich
ihm das er die artikelnummer so oft reproduziern soll wie
menge angegeben ist. wenn ich eine lsite hätte, die etwa so
aussähe, wäre ich schon zufrieden:

xx-yy-01 35,99
xx-yy-01 35,99
xx-yy-01 35,99
xg-bg-02 55,99
xg-bg-02 55,99
xg-bg-02 55,99
xg-bg-02 55,99
xg-bg-02 55,99
df-rf-03 34,99
df-rf-03 34,99

Sub sovielwiedaistausgabe()
 Dim startposition
 Dim schritte
 Dim multiplikatorSpalte
 Dim AnzalEintraege
 Dim StartSeite
 Dim EndSeite
 Dim CounterWert
 Dim AktuellePos
 Dim EndPos
 EndPos = 0
 AktuellePos = 1
 startposition = 1
 schritte = 1
 multiplikatorSpalte = 2
 ' Das nur für Beispiel 3 Einträge
 AnzalEintraege = 3 
 ' Bitte selber Anpassen
 StartSeite = "Tabelle1"
 EndSeite = "Tabelle2"
 For i = startposition To AnzalEintraege Step schritte
 CounterWert = Worksheets(StartSeite).Cells(i, multiplikatorSpalte).Value
 EndPos = AktuellePos + CounterWert - 1
 For ii = AktuellePos To EndPos Step schritte
 Worksheets(EndSeite).Cells(ii, 1).Value = Worksheets(StartSeite).Cells(i, 1).Value
 Worksheets(EndSeite).Cells(ii, 2).Value = Worksheets(StartSeite).Cells(i, 3).Value
 Next
 AktuellePos = EndPos + 1
 Next
End Sub
#3

erst mal, danke.

leider bin ich nicht sooo versiert in sachen VBR bzw. macros. muss ich den unten eingefügten quelltext einfach einfügen in excel (und wenn ja, wo genau)?

mfg

nicolas

#4

Manuel : ALT+F11 , dann ALT+e , dann ALT+m
da dann die funktion einfügen .
Gestartet wird die Funktion über
Extras->Makro->Makro da dann das Makro Auswählen und Ausführen anklicken.

nimm diese hier Fertig. http://abc-xyz.no-ip.org/helptheworld/Excel/Mappe1_a…

Nicht vergessen Tabelle2 leeren.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#5

hi,
habs selbst hinbekommen (über rechte maustaste->quelle anzeigen)

tausend dank, das hat mir viel handarbeit erspart!!!