Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Script für Einfügen in andere Datei anpassen

Forumthread: Script für Einfügen in andere Datei anpassen

Script für Einfügen in andere Datei anpassen
17.07.2006 17:41:40
Nicole
Hallo !
brauche Hilfe bei folgendem Makro
Dieses Makro übernimmt mir die Daten immer aus der Zeile
in der gerade eine Zelle aktiv ist und fügt sie mir
im Blatt Rechnung in die erste freie Zeile ein. das klappt auch ganz gut.
Nun möchte ich aber das die Daten in eine andere gerade geöffnete Datei
die auch immer einen anderen Namen hat so wie beschrieben in das Blatt Rechnung
eingefügt wird, wie gesagt die Datei in die eingefügt wird ist immer eine gerade geöffnete
Datei.
Kann mir da jemand helfen ?

Sub inTabelleeinfuegenCurrent()
Dim shTarget As Worksheet
Dim intRow As Integer, i As Integer
Set shTarget = Worksheets("Rechnung")
intRow = shTarget.Range("A1").CurrentRegion.Rows.Count
Rows(ActiveCell.Row).Copy shTarget.Rows(intRow + 1)
Application.CutCopyMode = False
'Cancel = True
End Sub

Gruß Nicole
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Script für Einfügen in andere Datei anpassen
18.07.2006 02:50:03
fcs
Hallo Nicole,
mit folgenden Anpassungen kannst du die selektierte Reihe in das Blatt "Rechnung" einer anderen geöffneten Datei kopieren.
Die andere Datei kannst du am einfachsten festlegen, indem du sie per Makro öffnest.
Dabei wird die als Public deklarierte Variable = der geöffneten Datei gesetzt.
Alternativ kann du die Zieldatei auch in Excel aktivieren/selektieren und das 2. Makro starten. Dabei wird die als Public deklarierte Variable = der aktiven Datei gesetzt.
Gruß
Franz

Public wbRechnung As Workbook
Sub RechnungsDatei_Oeffen()
' selektiert die geöffnetete Arbeitsmappe für Makro "inTabelleeinfuegenCurrent"
If Application.Dialogs(xlDialogOpen).Show = False Then Exit Sub
Set wbRechnung = ActiveWorkbook
End Sub
'oder
Sub RechnungsDatei_Setzen()
' selektiert aktive Arbeitsmappe für Makro "inTabelleeinfuegenCurrent"
Set wbRechnung = ActiveWorkbook
End Sub
Sub inTabelleeinfuegenCurrent()
If wbRechnung Is Nothing Then
MsgBox "Es wurde noch keine Rechnungsdatei per Makro gewählt!"
Exit Sub
End If
Dim shTarget As Worksheet
Dim intRow As Integer, i As Integer
Set shTarget = wbRechnung.Worksheets("Rechnung")
intRow = shTarget.Range("A1").CurrentRegion.Rows.Count
Rows(ActiveCell.Row).Copy shTarget.Rows(intRow + 1)
Application.CutCopyMode = False
'Cancel = True
End Sub

Anzeige
AW: Super, aber bitte kleine Abänderung
18.07.2006 13:34:06
Nicole
Hallo Franz
Funktioniert Super. Vielen Dank
Ich hätte da noch eine kleine Bitte.
Ist es wohl möglich, daß zwar die Zellformate
übernommen werden, wie es ja bereits geschieht,aber
keine Formeln. Also Zellen in denen Werte durch
Formeln erzeugt werden werden hier nicht übernommen.
Kannst Du da vielleich noch helfen.
Danke im Voraus
Gruß Nicole
Anzeige
AW: Super, aber bitte kleine Abänderung
18.07.2006 15:10:17
fcs
Hallo Nicole,
ich habe mal zwei Varianten gebastelt.
Die erste kopiert Formate und Werte aller Zellen
Die zweite kopiert die Formate und überträgt Werte aus Zellen ohne Formel
Gruß
Franz 

