Für VBA-Kenner sicher nur ein kleines Problem, für mich ein großes.
In nachstehender Schleife soll der Inhalt der Zellen "Range("B18:AJ18")" eingefügt werden, so dass bei jedem Durchlauf zuerst dieser Inhalt in die nächste Zeile geschrieben wird.
nRow = 19 ' = Startzeile
calcMode = Application.Calculation
Application.Calculation = xlCalculationManual
For i = 12 To Sheets("Nachtragsübersicht").UsedRange.Rows.Count
If Sheets("Stellungnahme BÜ").Cells(i, 2).Value "" Then ' Stellungnahme BÜ übetragen
Sheets("Nachtragsübersicht").Cells(nRow, 3).Value = Sheets("Stellungnahme BÜ").Cells(i, 2).Value
Sheets("Nachtragsübersicht").Cells(nRow, 9).Value = Sheets("Stellungnahme BÜ").Cells(i, 8).Value
Sheets("Nachtragsübersicht").Cells(nRow, 10).Value = Sheets("Stellungnahme BÜ").Cells(i, 10).Value
Sheets("Nachtragsübersicht").Cells(nRow, 11).Value = Sheets("Stellungnahme BÜ").Cells(i, 9).Value
Sheets("Nachtragsübersicht").Cells(nRow, 33).Value = Sheets("Stellungnahme BÜ").Cells(i + 1, 11).Value
nRow = nRow + 1
End If
Next i
Vielen Dank für die Hilfe und liebe Grüße: Konni