gleichnamige Spalten zusammenführen

Forumthread: gleichnamige Spalten zusammenführen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: gleichnamige Spalten zusammenführen

27.08.2018 11:58:36

Kathrin

Hallo zusammen,
ich habe folgendes Problem, vielleicht kann mir jemand helfen.
Ich habe eine Tabelle mit folgenden Spalten:
Name, Datum, Frage 1, Frage 2, Frage 3, Frage 4, ID, die Spalten "Frage 1" bis "ID" wiederholen sich mit identischem Spaltennamen 20-mal nach rechts. Name und Datum beziehen sich auf alle folgenden Spalten.
Gibt es eine Möglichkeit, die Spalten zusammenzuziehen?
Ich hätte gerne eine Tabelle, die die Spaltennamen nur einmal enthält und die übrigen 20x4 Spalten unter den vorderen (also Frage 1 bis ID) subsummiert.
Hat jemand eine Idee, ob und wie das gehen könnte?
Danke vorab und beste Grüße
Kathrin

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

bitte Beispieldatei...

27.08.2018 12:53:16

ChrisL
AW: VBA-Code

28.08.2018 00:02:01

Fennek

bitte Beispieldatei...

27.08.2018 12:53:16

ChrisL

mit Ist- und Soll-Zustand laden.

AW: VBA-Code

28.08.2018 00:02:01

Fennek

Hallo Kathrin,
versuche diesen Code:


Sub F_en()
Dim WS As Worksheet: Set WS = ActiveSheet
If [not(isref(Total!a1))] Then Sheets.Add().Name = "Total"
For i = 2 To WS.Cells(Rows.Count, 1).End(xlUp).Row
WS.Range(Cells(i, 1), Cells(i, 2)).Name = "fen"
WS.Range(Cells(i, 1), Cells(i, 7)).Copy Sheets("Total").Cells(Rows.Count, 1).End(xlUp). _
Offset(1)
For j = 8 To 100 Step 5
Sheets("Total").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 2).Formula = "=fen"
WS.Cells(i, j).Resize(, 5).Copy Sheets("Total").Cells(Rows.Count, 3).End(xlUp).Offset(1) _
Next j
With Sheets("Total").UsedRange.Columns(1)
.Value = .Value
End With
Next i
End Sub

mfg
https://www.herber.de/bbs/user/123604.xlsm