nach doppelklick daten in ein anderes Tabellenblat
28.01.2016 17:56:55
Peter
ich hoffe(ich weis)es kann mir jemand helfen.
dieses macro soll bei doppelklick in spalte a ,die daten in ein anderes Tabelleblatt schreiben.Im gleichen Blatt geht es aber nicht in ein anderes.
gruss peter
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim schlNr
Dim Bezeich
Dim Ort
ActiveSheet.Unprotect (" ")
Dim strDir As String
Cancel = True
If Target.Column 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
schlNr = ActiveCell(1, 1)
Bezeich = ActiveCell(1, 2)
Ort = ActiveCell(1, 3)
Sheets("Tabelle2").Select
Range("A13") = schlNr
Range("b13") = Bezeich
Range("c13") = Ort
ActiveSheet.Protect (" ")
End Sub