Inhalte einfügen - Text - aus 2. Arbeitsmappe

Hallo,
mein neuer Chef hat mit viel Arbeit eine Excel-"Vorlage" erstellt, besteht aus Kopfdaten wie Kunde, Datum usw.
Darunter 20 Zeilen zur Eingabe/Import von Daten aus Datenbank, die in einer 2. Datei auch im Excel-Format vorliegen.
Datei 2 hat aber mehr Spalten, die nur teilweise benötigt werden, also z.B. nur Spalten B-D, F, H-I
Auch in der "Vorlage" kommen diese Daten nur in Spalten A-C, E, G-H, Rest muss für spätere Eingaben leer bleiben.
Jetzt der Knaller: Die "Vorlage" ist liebevoll gestaltet mit Doppelrahmen usw.
Deshalb jedesmal: Bereiche markieren, Strg+C, Wechsel in andere Datei, 2x Rechtsklick - Inhalte einfügen - Text. Zum Verrücktwerden, nur damit die wertvolle Formatierung nicht verschwindet.
Dazu kommt, dass man manchmal pro Datei bis zu 200 Zeilen übertragen und die "Vorlage" deshalb erweitern muss.
Alles klar?
Was wäre eine echte Arbeitserleichterung, ohne dass Chef es merkt (zumindest jetzt in den ersten Wochen)?
Margarete :-(

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Margarete, Hallo @ All,
die Aufgabe ist doch etwas zu schwer für mich, mein Gedankengang lag in einer Doppelklicklösung,
des jeweiligen Copybereichs, aber ich weis nicht wie ich die Abfrage aufbauen soll.
Wenn doppelklick in B2 - copy Ber1 nach WksSheet ("Tabelle1", A2 )
Wenn doppelklick in F2 - copy Ber1 nach WksSheet ("Tabelle1", E2 )
Wenn doppelklick in H2 - copy Ber1 nach WksSheet ("Tabelle1", G2 )
hier meine Codeansatz:
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim EndeS4 As Long
Dim EndeS6 As Long
Dim Endes8 As Long
Dim wkbVorlage As Workbook
Set wkbVorlage = Workbooks.Open("C:\Eigene Dateien\Vorlage.xlt") 'anpassen
EndeS4 = .Cells(Rows.Count, 4).End(xlUp).Row 'letze Zeile Spalte4
EndeS6 = .Cells(Rows.Count, 6).End(xlUp).Row 'letzte Zeile Spalte6
Endes8 = .Cells(Rows.Count, 9).End(xlUp).Row 'letzte Zeile Spalte9
Ber1 = Range(Cells(2, 2), Cells(EndeS4, 4)) 'Spalte 2-4 B-D
Ber2 = Range(Cells(2, 6), Cells(EndeS4, 6)) 'Spalte 6   F
Ber3 = Range(Cells(2, 8), Cells(EndeS4, 9)) 'Spalte 8-9 H-I
Tar1 = wbkVorlage.Sheets("Tabelle1").Range("A2").PasteSpecial(xlPasteValues) 'Tabelle1 anpassen
Tar2 = wbkVorlage.Sheets("Tabelle1").Range("E2").PasteSpecial(xlPasteValues) 'Tabelle1 anpassen
Tar3 = wbkVorlage.Sheets("Tabelle1").Range("G2").PasteSpecial(xlPasteValues) 'Tabelle1 anpassen
'Abfragen
End Sub

Gruß Matze

Sub KopiereBereich() Application.ScreenUpdating = False Worksheets("Bearbeitung").Activate Range("B2", Cells.SpecialCells(xlLastCell)).Copy 'warum markiert der bis Spalte K? Workbooks("Vorlage_orginal.xlsx").Activate Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Inhalte einfügen - Text - aus 2. Arbeitsmappe

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread