|
Hallo!
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...
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
Allerdings habe ich keine Ahnung, wie ich die Auswahl der Zellen entsprechend programmieren kann... wäre super dankbar für jede Hilfe und auch Erklärung! :-)
Dorit
|