Code umkehren
22.09.2002 15:21:31
Jens
ich habe folgendes Problem: mit nachfolgendem Code kopiere ich die Werte der Spalten 1 bis 5 ab der Zeile 2 bis zur letzten gefüllten Zeile in eine TB"Speicher" in die erste freie Zeile.
Nun möchte ich eine Möglichkeit haben die Prozetur umzukehren.
Wer kann helfen?
Sub MehrFachAuswahl()
Application.ScreenUpdating = False
Zellen_verbinden_aufheben
Dim rngAct As Range
Dim intRow As Integer, intCol As Integer
With Worksheets("Speicher")
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(Cells(2, 1), Cells(Range("A10").End(xlDown).Row, 5)).Cells
intCol = intCol + 1
rngAct.Copy
.Cells(intRow, intCol).PasteSpecial Paste:=xlValues
Next rngAct
End With
Zellen_verbinden
Application.ScreenUpdating = True
End Sub
Danke im voraus Jens