For-Bereich mit Unterbrechungen
11.01.2008 09:46:00
Stefan
ich möchte diverse Zeilen mit einer For-Funktion kopieren.
Das Problem, das ich habe ist, dass nach einigen zu kopierenden Zeilen Zeilen mit nicht zu kopierenden Werten kommen und danach der zu kopierende Bereich neu anfängt.
Ich benötige Zeilen 7-10, 13-16, 19-22, 25-28, 31-34, 37+38, 41+42.
Mir ist bekannt, dass ich für jeden Bereich weitere Buchstaben definieren kann, dann habe ich aber ein Problem mit der Zellenauswahl, die sich bislang auf die Zeile "n" bezieht.
Nachfolgend ein Ausriss aus dem Makro:
Dim n As Integer
For n = 7 To 10 Step 1
Sheets("Erfassung").Select
If Not Cells(n, 3) = "" Then 'Bedingung: Zelle (variabel) muss Wert enthalten
Cells(n, 7).Select 'Kopie Baustelle (variabel)
Application.CutCopyMode = False
Selection.Copy
Sheets("Stunden").Select
Range("a65336").End(xlUp).Activate
a = ActiveCell.Row + 1
If a = 2 And Cells(1, 1) = "" Then a = 1
Cells(a, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.....
end if
next
End sub
Vielen Dank für die Hilfe schon im Vorraus,
mfg Stefan