Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1160to1164
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
1160to1164
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalte mehrere Zellen in eine Zelle

Inhalte mehrere Zellen in eine Zelle
Helmut
Hallo Excel-VBA Profis,
ich möchte den Inhalt mehrerer Zellen in eine bestimmte Zelle eintragen lassen. Mit VERKETTEN geht das nicht, weil ja jedesmal die Anzahl der Zellen (mal sind es 20, mal sind es 55 usw.) variiert. Dazu kommt noch, dass nach jedem Wert einer Zelle ein Komma stehen soll und nach einer Leerstelle der neue Wert der nächsten Zelle folgen soll.
Ich denke das geht nur mit VBA. Kann mir jemand von Euch bitte behilflich sein, wie ich das lösen könnte?
Vielen Dank im voraus
Helmut

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Inhalte mehrere Zellen in eine Zelle
08.06.2010 21:30:15
Josef

Hallo Helmut
da hilft eine leine UDF.
in der Tabelle wird sie so verwendet.
 ABCD
1a a, b, d, g, h, l, m, n, p 
2b   
3    
4d   
5    
6    
7g   
8h   
9    
10    
11    
12l   
13m   
14n   
15    
16p   
17    

Formeln der Tabelle
ZelleFormel
C1=verkettenm(A1:A16;", ")


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Und in ein allgemeines Modul kommt dieser Code.

' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function VerkettenM(Bereich As Range, Optional Trenner As String = "", Optional Leerzellen As Boolean = False) As String
  Dim str As String
  Dim rng As Range
  
  For Each rng In Bereich
    If rng <> "" Or Leerzellen Then
      str = str & rng & Trenner
    End If
  Next
  
  VerkettenM = Left(str, Len(str) - Len(Trenner))
End Function

Gruß Sepp

Anzeige
AW: Inhalte mehrere Zellen in eine Zelle
08.06.2010 21:34:19
Gerd
Hallo Helmut,
der Quellbereich ist eine Zeile oder eine Spalte
oder ein Rechteck
oder diverse nicht zusammenhängende Zellen?
Bei letzten beiden: Wie soll angeordnet werden, zeilenweise oder spaltenweise?
Gruß Gerd
VBA Vorschlag
08.06.2010 21:44:29
Steffen
Hallo Helmut,
Der Nachfolgende Code verkettet die Inhalte in Spalte A und gibt sie in B1 wieder aus.
Sub Kette() Dim myArray Dim lngLastRow As Long, i As Long, n As Long With Sheets("Tabelle1") lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row myArray = .Range(.Cells(1, 1), .Cells(lngLastRow, 1)) Redim myArray(1 To Ubound(myArray, 1)) For i = 1 To Ubound(myArray) If .Cells(i, 1) <> "" Then n = n + 1 myArray(n) = .Cells(i, 1) End If Next Redim Preserve myArray(1 To n) .Cells(1, 2) = Join(myArray, ",") End With End Sub
Grüße
Steffen
Anzeige
UDF VERKETTEN2()
08.06.2010 22:38:35
NoNet
Hallo Helmut,
hier noch mein Vorschlag per VBA :
Function Verketten2(rngBereich, Optional strTrennzeichen = ", ", _
Optional bolLeerzellen As Boolean = True)
'Makro zum Verketten aller Zellen im angegebenen Bereich
'Aufruf : =VERKETTEN2(A1:E1;"-") oder =VERKETTEN2(A1:E1;", ";WAHR)
'oder :   =VERKETTEN2(A1:A15;;0)
'08.06.2010, NoNet - www.excelei.de
Application.Volatile
Dim strTmp As String, rngZelle As Range
strTmp = ""
For Each rngZelle In rngBereich
If bolLeerzellen Or rngZelle.Value  "" Then
strTmp = strTmp & rngZelle & strTrennzeichen
End If
Next
Verketten2 = strTmp
End Function
Gruß, NoNet
Anzeige

300 Forumthreads zu ähnlichen Themen

mehrere Zellen markieren verhindern
Dirk

Hallo miteinander,
brauche nochmals von Euch Hilfe, bitte.
Habe bei einer meiner Dateien eine Gültigkeitsprüfung (nur X zulassen) und vba trägt in einen Bereich beim reinklicken ein X ein, wenns schon drin ist wirds gelöscht, soweit kein Problem.
Problem: wenn man nun aus Versehen o...
03.09.2008 22:12:34
Thread-ID: 1007244
3 Beiträge
Anzeige
Mehrere Dateien in eine Tabelle zusammenfassen
Reptil

Guten Morgen zusammen.
ich weiß, ähnliche fragen waren schon häufiger hier, aber genau das was ich suche habe ich nicht gefunden.
ich habe mehrere Exceltabellen, in zwei ordnern, aus denen ich bestimmte daten in eine andere auslesen möchte. dabei sollen erstens nicht alle daten gelesen...
12.09.2008 09:46:00
Thread-ID: 1009283
6 Beiträge
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Anzeige
Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 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
mehrere Wenn abfragen in einer Formel
skippy

Hallo stehe im mom auf den schlauch
möchte gern folgende Abfrage machen krieg aber die Formel nicht hin
Wenn e7-d7>=10;2;0 wenn e7-d7>8;1,5;0 wenn e7-d7>6;1;0 wenn e7-d7>4;0,5;0
Wie muss ich die Formel schreiben, bekomme immer einen Syntaxfehler wenn ich daraus eine Fo...
01.01.2009 21:42:55
Thread-ID: 1036302
4 Beiträge
mehrere Befehle in einen Blatt
Werner

Hallo zusammen,
ich habe folgendes Problem. In einen Tabellenblatt habe ich sehr viele Makros, bei Befehlschaltflächen ist das kein Problem, jedeoch habe ich mehrere(über 100) Private Sub Worksheet_Calculate() es kommt eine Fehlermeldung Mehrdeutiger Name. Wie könnte man das Problem Lösen?...
08.01.2009 22:18:00
Thread-ID: 1038059
3 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
1
5
4
3
4
2
6
3
2
4
1
2
4
4
8
3
2
2
3
8
10
7
4
8