---

Hallo,
ich bin absoluter excel und vor allem VBA Neuling.
Ich habe hier ein Problem und hoffe auf Lösungsvorschläge.

Ich habe eine Tabelle die unterschiedlich viele Spalten und Zeilen hat. Je nach Eingabe.

Durch "Knopfdruck" sollen nun a) alle Spalten einer Reihe (insofern die Spalte beschrieben ist) in einer zusammengefasst werden. Das gilt für alle Zeilen der Tabelle. Die Zusammengefassten Zeilen sollen dabei in ein neues sheet kopiert werden welches den Namen der 1. Spalte und Zeile der Ursprungstabelle erhalten soll.

Bsp:

Tabelle1:

Serie1 Test1 Test2 Test3
Serie1 Test4 Test5 Test6 Test7

Neues Blatt soll somit Serie1 heissen.
Neue Tabelle soll so aussehen

Serie1_Test1_Test2_Test3
Serie1_Test4_Test5_Test6_Test7

Hoffe auf Rat.
Die Ursprungstabelle wird letztendlich als Eingabemaske dienen. Je nachdem sind das 14-20 Einträge pro Spalte, und es können bis zu 200 Reihen sein.

Viele Grüße,
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Verketten_226_001816.zip

Hallo Thomas und Willkommen im Forum

Hier ein Beispiel wie es gehen könnte...

Code:

---

Option Explicit

'Funktion zu verketten von Zellen mit Trennzeichen
Function Verketten2(ByRef bereich As Range, Trennzeichen As String) As String
    Dim rng As Range

    For Each rng In bereich
        If rng <> "" Then
            Verketten2 = Verketten2 & rng & Trennzeichen
        End If
    Next

    If Len(Verketten2) > 0 Then
        Verketten2 = Left(Verketten2, Len(Verketten2) - Len(Trennzeichen))
    End If
End Function

Sub Start()

    Dim oldsheet As Worksheet
    Dim newsheet As Worksheet
    Dim x As Integer

    Set oldsheet = ActiveSheet
    Set newsheet = Sheets.Add(After:=Worksheets(Worksheets.Count))

    newsheet.Name = oldsheet.Range("A1").Value

    'Für 200 Zeilen
    For x = 1 To 200
        'Fur 20 Spalten
        newsheet.Cells(x, 1).Value = Verketten2(oldsheet.Range(oldsheet.Cells(x, 1), oldsheet.Cells(x, 20)), "_")
    Next

End Sub

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo tstoll und Willkommen bei CAD.de,

ich finde es gut, dass Du Dich mit Makros beschäftigen möchtest. Allerdings würde es (für den Einstieg) ausreichen, mit Bordmitteln zu arbeiten: In Deinem zweiten Register bereitest Du die Formeln vor, die Dir die Zellinhalte verküpfen:

=Tabelle1!A1&" etwas Text"&Tabelle1!A2

20 Einträge, 200 Zeilen? Überschaubar, würde ich sagen.

(BTW: Mich verwirren Deine Bezeichungen ein wenig. Was meinst Du mit "Reihen"? Zeilen, also die waagrechten Elemente? Spalte = senkrecht, und Zelle = Schnittpunkt aus Zeile und Spalte  . Alles klar?)

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP