2 Spalten in eine Reihe transponieren nach gleiche
24.04.2018 07:57:41
Dorit
Dieser Beitrag wurde ebenso unter folgendem Link gepostet: http://www.vba-forum.de/Forum/View.aspx?ziel=44227-2_Spalten_in_eine_Reihe_transponieren_nach_gleichen_Werten_in_3._Spalte.
Hier ist er aber um illustrierende Bilder erweitert.
Ich bin, was VBA angeht, komplett unerfahren und trotz Tutorial vollkommen überfordert mit folgendem Problem:
Ich habe eine Tabelle mit 4 Spalten: season, uch_name (im folgenden "Fläche"), Shepherd & Livestock. Für die Flächen gibt es tw. mehr als einen Shepherd mit seinem Livestock. Die Flächen werden wiederum zu den verschiedenen seasons von unterschiedlichen Shepherds + Livestock beweidet.
Nun brauche ich eine Tabelle, in der zu jeder Fläche zu jeder season nur noch eine Zeile erstellt wird, in der die Kombis 'Shepherd + Livestock' jeweils hintereinander stehen...
Ausgangstabelle:
Zieltabelle:
Gefunden habe ich bis jetzt einen Code, um 2 Spalten in eine Zeile zu transponieren, der folgendermaßen aussieht:
Sub TransformOneRow()
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Ranges to be transform :", xTitleId, InputRng.Address, _
Type:=8)
Set OutRng = Application.InputBox("Paste to (single cell):", xTitleId, Type:=8)
Application.ScreenUpdating = False
xRows = InputRng.Rows.Count
xCols = InputRng.Columns.Count
For i = 1 To xRows
InputRng.Rows(i).Copy OutRng
Set OutRng = OutRng.Offset(0, xCols + 0)
Next
Application.ScreenUpdating = True
End Sub
Dorit
