Zellenkopie bei Zellaktivierung
Robert
Habe folgenden VBA code, der den Zellwert aus einer Zelle bei Zellaktivierung in ein anderes Arbeitsblatt kopiert. Wie muss der Code verändert werden, damit weitere Zellen aus der betreffenden Zeile mit rüber in das andere Arbeitsblatt kopiert werden?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
qn_History = "workflow"
If ActiveCell.Column = 4 Then
qn_number = ActiveCell
If WorksheetFunction.CountIf(Sheets(qn_History).[b:b], qn_number) < 1 Then
Sheets(qn_History).Cells(Sheets(qn_History).[b65000].End(xlUp).Row + 1, 2) = qn_number
End If
Sheets(qn_History).Select
Sheets(qn_History).Cells(Sheets(qn_History).[b:b].Find(qn_number).Row, 3).Activate
End If
Grüße,
Robert