Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: nach doppelklick daten in ein anderes Tabellenblat

nach doppelklick daten in ein anderes Tabellenblat
28.01.2016 17:56:55
Peter
hallo ,
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

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nach doppelklick daten in ein anderes Tabellenblat
28.01.2016 18:58:31
KlausF
Hallo Peter,
statt Sheets("Tabelle2").Select schreibe
With Sheets("Tabelle2")
.Range("A13") = schlNr
.Range("b13") = Bezeich
.Range("c13") = Ort
End With
Gruß
Klaus

AW: nach doppelklick daten in ein anderes Tabellenblat
29.01.2016 16:41:48
Peter
Hallo Klaus,
danke das du geantwortet hast.
Leider funktioniert das aber auch nicht. Er schreibt es wieder in das eigene Tabellenblatt.
Gruß Peter

Anzeige
AW: nach doppelklick daten in ein anderes Tabellenblat
29.01.2016 17:50:50
KlausF
Halo Peter,
hatte mir Deinen Code nur kurz angesehen.
Ich vermute, Du meinst die beiden neben Spalte A liegenden Zellen.
Probier mal:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim schlNr As String
Dim Bezeich As String
Dim Ort As String
ActiveSheet.Unprotect (" ")
Cancel = True
If Target.Column  1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
schlNr = Target.Value
Bezeich = Target.Offset(0, 1).Value
Ort = Target.Offset(0, 2).Value
With Sheets("Tabelle2")
.Range("A13") = schlNr
.Range("b13") = Bezeich
.Range("c13") = Ort
End With
ActiveSheet.Protect (" ")
End Sub

Gruß
Klaus
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige