leider komme ich gar nicht weiter. und würde mich sehr über Hilfe freuen.
Ich möchte mehrere Zeilen kopieren und diese dann durch die Werte ersetzen.
Alles was ich gelesen habe habe ich im folgenden zusammengetragen.
For z = 1 to 10
WBZ.Worksheets("Preise").Rows(Z).Copy
With WBZ.Worksheets("Preise").Rows(Z) ' Zeile Kopieren
.PasteSpecial Paste:=xlValues ' Formeln durch Werte ersetzen
.Font.ColorIndex = 1 ' Schriftfarbe auf schwarz setzen
End With
next z
Vielen Dank für die Hilfe
Lieben Gruß
Hermann