ich möchte einen Range-Bereich kopieren in Abhängigkeit von einem Zellwert in unterschiedliche Arbeitsblätter. Grundsätzlich funktioniert das auch, es gibt aber eine Fehlermeldung, wenn der Doppelklick nicht in einer Zahlenzelle sondern einer Textzelle ausgeführt wird:
Die erste Zeile wird bemängelt: Laufzeitfehler 13 -Typen unverträglich
Mein Code:
... If Intersect(Sh.Range("$A$2:$N$3300"), Target) And Sh.Cells(Target.Row, 12).Value = "1" Then
Sheets("ARV1").Select
ActiveSheet.Unprotect ("passwort")
'Bereich c:g der Zeile, in die geklickt wurde, kopieren
Sh.Range(Sh.Cells(Target.Row, 3), Sh.Cells(Target.Row, 7)).Copy
'Im Blatt ARV1 in Spalte c:g anfuegen
Sheets("ARV1").Cells(lngz, 3).PasteSpecial xlPasteValues...
Gibt es eine Möglichkeit inhaltsunabhängig die ganze Zeile zu nehmen?
Vielen Dank im Voraus für Eure Hilfe. Ines