Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1104to1108
1104to1108
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aufbau ändern

Forumthread: Aufbau ändern

Aufbau ändern
Sibylle
Hallo,
ich bitte um Hilfe bei folgender Aufgabenstellung:
Userbild
Besten Dank im voraus.
Gruß
Sibylle
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Aufbau ändern
26.09.2009 18:23:03
Josef
Hallo Sibylle,
F2 nach unten, G2 nach unten und rechts kopieren.
Tabelle1

 ABCDEFGHIJK
1ArtikelNrTeileNr   ArtikelNrTeileNr    
210107   101079   
310109   10123    
410123   1013111819  
5101311         
6101318         
7101319         

Formeln der Tabelle
ZelleFormel
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

Anzeige
Aufbau ändern mit VBA
26.09.2009 18: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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige