Code anpassen
25.03.2003 08:04:00
Jens
wer kann mir helfen den Code anzupassen? Mit dem Code will ich alle Zeilen mit Eintrag in Spalte 1 der activen TB in TB"Speicher" kopieren. Leider erkennt der Code so nicht das korrekte Ende der Schleife. Vor der letzten gefüllten Zeile(Rechnungssumme) habe ich 3 Leerzeilen eingefügt für die bessere Darstellung. Wie kann ich den Code ändern das die schleife erst endet wenn 4 aufeinanderfolgende Leerzeilen kommen?
Sub MehrFachAuswahl()
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
End Sub
Danke für jede Hilfe
Anzeige