Inhalt in anderes Blatt rauskopieren
29.07.2017 16:15:25
Gustavo
vorher: https://gyazo.com/9cadd8e6ac70e564bb4010e7d8530919
nachher: https://gyazo.com/af5b5ae6d3304c65269c324c34a732cd
Quasi einmal immer die ersten 3 Werte der b Spalte mit der a Spalte. Dazu alle markierten Felder mit a und b Spalte
'
Sub wichtige_filtern()
' lSpalte = Cells(2, Columns.Count).End(xlToLeft).Column
' For i = 1 To lSpalte Step 5
' Worksheets("Daten").Activate
' Worksheets("Daten").Range(Cells(1, i), Cells(5, i + 1)).Copy
' Worksheets("Auswertung").Activate
' If i = 1 Then
' ActiveSheet.Paste Destination:=Worksheets("Auswertung").Cells(1, 1)
' Else
' ActiveSheet.Paste Destination:=Worksheets("Auswertung").Cells(1, i - 3)
' End If
' Next i
'End Sub
So sah meine Idee aus für das erste Problem, also die 3 ersten Werte + Überschrift zu kopieren. Allerdings stimmen dann die Abstände nicht richtig. Jemand eine Idee wie ich das ganze lösen kann?