Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formelproblem

Formelproblem
17.10.2006 13:04:24
Thorsten
Hallo,
stehe mal wieder vor ein Problem. Falls nachstehende Erläuterung nicht ausreicht, hier die Beispieldatei.
https://www.herber.de/bbs/user/37454.xls
In Spalte "I" stehen Namen und in Spalte "H" textformatierte Zahlen.
Die Namen können mehrfach vorkommen, dazwischen sind auch Leerzeilen.
In Spalte "A" habe ich nun per Formel die Namen ohne Duplikat und Leerzeile
stehen. In Spalte "B" sollen nun alle zum jeweiligen Namen Nummern stehen mit Trennungszeichen.
Bsp.
Spalte A | Spalte B
AKP___ | 1.1.1 / 1.1.4 / 2.5.6
Für Hilfe besten Dank,
Gruß Thorsten

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formelproblem
17.10.2006 13:53:17
Erich
Hallo Thorsten,
am besten per VBA, mit dem Makro für alle Zeilen oder per Tabellenfunktion, die in der Tab. aufgerufen wird: Sub SpalteB_Ausfuellen() Dim rngZ As Range, rngS As Range, strT As String For Each rngZ In ActiveSheet.UsedRange.Columns(1).Cells strT = "" If rngZ > "" Then For Each rngS In Intersect(ActiveSheet.UsedRange, Columns(9)) If rngZ = rngS Then If strT > "" Then strT = strT & " / " strT = strT & rngS.Offset(0, -1) End If Next rngS rngZ.Offset(0, 1) = strT Else rngZ.Offset(0, 1).ClearContents End If Next rngZ End Sub Function VerketteZu(suchT As Range, suchB As Range) As String Dim rngZ As Range Application.Volatile If suchT = "" Then Exit Function For Each rngZ In Intersect(ActiveSheet.UsedRange, suchB) If rngZ = suchT Then If VerketteZu > "" Then VerketteZu = VerketteZu & " / " VerketteZu = VerketteZu & rngZ.Offset(0, -1).Text End If Next rngZ End Function Daraus entsteht dann
 AB
1AKP1.1.1 / 1.1.2 / 2.1.2 / 2.2.2 / 3.2.2 / 3.3.2 / 5.5.1
2MSW1.1.4 / 3.1.3
3LPT20.1.1

Formeln der Tabelle
ZelleFormel
A1=WENN(ZEILE(A1)>MAX(J:J);"";INDEX(I:I;VERGLEICH(ZEILE(A1);J:J;0);1))
A2=WENN(ZEILE(A2)>MAX(J:J);"";INDEX(I:I;VERGLEICH(ZEILE(A2);J:J;0);1))
A3=WENN(ZEILE(A3)>MAX(J:J);"";INDEX(I:I;VERGLEICH(ZEILE(A3);J:J;0);1))


 CD
17 per VBA-Formel:
18MSW1.1.4 / 3.1.3

Formeln der Tabelle
ZelleFormel
D18=VerketteZu(C18;I:I)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Formelproblem
17.10.2006 14:45:43
Thorsten
Hallo Erich,
hat etwas gedauert, Mittag kam dazwischen.
Ich war zwar froh, dass bisher alles ohne VBA funkte, weil ich davon Null-Ahnung habe.
Wenn dann wieder einer im Büro fragt, wie hast du denn das hingekriegt, bleibt bei VBA-Lösung nur ein "Tja" und lächeln.
Aber was soll`s. Habe beide Varianten probiert, welche natürlich beide funken.
Einseten werden ich allerdings die Funktion, weil dort ja automatisch aktuallisiert wird.
Also Besten Dank und Gruß aus Leipzig
Thorsten

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige