Frage zum Code
17.04.2003 16:07:55
Jens
Ich habe einen Code aus dem Netz gezogen mit dem aus TB alle Zeilen die einen Eintrag in Spalte A beginnend in der Zeile1 bis zur letzten gefüllten Zelle in Spalte A dei Werte der Spalten1 bis 5 in TB Speicher kopiert werden. Wie muß der Code geändert werden das alle Zeilen ab ZelleA1 bis zur letzten gefüllten Zelle in Spalte B kopiert werden?
Sub Rechnung_speichern()
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, 2).End(xlUp).Row + 1
End If
For Each rngAct In Range(Cells(2, 1), Cells(Range("A11").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
Wer kann mir noch helfen?
Ein schönes Osterfest allen Excelfreunden Gruß Jens