Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten per Doppelklick in neue Vorlage übernehmen

Forumthread: Daten per Doppelklick in neue Vorlage übernehmen

Daten per Doppelklick in neue Vorlage übernehmen
13.12.2016 22:49:47
Marc
Hallo
Habe hier schon mal tolle Hilfe bekommen mit folgendem Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveWorkbook.Save
If Target.Column = 2 And Target.Row > 6 Then
Cancel = True
Sheets("Rechnung").Range("F3").Value = Target.Offset(0, 12).Value
Sheets("Rechnung").Range("F4").Value = Target.Offset(0, 5).Value
Sheets("Rechnung").Range("F5").Value = Target.Offset(0, 13).Value
Sheets("Rechnung").Select
End If
End Sub
Wäre es denkbar diese Übernahmen auch in eine bestehnde Excel Vorlage zu bringen?
zB: unter C:\Arbeit\Basisvorlage.xlsm
Vielen Dank für eure Hilfe und Geduld mit mir
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten per Doppelklick in neue Vorlage übernehmen
14.12.2016 06:09:49
Werner
Hallo Marc,
da du nicht geschrieben hast in welches Blatt deiner Vorlage die Daten eingefügt werden sollen habe ich Tabellenblatt1 genommen, das müsstest du dann noch an deine Bedürfnisse anpassen.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
ActiveWorkbook.Save
If Target.Column = 2 And Target.Row > 6 Then
Cancel = True
Workbooks.Open "C:\Arbeit\Basisvorlage.xlsm"
With ActiveWorkbook
Sheets("Tabelle1").Range("F3").Value = Target.Offset(0, 12).Value
Sheets("Tabelle1").Range("F4").Value = Target.Offset(0, 5).Value
Sheets("Tabelle1").Range("F5").Value = Target.Offset(0, 13).Value
Sheets("Tabelle1").Select
.Close savechanges:=True
End With
End If
Application.ScreenUpdating = True
End Sub
Gruß Werner
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige