AW: Makro Datensätze
08.11.2017 14:51:11
Rene
Geht nicht, weil aus den 2 Zeilen im INPUT 24 Zeilen im Output werden sollen.
Wenn du eine Lösung per Formel hast, kannst du das in das Beispielfile einfügen?
Ich hatte schon mal ein Makro (siehe unten) aber jetzt sind bei mir die Spalten anders und es funktioniert nicht mehr.
Sub New_Structure_erzeugen()
Application.ScreenUpdating = False
Dim ErsteZeile As Integer
Dim LetzteZeile As Integer
Dim Zellchen As Range
Dim Zielzelle As Range
Sheets("output").Select
Range("A3").Select
Set Zielzelle = Selection
Sheets("input").Select
Range("A2").Select
' ActiveCell.Offset(1, 0).Select
ErsteZeile = 3
LetzteZeile = Selection.End(xlDown).Row
For Each Zellchen In Range("A" & ErsteZeile & ":A" & LetzteZeile)
For I = 1 To 10
Range(Zellchen, Zellchen.Offset(0, 1)).Copy
Zielzelle.PasteSpecial xlPasteValues
Cells(2, 2 + I).Copy
Zielzelle.Offset(0, 2).PasteSpecial xlPasteValues
Zellchen.Offset(0, 1 + I).Copy
Zielzelle.Offset(0, 3).PasteSpecial xlPasteValues
Set Zielzelle = Zielzelle.Offset(1, 0)
Next I
Next Zellchen
Sheets("input").Select
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "!fertig!", _
vbInformation + vbOKOnly + vbDefaultButton1
End Sub