Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1188to1192
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
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA verketten von Zellen

VBA verketten von Zellen
Zellen
Hallo,
ich möchte gerne bestimmte Zellen verketten.
Beispiel: Ab Zeile 5 (bis zum Ende) -> Spalte C bis E -> Ergebis soll in Spalte F stehen. Die einzellnen Zellen pro Zeile sollen durch ein , "Komma" getrennt werden.
Leider funkioniert mein Versuch nicht so richtig, wo hab ich da den Fehler?
Kann mir da wer helfen?
Danke und Gruß
Dirk
Dim str As String Dim i As Long Dim z As Long For z = 5 To .Cells(Rows.Count, 2).End(xlUp).Row For i = 3 To 5 str = str & .Cells(z, i).Value & ", " Next i .Cells(z, 6).Value = str Next z

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Der With-Rahmen fehlt!
13.12.2010 13:01:52
F1
F1
AW: Der With-Rahmen fehlt!
13.12.2010 13:26:27
Dirk
Hallo F1
meinst du so?
Wenn ja, geht trotzdem nicht.
Gruß Dirk
Sub verketten()
Dim str As String
Dim i As Long
Dim z As Long
With Worksheets("Tabelle1")
For z = 5 To .Cells(Rows.Count, 2).End(xlUp).Row
For i = 3 To 5
str = str & .Cells(z, i).Value & ", "
Next i
.Cells(z, 6).Value = str
Next z
End With
End Sub

AW: VBA verketten von Zellen
13.12.2010 13:10:32
Zellen
HAllo Dirk
Versuch mal so:
Tabelle1

 CDEFG
5OMGO,M,G 
6UIFU,I,F 
7EVDE,V,D 
8HURH,U,R 
9PDWP,D,W 
10BDUB,D,U 
11HXLH,X,L 
12NJEN,J,E 
13ERAE,R,A 
14YXXY,X,X 
15LLGL,L,G 
16     

Formeln der Tabelle
ZelleFormel
F5=joinen(C5:E5;",")


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
' **********************************************************************
' Modul: Verketten Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function joinen(Bereich As Range, Optional Trenner As String = " ")
    Dim a() As Variant
    Dim zellen As Range
    Dim L As Long
    Redim a(Bereich.Count)
    For Each zellen In Bereich
        If zellen.Text <> "" Then
            a(L) = zellen.Text
            L = L + 1
        End If
    Next
    Redim Preserve a(L - 1)
    joinen = Join(a, Trenner)
End Function


ransi
Anzeige
AW: VBA verketten von Zellen
13.12.2010 13:22:56
Zellen
Hallo ransi,
vielen Dank für die Function, klappt so prima :-)
Würde es aber gerne über ein "Makro" lösen, da die Verkettung immer dann ausgelöst werden soll, wenn im Bereich Spalte C bis E Werte oder Veränderungen eingetragen werden.
Hast du da auch eine Idee für?
Danke
Gruß Dirk
AW: VBA verketten von Zellen
13.12.2010 13:31:31
Zellen
Hallo Dirk
da die Verkettung immer dann ausgelöst werden soll, wenn im Bereich Spalte C bis E Werte oder Veränderungen eingetragen werden.
Genau das ist doch der Sinn der Funktion...
Teste mal
ransi
Wert statt Formel
13.12.2010 13:37:46
Dirk
Hallo ransi,
ja, ganau das macht die Function!
Nur würde ich gerne nur das Ergebnis in der Zelle stehen haben und nicht die Function selbst (=joinen(C5:E5;",")).
Danke
Gruß Dirk
Anzeige
...und warum nur, bitteschön?! :-X owT
13.12.2010 14:01:06
Luc:-?
:-?
Fehler:VBA statt einfache C1&","&D1 Formel (owT)
13.12.2010 13:30:24
Renee

Lösung gefunden :)
13.12.2010 14:56:03
Dirk
Hallo,
habe eine Lösungsvariante gefunden :)
Danke für die Unterstützung!
Gruß Dirk
Private Sub Worksheet_Change(ByVal Target As range)
Dim str As String
Dim rng As range
Dim i As Long
Set rng = range("C5:E" & Cells(Rows.Count, 2).End(xlUp).Row)
If Target.Cells.Count = 1 And Not Application.Intersect(rng, Target) Is Nothing Then
Application.EnableEvents = False
For i = 3 To 5
str = str & Cells(Target.Row, i).Value & ","
Next i
Cells(Target.Row, 6) = str
End If
Application.EnableEvents = True
End Sub

