Nach mehreren Stunden der Versuchen schaffe ich es nicht in das zweite Blatt "Aushang" die Werte aus dem Blatt "Jänner"(ist das ActiveSheet) Spalte "A" zu übertragen.
Hat vielleicht jemand `nen Tipp?
Verwendeter code:
Sub Übertrag() Dim SheetZiel As Worksheet, iRow As Integer, iCol As Integer, iRowZiel As Integer, iColZiel As Integer Set SheetZiel = Sheets("Aushang") SheetZiel.Range("a5:a72").ClearContents iCol = 1 iColZiel = 1 For iRow = 4 To 132 Step 2 For iRowZiel = 5 To 71 Step 2 If Cells(iRow + 1, 2).Value > 0 Then With SheetZiel .Cells(iRowZiel, iColZiel).Value = Application.Proper(Cells(iRow, iCol).Value) .Cells(iRowZiel + 1, iColZiel).Value = Cells(iRow + 1, 2).Value End With End If Next Next End Sub
Grüsse Lorenz