Re: Leerzeilen mit Offset (!?) einfügen
22.04.2003 10:32:17
andre
hallo esther,
du kannst einen zähler einbauen, der die leerzeilen zählt.
den zählst du dann zur zeile dazu - beim destination...
eventuell so:If Worksheets(1).Cells(Zeile, 3) <> Worksheets(1).Cells(Zeile + 1, 3) Then
zähler=zähler+1
Worksheets(Sheets.Count).Cells(Zeile, 1) = "Summe:"
Worksheets(Sheets.Count).Cells(Zeile, 1).HorizontalAlignment = xlRight
Worksheets(Sheets.Count).Cells(Zeile, 2).Formula = "=SUM(B" & Gliederung & ":B" & Zeile - 1 & ")"
Worksheets(Sheets.Count).Cells(Zeile, 3) = ""
Worksheets(Sheets.Count).Cells(Zeile, 4) = ""
Gliederung = Zeile
End If
If Not IsEmpty(Worksheets(1).Cells(Zeile, y)) And Spalte <> Testspalte Then Worksheets(1).Cells(Zeile, Spalte).Copy Destination:=Worksheets(2).Cells(Zeile+Zähler - 1, Spalte - 3)
wenns nicht reicht, schicke mal die mappe.
gruss andre