Kopiermakro abändern
WalterK
der folgende Code kopiert mir die Zeile mit der Zeilennummer, die ich in AZ40 anführe, bis zu der Zeile, in der in Spalte C etwas drin steht.
Kann mir jemand den Code so abändern, dass bis zu der Zeilennummer kopiert wird, die ich in Zelle AZ41 anführe.
Hier der Code:
Sub SVCopy()
Dim rng As Range
Dim varC As Variant
varC = Sheets("Auswertung").Range("AZ40").Value 'Tabellenblattname anpassen!
If Not IsNumeric(varC) Then varC = 1
With ActiveSheet
.Protect UserInterFaceOnly:=True
Set rng = .Cells(Rows.Count, 3).End(xlUp).EntireRow
varC = varC - rng.Row
If varC Besten Dank für die Mühe und Servus, Walter