Office: (Office 2016) Mit Hilfe von VBA verschiedene Zellen immer neu verketten

Hallo Zusammen,

ich hoffe jemand kann mir helfen.

Mit VBA möchte ich in Spalte F die Werte aus Spalte A ausgegeben bekommen, jedoch nicht doppelt sondern immer nur einfach.

Anhand des Wertes in Spalte F soll dann in Spalte G eine Verkettung von Spalte B (immer nur der Wert 01) und Spalte C (alle Werte bis einschl. 45) ausgegeben werden.

Lässt sich sowas machen? Die Tabellen sind immer unterschiedlich lang.
Vielen Dank schonmal!

Als Beispiel habe ich eine Tabelle angehangen

Den Anhang Beispiel Tabelle.xlsx betrachten

 

Hi,

meinst du so etwas:

Code:

Sub Zusammen()
    Dim lngZeile As Long
    Dim rngSuche As Range
    Dim lngAnzahl As Long
    For lngZeile = 2 To IIf(IsEmpty(Cells(Rows.Count, 6)), Cells(Rows.Count, 6).End(xlUp).Row, Rows.Count)
        Set rngSuche = Columns(1).Find(Cells(lngZeile, 6), lookat:=xlWhole)
        If Not rngSuche Is Nothing Then
            lngAnzahl = Application.CountIf(Columns(1), Cells(lngZeile, 6)) - 1
            Cells(lngZeile, 7) = "'" & _
                CStr(Join(Application.Transpose(Range(Cells(rngSuche.Row, 2), Cells(rngSuche.Row + lngAnzahl, 2))), "") & 45)
        End If
    Next lngZeile
End Sub

Bis später,
Karin

 

Hallo Karin,

vielen Dank für deine Hilfe.
Leider passiert beim Ausführen gar nichts. Das scheint leider noch nicht die Lösung meines Problems zu sein.
Ich versuche es mal weiter - oder hast du vielleicht noch eine andere Idee wie es laufen könnte?

Danke und liebe Grüße,
Smokey

 

Hi,

du hast die Inhalte der Spalte G gelöscht, bevor du das Makro ausgeführt hast? Der Code macht genau das was du erreichen willst - andernfalls hätte ich ihn nicht gepostet.

Bis später,
Karin

 

Hi Karin,

stimmt du hast vollkommen Recht. Jetzt funktioniert es einwandfrei.
Vielen lieben Dank für deine Hilfe!

Liebe Grüße,
Smokey