Zeilen kopieren mit verschieden Endungen

[sandjar]

Hallo Zusammen,

ich benötige Eure Hilfe, ich möchte aus einer Tabelle 1) mit verschiedenen Artikelnummer eine Tabelle 2) generieren mit Grössen Angaben. Wie bekomme ich das hin. Danke Sandjar


1)
a
b
c
d
e

2)
a-xs
a-s
a-m
a-l
a-XL
a-XXL
b-xs
b-s
b-m
b-l
b-XL
b-XX
.
.
.

[WillWissen]

Hi,

stell uns bitte eine Beispieldatei (.xlsx - keine Bildchen) vor und trage ein paar Wunschergebnisse händisch ein. Alleine aufgrund deiner Beschreibung kann ich nicht erkennen, was du genau meinst.
Lies bitte dieses: https://www.clever-excel-forum.de/thread-326.html

[sandjar]

Hallo Zusammen,

hier nochmal dazu die Beispiel Tabelle

[MisterBurns]

Hallo sandjar,

füge diesen Code in das Modul der Tabelle ein:

Code:

Sub Umschreiben()
Dim i As Long, last As Long

last = Cells(Rows.Count, 1).End(xlUp).Row

For i = last To 2 Step -1
   Rows(i + 1 & ":" & i + 2).Insert shift:=xlDown
   Rows(i).Copy
   Rows(i + 1 & ":" & i + 2).PasteSpecial Paste:=xlAll
   Cells(i, 1) = Cells(i, 1) & "-s"
   Cells(i + 1, 1) = Cells(i + 1, 1) & "-m"
   Cells(i + 2, 1) = Cells(i + 2, 1) & "-l"
Next

End Sub

[sandjar]

Hallo Berni,

leider komme ich mit Deinem Tipp nicht weiter. Ich weiss, wie man Formel/ Funktionen eingibt bei XLS, aber nicht Mode.

Kannst Du es mir nochmal weiterhelfen.

Danke Sandjar

[MisterBurns]

Na klar, kein Thema.
Unterhalb deiner Tabelle hast du ja die ganze Blätter (Tabelle1, Tabelle2 usw.). Bei dem betreffenden Blatt klickst du mit der rechten Maustauste auf den Blattnamen und wählst "Code anzeigen".
Es öffnet sich der VBA-Editor. Normalerweise solltest du jetzt ein großes weißes - sprich unbeschriebenes - Feld vor dir haben. Genau dort fügst du den von mir geschriebenen Code ein, einfach eins zu eins kopieren.

Nun setzt du den Mauszeiger an eine ganz beliebige Stelle innerhalb des Codes und drückst die Taste F5. Dadurch wird das Makro ausgeführt. Nun sollte deine Tabelle wie gewünscht aussehen.

[sandjar]

Hallo Berni,

leider kommt jetzt die Fehlermeldung:

FEHLER BEIM KOMPILIEREN

AU?ERHALB EINER PROZEDUR UNGÜLTIG

[WillWissen]

Hi sandjar,

hier mal eine Formellösung:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E
2	Artikelnummer	Beschreibung	Preis		Art.-Nr NEU
3	a	KLEID	10		a-s
4	b	KLEID	10		a-m
5	c	KLEID	10		a-l
6	d	KLEID	10		b-s
7	e	KLEID	10		b-m
8					b-l
9	Artikelnummer	Beschreibung	Preis		c-s
10	a-s	KLEID	10		c-m
11	a-m	KLEID	10		c-l
12	a-l	KLEID	10		d-s
13	b-s	KLEID	10		d-m
14	b-m	KLEID	10		d-l
15	b-l	KLEID	10		e-s
16	c-s	KLEID	10		e-m
17	c-m	KLEID	10		e-l
18	c-l	KLEID	10
19	usw.

Zelle	Formel
E3	=WENNFEHLER(INDEX($A$3:$A$7;ZEILE()/3)&"-"&WENN(KÜRZEN(ZEILE(A3))/3=GANZZAHL(KÜRZEN(ZEILE(A3))/3);"s";WENN(--RECHTS(KÜRZEN(ZEILE(A3))/3;2)=33;"m";"l"));"")

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[MisterBurns]

Sieht es auch wirklich so aus wie auf meinem Bild? Vergleiche bitte Zeile für Zeile!

Zur Sicherheit habe ich es mal eingebaut in deine Testdatei.

[sandjar]

DANKE !!! GÜNTHER!!

Jetzt musst Du mir noch dabei helfen, dass er die Information aus den Spalten B & C ohne Änderungen mit übernimmt.