'Kopiert Formate und Werte der aktiven Zeile ins andere Blatt
Sub inTabelleeinfuegenCurrent()
If wbRechnung Is Nothing Then
MsgBox "Es wurde noch keine Rechnungsdatei per Makro gewählt!"
Exit Sub
End If
Dim shTarget As Worksheet
Dim intRow As Integer, i As Integer
Set shTarget = wbRechnung.Worksheets("Rechnung")
intRow = shTarget.Range("A1").CurrentRegion.Rows.Count
Rows(ActiveCell.Row).Copy
shTarget.Rows(intRow + 1).PasteSpecial Paste:=xlFormats
shTarget.Rows(intRow + 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
'Cancel = True
End Sub
'Kopiert Formate der aktiven Zeile und Werte aus Zellen ohne Formel ins andere Blatt
Sub inTabelleeinfuegenCurrentNeu()
If wbRechnung Is Nothing Then
MsgBox "Es wurde noch keine Rechnungsdatei per Makro gewählt!"
Exit Sub
End If
Dim shTarget As Worksheet, rngZeile As Range, Zelle As Range
Dim intRow As Integer, i As Integer
Set shTarget = wbRechnung.Worksheets("Rechnung")
intRow = shTarget.Range("A1").CurrentRegion.Rows.Count
Set rngZeile = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1))
rngZeile.Copy
shTarget.Rows(intRow + 1).PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
'Werte aus Zellen ohne Formel übertragen
For Each Zelle In rngZeile
If Zelle.HasFormula = False Then
shTarget.Cells(intRow + 1, Zelle.Column) = Zelle.Value
End If
If Zelle.Column > (shTarget.UsedRange.Column + shTarget.UsedRange.Columns.Count) Then Exit For
Next
'Cancel = True
End Sub

Anzeige
AW: Super, aber bitte kleine Abänderung
18.07.2006 16:29:32
Nicole
Hallo Franz !
Variante 1 ist genau richtig. Jetzt kann ich
Meine Artikeldaten endlich auslagern und die Datei
verkleinert sich.
Vielen Dank.
Da ich hier gerade so einen Experten in VBA gefunden habe.
Vielleicht noch eine kleine Frage zu dem Script, wenn es nicht zuviel
des Guten ist.
Kann man auch beim Kopieren Die Daten aus der jeweiligen Spalt J in
Spalte F übernehmen und die Daten aus Spalte K in G ?
Dann bräuchte ich auch nicht immer gewisse Zeilen ausblenden.
Falls es nicht geht Trotzdem schonmal Viele Dank für deine nicht
selbsverständliche Hilfe, hast mir sehr geholfen, echt super.
Gruß Nicole
Anzeige
AW: Super, aber bitte kleine Abänderung
18.07.2006 21:33:17
fcs
Hallo Nicole,
es ist mit geringem Mehraufwand auch möglich einzelne Bereiche einer Zeile in die andere Arbeitsmappe zu kopieren. Hier die notwendigen Anpassungen: 

Sub inTabelleeinfuegenCurrent()
If wbRechnung Is Nothing Then
MsgBox "Es wurde noch keine Rechnungsdatei per Makro gewählt!"
Exit Sub
End If
Dim shTarget As Worksheet, rngZellen As Range
Dim intRow As Integer, i As Integer
Set shTarget = wbRechnung.Worksheets("Rechnung")
intRow = shTarget.Range("A1").CurrentRegion.Rows.Count
Application.ScreenUpdating = False
'Aktuelle Zeile, Spalten A(1) bis E (5) kopieren
Set rngZellen = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 5))
rngZellen.Copy
shTarget.Cells(intRow + 1, 1).PasteSpecial Paste:=xlFormats
shTarget.Range(shTarget.Cells(intRow + 1, 1), shTarget.Cells(intRow + 1, 5)).Value = rngZellen.Value
'Aktuelle Zeile, Spalten J(10) bis K (11) kopieren nach Spalten F(6) und G(7)
Set rngZellen = Range(Cells(ActiveCell.Row, 10), Cells(ActiveCell.Row, 11))
rngZellen.Copy
shTarget.Cells(intRow + 1, 6).PasteSpecial Paste:=xlFormats
shTarget.Range(shTarget.Cells(intRow + 1, 6), shTarget.Cells(intRow + 1, 7)).Value = rngZellen.Value
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