Anzeige

21 Forumthreads zu ähnlichen Themen

VBA, Text beliebig verketten
Mörfi

Hallo ihr Excelexperten,
Ich habe den Inhalt einer PDF-Datei kopiert und in Excel mit STRG+V eingefügt.
Leider steht jetzt jede Textzeile in je einer Excelzelle in Spalte A.
Ich möchte aber ganze Absätze in einer Zelle haben.
(Formatierung über "Zellen verbinden" scheint keine L...
18.08.2011 18:18:33
Thread-ID: 1226652
3 Beiträge
Anzeige
Textdatei mit Trennzeichen |
Andre´

Hallo alle zusammen,
ich möchte gern mit einem Makro bestimmte Werte aus einer Textdatei in Excel schreiben.
hier eine TXT-Bsp.Datei: https://www.herber.de/bbs/user/85398.txt
und nachfolgend die Exceldatei mit den Werten die ausgelesen werden sollen
https://www.herber.de/bbs/us...
19.05.2013 09:51:08
Thread-ID: 1313837
5 Beiträge
Textbox mit 1000er-Trennzeichen - Ausgabefehler
Florian

Hallo zusammen,
ich habe eine Userform, die mehrere TextBoxen enthält, in die Zahlen eingegeben werden. Zu besseren Lesbarkeit wurde von den Nutzern ein 1000er-Trennzeichen gewünscht. Soweit so gut. Nun ist es aber so, dass sich die Ausgabewerte der TextBoxen unterschiedlich verhalten, obwo...
05.09.2014 10:25:18
Thread-ID: 1380061
15 Beiträge
Anzeige
Text verketten mit Bedingung
Markus

Hallo,
ich suche dringend nach einer Lösung für folgendes Problem:
Ich habe eine Zelle (B10) auf Blatt 1 und eine Liste mit zwei Spalten auf Blatt 2.
Zelle A10 auf Blatt 1 enthält einen bestimmten Wert, der unterschiedlich oft in der Liste auf Blatt 2 (Spalte A) erscheinen kann....
16.02.2016 17:16:45
Thread-ID: 1475853
6 Beiträge
Textdatei mit Trennzeichen einlesen
Jens

Hallo,
kann mir wer beim Einlesen von Inhalten einer Textdatei helfen.
Zwischen den einzelen Textinhalten gibt es ein trennzeichen "^", dass benutzt werden sollte als Kriterium für eine neue Spalte
https://www.herber.de/bbs/user/107112.xlsx
20.07.2016 11:22:03
Thread-ID: 1505358
3 Beiträge
VBA Daten verketten? Funktioniert nur teilweise??
Peter

Hallo zusammen,
ich habe ein etwas komisches Phänomen?
Ich muss für einen "Code" Daten verknüpfen B&D&L,
mach ich es manuell passt alles super.. Ergebnis: 458003043280LAU06
Mach ich es es mit VBA :
ActiveCell.FormulaR1C1 = "=RC[1]&RC[3]&RC[12]"
Range("A...
31.08.2018 09:08:57
Thread-ID: 1642524
3 Beiträge
VBA für Text aggregieren und verketten
AnBad

Ich suche ein VBA-Script, dass folgende Aufgabe erfüllt. Ich bekomme das nicht programmiert.
1) Feststellen von Textwiederholungen (Textlänge mehr als 255 Zeichen) in z.B. Spalte C,D,F, Zeilen z.B. 20 bis 1500 (Also im Script oder über Zellbezug festzulegender Bereich).
2) Einmalige Aus...
13.02.2019 16:31:15
Thread-ID: 1675387
7 Beiträge
Arbeitsblatt in Textdatei mit Trennzeichen
Rene Sanow

Hallo,ich habe folgendes Problem:Ich möchte in Excel ´97 ein Arbeitsblatt in ein Textformat mit
Trennzeichen speichern.
Allerdings soll es folgendermaßen aussehen:Nr;Name;Alter
1;Rene;22Das ganze soll ohne Anführungsstriche gespeichert werden.
Gibt es eine einfache Methode das zu b...
17.10.2002 10:40:54
Thread-ID: 170280
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
9
4
14
3
5
2
2
6
6
3
2
1
7
5
2
1
13
6
2
2