Bereich in andere Arbeitsmappe kopieren
11.04.2005 19:38:16
Frank
ich habe mal eine Makro siehe unten gefunden mit dem ich einen nicht zusammenhängenden Bereich in ein anderes Tabellenblatt kopieren kann was auch super geht, nun versuche ich aber diesen nicht zusammenhängen Bereich in eine andere Arbeitsmappe zu kopieren und bekomme das einfach nicht hin, kann mir da bitte einer einen Tipp geben wie ich das anstelle.
Sub MehrFachAuswahl()
Dim rngAct As Range
Dim intRow As Integer, intCol As Integer
With Worksheets("DATA")
If IsEmpty(.Cells(1, 1)) Then
intRow = 1
Else
intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
For Each rngAct In Range("AA1,AC1,AC2,AC3,J2,J4,G7,G8,G9,G10,G11,G12,G13,G14,G15,G16,G17,G18,D23,G26,G27,G28,G29,G31,G32,G33,G34,AA7").Cells
intCol = intCol + 1
rngAct.Copy .Cells(intRow, intCol)
Next rngAct
End With
Application.CutCopyMode = False
End Sub
Vielen Dank schon mal im Voraus.
Anzeige