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
.
.
.
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
Hallo Zusammen,
hier nochmal dazu die Beispiel Tabelle
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
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
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.
Hallo Berni,
leider kommt jetzt die Fehlermeldung:
FEHLER BEIM KOMPILIEREN
AU?ERHALB EINER PROZEDUR UNGÜLTIG
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 |
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.
DANKE !!! GÜNTHER!!
Jetzt musst Du mir noch dabei helfen, dass er die Information aus den Spalten B & C ohne Änderungen mit übernimmt.