Fehlermeldung 1004
14.09.2018 12:39:15
Roger
Da ich in Sachen VBA noch Anfänger bin, kann ich die Fehlermeldung nicht nachvollziehen.
Ich habe zwei Tabellenblätter (Tabelle7 beinhaltet die Masterdaten und Tabelle9 ist die Resultaten Tabelle)
Nun sollen die Daten von Tabelle7 die in der Achten Spalte den Wert 2018 beinhaltet in die Tabelle9 transferiert werden. Soweit so gut. Ohne Blattschutz funktioniert das Makro perfekt. Sobald ich bei beiden Tabellen den Blattschutz aktiviere (im Moment noch ohne Code) wird der Fehler ausgegeben. Der Code ist in einem Modul abgelegt und wird auf der Tabelle7 per Button aktiviert.
Kann mir da jemand weiter helfen?
Sub BedingteKopieZeilen18()
ActiveSheet.Unprotect Password:=""
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Tabelle7
ZeileMax = .UsedRange.Rows.Count
n = 5
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 8).Value = "2018" Then
.Rows(Zeile).Copy Destination:=Tabelle9.Rows(n)
n = n + 1
End If
Next Zeile
End With
ActiveSheet.Protect Password:=""
End Sub
Gruss Roger
Anzeige