Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

146 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige