Makro funktioniert nicht richtig
17.07.2008 19:03:06
Willi
habe ein makro welches Daten aus einer Arbeitsmappe in eine andere zeilenweise kopiert. Das Problem ist, dass ab Zeile 18 die Liste nicht weitergeführt wird und die letzte Zeile immer überschrieben wird. Weiss jemand Rat?
Sub Betraege_uebertragen()
Sheets("Berechnung").Select
Application.ScreenUpdating = False
Range("cd148:cd174").Select
Selection.Copy
Windows("Daten DSM.xls").Activate
Sheets(1).Select
Range("A2").Select
For Each Cell In Range("A2:B9")
If ActiveCell "" Then
ActiveCell(Selection.Rows.Count + 1, 1).Select
End If
Next
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Range("B2").Select
Sheets(1).Select
End Sub
Gruß Willi