Supportnet / Forum / Tabellenkalkulation

Ich habe text, der sich in unterschiedlich vielen aufeinanderfolgenden Zeilen einer Spalte befindet. Diesen Text möchte ich in einem Feld verkettet (aneinandergefügt) haben. Das Kommando: VERKETTEN(A1;A2) hilft mir nicht richtig weiter. Wer hat einen Tip?

=a1&a2

vadder

Hallo Namensloser,

was spricht gegen verketten?

Gruß Hajo

Namenlos=Kurt


Danke für die Infos.

gegen WERKETTEN spricht: ich habe in einer Tabelle ca. 1000 Texte, die aus unterschiedlich vielen Zeilen in einer Spalte bestehen, die zusammengefasst werden sollen in einem Textfeld.
Bei VERKETTEN muss man jedes Feld als Paramezet angeben (A10;A11;A12 usw.)
Ein grosser Schritt wäre schon, wenn ich die Verkettungsanweisung variabel gestalten könnte, sprich: Startfeld Operator Endfeld (analog zu Summe)
Habe ich aber nicht rausgefunden.

Gruss Kurt

Hallo Kurt,

da hast Du mit Formeln schlechte Katen.
Folgendes Makro (was Du evtl. noch anpassen musst) sollte Dir helfen.

Option Explicit

Sub verketten()
    Dim rngC As Range, rngBer As Range, strText As String
    Set rngBer = Range("A" & InputBox("Startzeile") & ":A" & InputBox("Zielzeile"))
    strText = ""
    For Each rngC In rngBer
        strText = strText & rngC.Value
    Next
    Range("B1").Value = strText
End Sub

Im Moment wird Spalte A abgefragt und das Ergebnis in B1 ausgegeben.

Gruß
Rainer

Hallo Rainer,

danke, Dein Tip war gut ...:-)
Um praktikabel zu werden müssten die selektierten Felder bearbeitet werden und das Ergebnis relativ abgelegt werden, z.B. neben dem Startfeld.
Also... eine Denkübung für eine ruhige Minute ...


Gruss

Kurt

Hallo Kurt,

hier die Änderung

Option Explicit

Sub verketten()
    Dim rngC As Range, rngBer As Range, strText As String
    Dim lngStart As Long, lngZiel As Long
    lngStart = InputBox("Startzeile")
    lngZiel = InputBox("Zielzeile")
    Set rngBer = Range("A" & lngStart & ":A" & lngZiel)
    strText = ""
    For Each rngC In rngBer
        strText = strText & rngC.Value
    Next
    Range("B" & lngStart).Value = strText
End Sub

Gruß
Rainer

Hallo Rainer,

danke, das ist schon sehr gut.

Gruss

Kurt

Vielen Dank an alle für die Hilfe.

Hallo Rainer,
Ich hatte noch nicht die Ruhe weiterzumachen, aber ich glaube du hast mich auf den Trichter gebracht, mich in Zukunft mit Macro-Programmierung zu befassen.

Schönen Gruss

Kurt

• Excel Probleme mit "Wenn oder Wenn" Verkettung
• Zellen verbinden in Excel - nicht möglich
• in excel zellen verbinden, ohne inhalte zu löschen
• Zählenwenn jede n-te Zelle