Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1120to1124
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
1120to1124
1120to1124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalte mehrere Zellen

Inhalte mehrere Zellen
christian
Hallo !
Ich möchte Inhalte aus mehreren Zellen in einer Zelle zusammenfassen aber Dopplungen vermeiden.
Das Ganze sollte wie folgt aussehen:
In A1 soll alles was in A2 , A3, A4, A5 steht zusammengefasst werden. Die Inhalte in den Zellen A2-A5 sind durch ein Semikolon getrennt.
In A2 steht z.b.: SU EN NA 41; SU EN NA 42; SI EN 5;
In A3 steht z.B.: SU EN NA 41; SU EN NA 42; SI EN 7;
In A4 steht z.B.: SI EN 7; SI EN 5; GN EN 56;
Jetzt sollte in A1 nur folgendes stehen : SU EN NA 41; SU EN NA 42; SI EN 5; SI EN 7; GN EN 56;
(hinter dem letzte Wert auch ein Semikolon)
Mit =a2&a3&a4 alleine klappt das nicht ...
Wer weiß Rat ?
Viele Grüße
Christian

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

Betreff
Benutzer
Anzeige
Werte ohne Redundanzen - VBA-Lösung
26.11.2009 17:51:53
NoNet
Hallo Christian,
nur per Formeln/Funktionen lässt sich das nicht 100%ig lösen (an alle Kritiker : Iteration halte ich hier für zu unsicher !), aber per VBA ist das kein Problem. kopiere das folgende Makro in ein allgemeines Modul (z.B. "Modul1") im VBA-Editor :
Sub WerteOhneRedundanzen() Dim lngZ As Long, rngZelle As Range, strWerte For Each rngZelle In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) strWerte = Split(rngZelle.Value, ";") For lngZ = LBound(strWerte) To UBound(strWerte) If InStr([A1], Trim(strWerte(lngZ) & ";")) = 0 Then [A1] = [A1] & Trim(strWerte(lngZ)) & "; " End If Next Next End Sub Gruß, NoNet
Anzeige
AW: Inhalte mehrere Zellen
26.11.2009 18:08:55
IngGi
Hallo Christian,
NoNet war schneller, ich stell meine Lösung aber trotzdem noch hier rein, da ich das Ganze als benutzerdefinierte Funktion konzipiert habe, so dass du per Formel darauf zugreifen kannst. Kopiere den VBA-Code in ein allgemeines Modul. Dazu gehst du mit Alt+F11 in den VBA-Editor und fügst über Einfügen | Modul ein neues Modul ein.
 A
1 SU EN NA 41; SU EN NA 42; SI EN 5; SI EN 7; GN EN 56;
2 SU EN NA 41; SU EN NA 42; SI EN 5;
3 SU EN NA 41; SU EN NA 42; SI EN 7;
4 SI EN 7; SI EN 5; GN EN 56;

Formeln der Tabelle
ZelleFormel
A1=aggregat(A2:A4)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4 
Private Function Aggregat(rngBereich As Range) As String

Dim rng As Range
Dim strAusgabe As String
Dim vntArr As Variant
Dim intElement As Integer

For Each rng In rngBereich
  vntArr = Split(rng, ";")
  Redim Preserve vntArr(Ubound(vntArr) - 1)
  For intElement = 0 To Ubound(vntArr)
    If InStr(1, strAusgabe, vntArr(intElement)) = 0 Then
      If Left(vntArr(intElement), 1) <> " " Then
        strAusgabe = strAusgabe & " "
      End If
      strAusgabe = strAusgabe & vntArr(intElement) & ";"
    End If
  Next 'intElement 
  
Next 'rng 

Aggregat = strAusgabe

End Function
Code eingefügt mit VBA in HTML 2.0.0.3size>
Gruß Ingolf
Anzeige
AW: Inhalte mehrere Zellen
26.11.2009 19:32:52
christian
Hallo Ingolf, NoNet
DANKE ! Klappt super !
Viele Grüße
Christian

303 Forumthreads zu ähnlichen Themen

Word-Text auf xls-Zellen verteilen
Florian

Guten Morgen zusammen,
eine Frage: wie kann ich Word-Zeilen auf Excel-Zeilen (einzelne Zellen verteilen)?
Im Word-File habe ich z.B. den Text
Zeile1
Zeile2
Zeile3
untereinanderstehen, jetzt soll "Zeile1" in Zelle A1, "Zeile2" in Zelle B1 usw. stehen. Bsp hängt an.
Da...
18.08.2008 07:29:00
Thread-ID: 1002498
3 Beiträge
Anzeige
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Textbox auf UF dann Zellen füllen
Walter

Hall Fachfrauen und Männer,
habe ein kleines Problem bzw. Frage:
Ich habe auf einer UF eine Textbox1 wenn ich einen Wert eingebe z.b. 15,00
dann wird der Wert in meine Tabelle C10 eingesetzt.
Nun möchte ich das der Wert von C10 die Zellen mit dem gleichen Wert bis
C20 ausfül...
30.09.2008 10:27:04
Thread-ID: 1013282
11 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 10:53:15
Thread-ID: 1016793
5 Beiträge
Zelleninhalt auf Textteil überprüfen...
Jessi

Hallo zusammen,
ich bin gerade dabei meine Liste mit SVerweisen zu füllen und hänge an einem Problem:
Eine Ausgabe (über SVerweis) liefert einen Wert "String" XY_Text, ALTERN_Text oder MUSTER_Text in einer Zelle
jetzt möchte ich in einer anderen Zelle sagen:
Wenn Zelleninhalt mi...
07.11.2008 12:55:13
Thread-ID: 1022638
2 Beiträge
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
14
1
10
1
2
4
1
2
6
4
3
4
8
3
10
5
4
1
2
11
4
9
12
2