gruss Franz
Anzeige
AW: Super, aber bitte kleine Abänderung
19.07.2006 00:22:44
Nicole
Hallo Franz !
Super auch das klappt.
Ich trau mich schon garnicht mehr zu Fragen, aber da ich
dieses Script so vielfältig einsetzen kann noch folgendes:
Die Daten in jede 5. Zeile eintragen lassen.
Wäre auch das noch machbar ?
Dann wars das aber auch versprochen ;-)
Gruß Nicole
Anzeige
AW: Super, aber bitte kleine Abänderung
19.07.2006 14:48:35
fcs
Hallo Nicole,
mit ein paar weiteren Anpassungen geht auch dies. Insbesondere muss dann die letzte mit Daten ausgefüllte Zeile anders ermittelt werden.
mfg
Franz

Sub inTabelleeinfuegenCurrent()
If wbRechnung Is Nothing Then
MsgBox "Es wurde noch keine Rechnungsdatei per Makro gewählt!"
Exit Sub
End If
Dim shTarget As Worksheet, rngZellen As Range
Dim intRow As Integer, i As Integer, intLZ As Integer
Set shTarget = wbRechnung.Worksheets("Rechnung")
intLZ = 4 'Anzahl Leerzeilen zwischen den kopierten Einträgen
'Letzte ausgefüllte Zeile in Spalten A bis G ermitteln
For i = 1 To 7
intRow = Application.WorksheetFunction.Max(intRow, shTarget.Cells(shTarget.Rows.Count, i).End(xlUp).Row)
Next
Application.ScreenUpdating = False
'Aktuelle Zeile, Spalten A(1) bis E (5) kopieren
Set rngZellen = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 5))
rngZellen.Copy
shTarget.Cells(intRow + intLZ + 1, 1).PasteSpecial Paste:=xlFormats
shTarget.Range(shTarget.Cells(intRow + intLZ + 1, 1), shTarget.Cells(intRow + intLZ + 1, 5)).Value = rngZellen.Value
'Aktuelle Zeile, Spalten J(10) bis K (11) kopieren nach Spalten F(6) und G(7)
Set rngZellen = Range(Cells(ActiveCell.Row, 10), Cells(ActiveCell.Row, 11))
rngZellen.Copy
shTarget.Cells(intRow + intLZ + 1, 6).PasteSpecial Paste:=xlFormats
shTarget.Range(shTarget.Cells(intRow + intLZ + 1, 6), shTarget.Cells(intRow + intLZ + 1, 7)).Value = rngZellen.Value
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Alternative zur Ermittlung der letzten Zeile mit Daten/formatierten Zellen:
intRow = shTarget.UsedRange.Row + shTarget.UsedRange.Rows.Count - 1

Anzeige
AW: : -)) Vielen Dank
19.07.2006 17:07:14
Nicole
Hallo Franz !
Vielen Dank, für die intensive Mühe
klappt alles wunderbar !!
Gruß Nicole
;

Forumthreads zu verwandten Themen

Öffnen einer anderen Excel Datei
Alex

Folgendes Problem:
Aus einer Excel Datei öffne ich mit einem Makro eine andere.
Bei der neu geöffneten Datei werden automatisch weitere Befehle ausgeführt,
unter anderem auf ein anderes Tabellenblat zu wechseln.
Dadurch, dass die andere Datei noch offen ist sucht er in dieser Da...
24.08.2008 10:55:42
Thread-ID: 1004222
3 Beiträge
Laufende Nummer aus anderer Datei ziehen
mtremer

Hallo Excel-Freunde,
nun habe ich schon länger recherchiert, aber gefunden habe ich nichts :-(
Folgendes habe ich vor:
Ich befinde mich in einer Datei (Start.xls). Von dort aus möchte ich eine laufende Nummer aus einer anderen Datei (Sammlung.xls) ziehen. Diese Nummer befindet sich...
17.09.2008 11:55:00
Thread-ID: 1010315
4 Beiträge
Anzeige
Hyperlink soll je nach KW auf andere Datei verw.
Alex

Hallo,
gleich einmal vorweg, ich bin neu im Forum und hoffe, dass ihr mir bei meinem kleinen Hyperlink- Problem helfen könnt.
Folgende Aufgabe sollte gelöst werden.
Ich möchte einen Hyperlink einrichten, der automatisch je nach Kalenderwoche auf das entsprechende Bestellformular ve...
11.10.2008 12:37:00
Thread-ID: 1015732
3 Beiträge
Daten aus einer anderen xls Datei importieren
Michi

Hallo,
Ich suche eine VBA lösung (am besten als Macro) für folgende Aufgabe:
Es soll ein ein Report erstellt werden der wie folgt ausschauen soll (Daten (PO nummer + einzelne Summe)n kommen aus einer externen Datei):
Woche1
Datainut PO1234 500 Euro
Lager PM PO23456 800 E...
08.11.2008 13:02:47
Thread-ID: 1022899
2 Beiträge
automatische Verbindung in andere Datei?
Sascha

Hallöchen, ich nerv mal wieder...
Folgende Angelegenheit:
Ich habe verschiedenen Auflistungen in Dateien, die nach Monaten benannt sind. Pro Monat sind es 2-3 Dateien, also August 1-2008, August 2-2008, August 3-2008, September 1-2008, September 2-2008, Oktober 1-2008 ect.
In einer...
14.11.2008 12:31:29
Thread-ID: 1024532
5 Beiträge
Anzeige
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Kopf- & Fußzeile auf andere Dateien übertragen?
Jessi

Hallo zusammen,
habe mal wieder eine Frage:
Habe 175 Dateien, die ich mit gleicher Kopf- & Fußzeile versehe muss. Die Dateien sind alle gleich nummeriert:
001.xlsm
002.xlsm
(...)
175.xlsm
Gibt es ggf. eine geschickte Möglichkeit z.B. das erste Tabellenblatt richt...
06.12.2008 18:56:00
Thread-ID: 1030728
9 Beiträge
Schneller Zugriff auf andere Dateien
Marco

Hallo zusammen,
ich möchte in einer Prozedur auf Daten in einem anderen Workbook zugreifen, welches zu diesem Zeitpunkt nicht geöffnet ist. Wie kann ich dies tun ohne das Programm zu langsam zu machen.
Gruß Marco
10.12.2008 10:13:00
Thread-ID: 1031590
5 Beiträge
Gültigkeit Liste mit Bezug auf eine andere Datei
Rafi

Hallo Zusammen,
ich habe ein Problem mit einer Gültigkeitsprüfung auf eine Liste die in einer anderen Datei steht.
Bislang hat das immer funktioniert, wenn ich die Liste der Externen Datei unter Namen definiert und bei der Gültigkeit/Liste mit Quelle="Name" angegeben habe. Geht aber nic...
16.12.2008 11:28:00
Thread-ID: 1033235
4 Beiträge
Anzeige
Werte aus einer Zelle in andere Zelle (neue Datei)
Franz

Tach auch,
folgendes Problem habe ich:
ich öffne eine Datei über eine Vorlage "rep.xlt". Die heisst dann bis zum Speichern "rep1". In einer Zelle wird eine Zahl eingetragen, bspw.: 1234. Dann kann ich die Datei per makro speichern, dann heisst sie: "rep1234.xls. Das funktioniert auch g...
22.01.2009 15:10:00
Thread-ID: 1042648
3 Beiträge
SVerweis - Zugriff auf ext. Tabellen ->Datei gross
sk

Hallo zusammen,
ich habe eine Preislistendatei die ich anhand von externen Tabellen mit SVerweis aktualisiere.
Ich suche anhand der der hinterlegten Artikelnummer in meiner Datei per SVerweis im jeweiligen
Datenbankextrakt der Artikelstammdaten(12MB) und Artikelpreise(1.5MB) die pas...
26.01.2009 14:43:35
Thread-ID: 1043902
3 Beiträge
Anzeige
Worksheet in andere Datei kopieren
Werner

mein VBA-Level: befriedigend
Hallo Freunde,
ich versuche eine Tabelle (Worksheet) von einer in eine andere Excel-Datei zu kopieren, und zwar so:
Workbooks("Datei1.xls").Worksheets("Zukopieren").Copy After:=Workbooks("Datei1.xls").Worksheets
(Sheets.Count)
Leider klappt das n...
03.02.2009 08:15:00
Thread-ID: 1046501
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige