Formelerweiterung nach einfügen einer Spalte

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Und zwar auch mit nur einer Fml, die von N2 in alle Ergebniszellen kopiert wdn kann:

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q
1		3200 Druckgaspackungen	3201 entzündbare Arbeitsstoffe	3202 organische Peroxide	Reizungen	Vergiftungen	Verätzung	Nassspritzkabine	Trockenspritzkabine	Laborabzug	Von Anfang an sicher arbeiten (BG Chemie, A005)	Übersicht PSA (PSA-Aushänge)	Aushang Hautschutzplan	Zusammenfassung grau	Zusammenfassung gelb	Zusammenfassung blau	Zusammenfassung rot
2	Sascha		X			X			X					3201 entzündbare Arbeitsstoffe	Vergiftungen	Trockenspritzkabine
3	Moritz		X		X	X	X	X			X	X	X	3201 entzündbare Arbeitsstoffe	Reizungen; Vergiftungen; Verätzung	Nassspritzkabine	Von Anfang an sicher arbeiten (BG Chemie, A005); Übersicht PSA (PSA-Aushänge); Aushang Hautschutzplan
4	Joschua				X	X	X		X		X	X	X		Reizungen; Vergiftungen; Verätzung	Trockenspritzkabine	Von Anfang an sicher arbeiten (BG Chemie, A005); Übersicht PSA (PSA-Aushänge); Aushang Hautschutzplan
5	N2[:Q4]: {=VJoin(WENN(INDEX(($B2:$D2;$E2:$G2;$H2:$J2;$K2:$M2);;;SPALTE(A2))="x";INDEX(($B$1:$D$1;$E$1:$G$1;$H$1:$J$1;$K$1:$M$1);;;SPALTE(A2));"");"; ";-1)}

Feedback nicht unerwünscht! Gruß, Luc :-?
Besser informiert mit …

Public Function Vjoin(Bereich_Kriterium, Kriterium, Bereich_Verketten) Dim mydic As Object Dim L As Long Set mydic = CreateObject("Scripting.Dictionary") For L = 1 To Bereich_Kriterium.Count If Bereich_Kriterium(L) = Kriterium Then mydic(L) = Bereich_Verketten(L) End If Next Vjoin = Join(mydic.items, ", ") End Function

…Sascha,
an XlFktt kannst du ja auch nicht nach Belieben rumverändern. Eine eigene UDF kannst du aber gern verwenden (toll und Lob, dass du dich da reingedacht hast, und sogar mit einem Dictionary - meine verwendet keins! ;-]), nur sollte die dann auch etwas anders (KlBst statt GrBst reicht nicht!) heißen, damit kein Wirrwarr entsteht.
Meine AW war an Werner gerichtet, weshalb ich keinen Link-Hinweis geschrieben hatte, denn der kennt die ja. Die letztveröffentlichte Version meiner UDF ist 1.4, die aber nur in einigen hochgeladenen BspDateien zu finden ist (inkl KurzErläuterung). Bei RECHERCHE im Archiv findest du aber genug Hinweise und Links auf solche Dateien. Die Original-UDF (Vs1.4) ist übrigens deutlich länger als deine und mit der bisher unveröffentlichten Vs1.5 wieder etwas länger, was bedeutet, sie kann noch mehr als ihre Vorgänger.
Gruß, Luc :-?

Sub FormelnAktualisieren() Dim dic As Object Dim Zelle As Range Dim AnzZeilen As Long Dim ID As Long Set dic = CreateObject("Scripting.Dictionary") AnzZeilen = WorksheetFunction.CountA(Columns(1)) For Each Zelle In Rows(1).SpecialCells(xlCellTypeConstants, 2) ID = Zelle.Interior.Color If Zelle.Value Like "Zusammenfassung*" Then If dic.exists(ID) Then Zelle.Offset(1, 0).Resize(AnzZeilen).FormulaR1C1 = "=Mid(" & Mid(dic(ID), 2) & ",3,9999)" Else Zelle.Offset(1, 0).Resize(AnzZeilen).ClearContents End If Else dic(ID) = dic(ID) & "&IF(RC" & Zelle.Column & "=""x"",""; ""&R1C" & Zelle.Column & ","""")" End If Next End Sub

Beliebteste Forumthreads (12 Monate)

Formelerweiterung nach einfügen einer Spalte

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

320 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formelerweiterung nach einfügen einer Spalte

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

320 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread