AW: Variabel Werte verschieben
26.06.2007 11:50:09
Beverly
Hi Heinz,
ich nehme an, du meinst verschiedene Zeilen und nicht Spalten? In diesem Fall noch eine Möglichkeit, wo du nur in einer beliebigen Spalte die zu verschiebenden Zeilen markieren musst
Sub kopieren()
Dim raBereich As Range
Set raBereich = Selection
Range("B" & raBereich.Rows(1) & ":B" & raBereich.Rows.Count + raBereich.Rows(1) - 1).Cut _
Cells(1, 1)
Range("F" & raBereich.Rows(1) & ":F" & raBereich.Rows.Count + raBereich.Rows(1) - 1).Cut _
Cells(1, 2)
Range("H" & raBereich.Rows(1) & ":H" & raBereich.Rows.Count + raBereich.Rows(1) - 1).Cut _
Cells(1, 3)
Range("K" & raBereich.Rows(1) & ":K" & raBereich.Rows.Count + raBereich.Rows(1) - 1).Cut _
Cells(1, 4)
Range("M" & raBereich.Rows(1) & ":M" & raBereich.Rows.Count + raBereich.Rows(1) - 1).Cut _
Cells(1, 5)
Range("O" & raBereich.Rows(1) & ":O" & raBereich.Rows.Count + raBereich.Rows(1) - 1).Cut _
Cells(1, 6)
Range("Q" & raBereich.Rows(1) & ":Q" & raBereich.Rows.Count + raBereich.Rows(1) - 1).Cut _
Cells(1, 7)
Range("S" & raBereich.Rows(1) & ":S" & raBereich.Rows.Count + raBereich.Rows(1) - 1).Cut _
Cells(1, 8)
Range("V" & raBereich.Rows(1) & ":V" & raBereich.Rows.Count + raBereich.Rows(1) - 1).Cut _
Cells(1, 9)
End Sub
________________________________________