Aufbau ändern

Forumthread: Aufbau ändern
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Aufbau ändern

Aufbau ändern

Sibylle

Hallo,
ich bitte um Hilfe bei folgender Aufgabenstellung:
Userbild

Besten Dank im voraus.
Gruß
Sibylle

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Aufbau ändern

Josef
Aufbau ändern mit VBA

Erich

AW: Aufbau ändern

26.09.2009 20:23:03

Josef

Hallo Sibylle,
F2 nach unten, G2 nach unten und rechts kopieren.
Tabelle1

	A	B	C	D	E	F	G	H	I	J	K
1	ArtikelNr	TeileNr				ArtikelNr	TeileNr
2	1010	7				1010	7	9
3	1010	9				1012	3
4	1012	3				1013	11	18	19
5	1013	11
6	1013	18
7	1013	19

Formeln der Tabelle

Zelle	Formel
F2	{=WENN(SUMME(WENN(A$2:A$100="";0;1/ZÄHLENWENN(A$2:A$100;A$2:A$100))) < ZEILE(A1); "";INDEX($A$2:$A$100;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(A$2;;;ZEILE($1:$100)); A$2:A$100)=1;ZEILE($1:$99)); ZEILE(A1))))}
G2	{=WENN(ZÄHLENWENN($A$2:$A$100;$F2)<SPALTE(A1); "";KKLEINSTE(WENN($A$2:$A$100=$F2;$B$2:$B$100); SPALTE(A1)))}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Matrix verstehen

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Gruß Sepp

Aufbau ändern mit VBA

26.09.2009 20:41:21

Erich

Hi Sibylle,
wenns auch VBA sein darf (in ein normales Modul): Option Explicit Sub TxtSammAB_EF() Dim zz As Long, zE As Long Dim varA As Variant, varN As Variant, strF As String Columns(6).NumberFormat = "@" zE = 1 varA = Cells(2, 1) For zz = 2 To Cells(Rows.Count, 1).End(xlUp).Row + 1 varN = Cells(zz, 1) If varN = varA Then If Not IsEmpty(Cells(zz, 2)) Then If strF "" Then strF = strF & ", " strF = strF & Cells(zz, 2) End If Else zE = zE + 1 Cells(zE, 5) = varA If strF "" Then Cells(zE, 6) = strF Else Cells(zE, 6).ClearContents varA = varN If Not IsEmpty(Cells(zz, 2)) Then strF = Cells(zz, 2) Else strF = "" End If End If Next zz End Sub Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort