---

Hallo Leute,

In meiner Stückliste sollen Aufkleber für die Bauteile erzeugt werden.
In Spalte B steht die Anzahl der Bauteile und in Spalte F die Bauteilbezeichnung.
Nun möchte ich in einem neuen Tabellenblatt die Bezeichnung X-mal (Wert aus B)hintereinander schreiben.
Beispiel: 4St Seitenanschlag/K37 bedeutet:
In Neuem Blatt in Zeile 1 von Spalte A bis D(4mal) die Bezeichnung Seitenanschlag/K37

Geht soetwas mit Befehlen oder etwa Makro/automatisch?

------------------
Gruß
    Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

mit Wenn() und Sverweis() und vorgefertigten formatierten Zellen als 'Druckvorlage', ja möglich.

[thedit] war heute morgen wohl noch etwas zu müde -und auf dem Sprung zur Arbeit... vergesse mal Sverweis() :-)

gruss thomas

[Diese Nachricht wurde von Thomas Harmening am 05. Dez. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hy Thomas,

danke für die schnelle Antwort.
Wie sieht denn so eine Verknüpfte Zeile aus mit Wenn und Sverweis?
Wenn ich das in Excel eintrage bekomme ich immer Fehlermeldungen das entweder zu viel oder nicht alle Angaben gemacht wurden.

------------------
Gruß
    Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten morgen zusammen,

in Excel gibt es einen Funktions-Assistenten. In der Symbolleiste "Standard" gibt es ein Symbol, das wie "fx" aussieht. Da klickste mal drauf.

Es öffnet sich das Fenster "Funktion einfügen". Unter "Kategorie" wählst Du "Alle" aus, rechts bei "Name der Funktion" kannst Du dann nach sverweis, wenn usw. suchen. Da bekommst Du dann auch Hilfe bezüglich der Argumente.

Gruß,
Frederik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Frederik,

das habe ich mal getestet, aber ich check die Vorgehensweise leider nicht. Ich muss ja xmal die Bezeichnung hintereinander haben.
Sverweis (Wert aus B4?, ?????
Ich komme auch mit dem Hilfetext nicht zurecht, habe dabei wohl eine Denkblockade. Es muss ja eine Schleife gesetzt werde so das ich jedesmal den Zähler um 1 reduziere und diese Bezeichnung solange in eine nachvolgende Spalte schreibe bis Null erreicht ist.

------------------
Gruß
    Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Stueckliste.xls.txt

Hallo Marco,

lade Dir mal den Anhang ´runter (Endung ".txt" entfernen). Meintest Du sowas? Ich sehe allerdings zwei "Gefahren": Die Spaltenbreite in den "Aufklebern" sowie die Stückzahl... Wenn die so an die Hundert ´rangeht, wird´s echt unübersichtlich. Da kommt dann Thomas Harmening ins Spiel: Stichwort Druckvorlage   .

Gruß,
Frederik

[Edit] Anhang macht Zicken  [/Edit]

[Diese Nachricht wurde von Paulchen am 05. Dez. 2006 editiert.]

[Diese Nachricht wurde von Paulchen am 05. Dez. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hy Frederik,

bitte das ü aus der Stückliste entfernen, ich kann die nicht runterladen. Die Stückzahl ist begrenzt auf max 8 Stück und ich bringe das in eine Art Druckvorlage. Die Zellen werde ich so anpassen das ich die auf ein Zweckformblatt bekomme.

------------------
Gruß
    Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@paulchen Stückliste = doof ; )

hier ein Ansatz per VBA:

Code:

---

Option Explicit
Public Sub NeuBlatt()
Dim i As Integer, iAnzahl As Integer
Dim sht As Worksheet
Dim strBezeichnung As String

strBezeichnung = Sheets("Tabelle1").Cells(1, 6)
iAnzahl = Sheets("Tabelle1").Cells(1, 2)
i = 1
    Sheets.Add.Name = "NeuesBlatt"
    For i = 1 To iAnzahl
        Sheets(1).Cells(1, i) = strBezeichnung
    Next i
End Sub

---

wenn's hilft?

------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@ALL,

Ihr habt meine Problematik super gelöst, Danke.....
Iht seid Profis ;-)

------------------
Gruß
    Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@runkelruebe: Ich habe Deinen Code mal an die Zellen meiner Mappe angepasst:

Code:

---

Public Sub NeuBlatt()
Dim i As Integer, iAnzahl As Integer
Dim sht As Worksheet
Dim strBezeichnung As String
strBezeichnung = Sheets("Liste").Cells(2, 6)
iAnzahl = Sheets("Liste").Cells(2, 2)
i = 1
    Sheets.Add.Name = "NeuesBlatt"
    For i = 1 To iAnzahl
        Sheets("NeuesBlatt").Cells(2, i) = strBezeichnung
    Next i
End Sub

---

Tolle Sache - nur eine Kleinigkeit: Wenn ich "Sheets(1)" in der Schleife stehen lasse, kann es passieren, daß er mir die Liste überschreibt - kommt darauf an, welches Blatt vor dem Ausführen des Makros aktiv war .

Gruß,
Frederik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP