Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1180to1184
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ganze Zeile Coy in andere Datei

Ganze Zeile Coy in andere Datei
Dominik
Hi Zusammen :)
Habe schon wieder das nächste Problem ... hab schon verschiedene dinge versucht + das gewollte Doing augezeichnet, nur es kommt leder im Endeffekt nichts dabei raus :(
Mein Problem:
Ich hab die Zeile3, die ich kopieren möchte und in eine andere Datei einfügen möchte.
Der neue Platz wird durch das finden der ersten freien Zeile definiert. 
Rows("3:3").Select
Selection.Copy
Application.CutCopyMode = False
Workbooks.Open ("N:\OEDaten\5132\5132-ALG\NEUE OE-7332\ORGA\Nicht-technische Verfahren\Server-  _
_
Bereitstellung\Serverbereitstellung\Auftragsmanagement\STATUS_HW_RZ\Status_HW_RZ.xls")
erstefrei = ActiveWorkbook.Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row + 1
Windows("Status_HW_RZ.xls").Activate
Rows(erstefrei & ":" & erstefrei).Select
ActiveSheet.Paste  '

Beim ersten Fall heisst es, dass das Objekt nicht mit Paste verwendet werden kann.
Beim zweiten Fall gibt er mir nur eine leere Zeile zurück
Was mach ich dort falsch?!
MfG Dominik

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Ganze Zeile Coy in andere Datei
15.10.2010 08:40:13
JoWE
Hallo Dominik, versuch's mal so:
Rows("3:3").Copy
Workbooks.Open ("N:\OEDaten\5132\5132-ALG\NEUE OE-7332\ORGA\Nicht-technische Verfahren\Server-Bereitstellung\Serverbereitstellung\Auftragsmanagement\STATUS_HW_RZ\Status_HW_RZ.xls")
'Hier muss nichts mehr aktiviert werden, Das Workbook ist ja jetzt aktiv!!
erstefrei = ActiveWorkbook.Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Daten").cells(erstefrei,1).Select
ActiveSheet.Paste
ActiveWorkbook.Close savechanges:=True
Application.CutCopyMode = False
Gruß
Jochen
AW: Ganze Zeile Coy in andere Datei
15.10.2010 09:10:59
Dominik
Hi Jochen :)
danke!
Es funktioniert einwandfrei :):):)
Anzeige
AW: Ganze Zeile Coy in andere Datei
15.10.2010 08:44:32
Hajo_Zi
Hallo Dominik,
ich bin davon ausgegangen das der Code in der Datei ist von der kopiert werden soll. 
Option Explicit
Sub Dominik()
Dim erstefrei As Long
Workbooks.Open ("N:\OEDaten\5132\5132-ALG\NEUE OE-7332\ORGA\Nicht-technische Verfahren\ _
Server-Bereitstellung\Serverbereitstellung\Auftragsmanagement\STATUS_HW_RZ\Status_HW_RZ.xls")
erstefrei = ActiveWorkbook.Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row + 1
ThisWorkbook.Rows("3:3").Copy Rows(erstefrei)
End Sub


Anzeige
AW: Ganze Zeile Coy in andere Datei
15.10.2010 08:56:23
Hajo_Zi
Hallo Dominik,
es war noch ein kleiner Fehler drin. 
Option Explicit
Sub Dominik()
Dim erstefrei As Long
Workbooks.Open ("N:\OEDaten\5132\5132-ALG\NEUE OE-7332\ORGA\Nicht-technische Verfahren\ _
Server-Bereitstellung\Serverbereitstellung\Auftragsmanagement\STATUS_HW_RZ\Status_HW_RZ.xls")
erstefrei = ActiveWorkbook.Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row + 1
ThisWorkbook.Rows("3:3").Copy ActiveWorkbook.Sheets("Daten").Rows(erstefrei)
End Sub
Gruß Hajo
AW: Ganze Zeile Coy in andere Datei
15.10.2010 09:06:32
Dominik
Ich erhalte folgenden Fehler
Laufzeit '438':
Objekt unterstützt diese Eigenschaft oder Methode nicht
Hab auch den Code in der Datei von der kopiert werden soll ... aber geht trotzdem nicht :(
Habt ihr vllt weitere Funktionen?
Gruß Dominik
Anzeige
AW: Ganze Zeile Coy in andere Datei
15.10.2010 09:43:12
Hajo_Zi
Hallo Dominik,
noch was übersehen. 
Option Explicit
Sub Dominik()
Dim erstefrei As Long
Dim StTabelle As String
StTabelle = ActiveSheet.Name
Workbooks.Open ("N:\OEDaten\5132\5132-ALG\NEUE OE-7332\ORGA\Nicht-technische Verfahren\ _
Server-Bereitstellung\Serverbereitstellung\Auftragsmanagement\STATUS_HW_RZ\Status_HW_RZ.xls")
erstefrei = ActiveWorkbook.Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row + 1
ThisWorkbook.Worksheets(StTabelle).Rows(3).Copy ActiveWorkbook.Sheets("Daten").Rows( _
erstefrei)
End Sub
Gruß Hajo
Anzeige

302 Forumthreads zu ähnlichen 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
Anzeige
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
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
Anzeige
Hyperlink auf Sheet in anderer Datei
Christoph

Hallo zusammen, mal wieder ein kleines Problem:
Ich lese aus einer Zelle den Text Karteikartenneu\A.xls#'Nachname Vorname Ort'!A4 ein.
Ziel des unten stehenden Codes ist es, im Unterverzeichnis Karteikartenneu die Datei A.xls zu öffnen und das Sheet Nachname Vorname Ort im Vordergrund z...
21.10.2008 08:04:00
Thread-ID: 1017836
6 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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
14
3
2
9
5
1
4
4
8
4
3
2
2
6
3
4
2
8
5
6
1
5
1
13