Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
912to916
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
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in erste freie Zeile einer anderen Datei

Daten in erste freie Zeile einer anderen Datei
14.10.2007 14:02:46
Gregor
Hallo VBA-Freunde,
mit zwei Excel-Dateien möchte ich folgendes tun:
1. einen definierten Bereich "A1:A6" aus Dateil "alt" in die erste freie Zeile der Dateil "neu" kopieren
2. dabei ist (oder auch nicht) die Dateil "neu" geöffnet
mit dem folgenden Code habe ich die Aufgabe beinahe gelöst, nur funktioniert es nicht, wenn Datei "neu" bereits geöffnet ist.

Private Sub CommandButton1_Click()
Dim LZ As Long
'1. Bereich kopieren
Workbooks("alt.xls").Sheets("Tabelle1").Range("A1:A6").Copy
'letzte Zeile in "neu" aus Spalte A
Application.Workbooks("C:\Dokumente und Einstellungen\neo\Desktop\neu.xls").Activate
LZ = Sheets("Prüfergebnisse").Cells(Rows.Count, 1).End(xlUp).Row + 1
'Tabelle2, Zelle A in entsprechender Zeile markieren
Sheets("Prüfergebnisse").Select
Range("A" & LZ).Select
'Daten einfügen
ActiveSheet.Paste
'Markierung aufheben (Zelle A.. markieren)
Sheets("Prüfergebnisse").Range("A" & LZ).Select
'Kopiermodus beenden
Application.CutCopyMode = xlCopy
End Sub


Grüße
Gregor

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten in erste freie Zeile einer anderen Datei
14.10.2007 14:45:55
Klaus
Hi,
Du musst das Workbook ja erst öffnen, bevor Du es aktivierst:
Application.Workbooks.Open("C:\Dokumente und Einstellungen\neo\Desktop\neu.xls").Activate
Gruss
Klaus K.

AW: Daten in erste freie Zeile einer anderen Datei
15.10.2007 12:18:00
Gregor
Hallo zusammen,
nun geht es immer noch nicht. Auch der Tipp von Klaus hat fehlgeschlagen.
Wahrscheinlich ist es ein grundlägendes Problem.
Das Workbook "neu" kann geöffnet sein. Jedoch gibt es auch Fälle, dass es noch geschlossen ist.
Hat jemand von Euch ein Idee?
Vielen Dank vorab und Grüße
Gregor

AW: Daten in erste freie Zeile einer anderen Datei
15.10.2007 12:53:13
Klaus
Hi,
beim Kopieren des Bereiches "A1:A6" in eine Zeile darfst Du das Transponieren nicht vergessen!
Es geht natürlich noch viel eleganter, aber so geht's auch:

Private Sub CommandButton1_Click()
Dim LZ As Long
Dim wkb As Workbook
On Error Resume Next
Set wkb = Workbooks("neu.xls")
If Err > 0 Then
Application.Workbooks.Open ("C:\Dokumente und Einstellungen\neo\Desktop\neu.xls")
End If
Workbooks("alt.xls").Sheets("Tabelle1").Range("A1:A6").Copy
Application.Workbooks("neu.xls").Activate
LZ = Sheets("Prüfergebnisse").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Prüfergebnisse").Select
Range("A" & LZ).Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
End Sub


Gruss
Klaus K.

Anzeige
AW: Daten in erste freie Zeile einer anderen Datei
15.10.2007 19:01:00
Gregor
Hallo Klaus,
vielen Dank für Deine Hilfe. Das Kopieren funktioniert nun, jedoch wird nur die Zelle A2 und nicht die A1 in die Datei "neu" übertragen.
Woran kann das liegen?
Viele Grüße
Gregor

AW: Daten in erste freie Zeile einer anderen Datei
15.10.2007 19:04:00
Gregor
Hallo Klaus,
das eben Geschriebene ist nicht ganz richtig, sondern:
beide Zellen werden kopiert, jedoch wird die Zelle A2 in die Spalte B neben A1 kopiert.
Grüsse
Gregor

AW: Daten in erste freie Zeile einer anderen Datei
15.10.2007 21:47:00
Klaus
Hi.
Vorraussetzung ist natürlich, dass Du die Datei neu.xls in dem Ordner "C:\Dokumente und Einstellungen\neo\Desktop\" lässt. Ohne neu.xls is nix mit kopieren! Schau Dir bitte den Code ganau an.
In dem nachfogenden Code wird jetzt noch der Fehler 1004 extra behandelt. Sollte neu.xls also nicht dort sein, wie Du es angibt's, dann gibt's einen Hinweis und die Sub wird beendet.

Private Sub CommandButton1_Click()
Dim LZ As Long
Dim wkb As Workbook
On Error Resume Next
Set wkb = Workbooks("neu.xls")
If Err = 9 Then
Application.Workbooks.Open ("C:\Dokumente und Einstellungen\neo\Desktop\neu.xls")
If Err = 1004 Then
msg = MsgBox("Die Datei existiert nicht.")
Exit Sub
End If
End If
Workbooks("alt.xls").Sheets("Tabelle1").Range("A1:A6").Copy
Application.Workbooks("neu.xls").Activate
LZ = Sheets("Prüfergebnisse").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Prüfergebnisse").Range("A" & LZ).PasteSpecial Paste:=xlAll _
, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub


Gruss
Klaus K.

Anzeige
AW: Daten in erste freie Zeile einer anderen Datei
18.10.2007 21:31:00
Gregor
Hallo Klaus,
danke für Deine Hilfe. Habe jedoch ein anderes Problem als die Datei zu finden.
Während dem Kopieren von Dateil "alt" nach "neu" passiert folgende Verwechslung der Zellen:
Datei alt Datei neu
A1 A1
A2 B1
B1 A2
B2 B2
Dabei habe ich den Bereich A1:B2 in der Formel gewählt.
Danke vorab für Deine Hilfe.
Grüße
Gregor

311 Forumthreads zu ähnlichen Themen

VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 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
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 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
Worksheet aus geschl. in geöffn. Datei kopieren
Alexander

Hallo zusammen,
ich habe folgendes Problem. Meine VBA Kenntnisse sind leider nicht allzu gut.
Ich habe eine geöffnete Datei und eine geschlossene Datei. Nun will ich aus der geschlossenen Datei ein Worksheet/Arbeitsblatt komplett inklusive seiner Inhalte in die aktuell geöffnete Datei...
20.01.2009 13:38:00
Thread-ID: 1041825
4 Beiträge
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
Makro in eine/mehrere andere Dateien transportiere
Britta

Hallo zusammen,
ich habe nun mit dem von Hary erfundenen Makro eine gute Lösung für meine Daten gefunden. Leider weiß ich nicht wie ich das Makro in eine oder mehrere weitere Dateien übertragen kann. Ich habe es einfach naiv kopiert, dann aber festgestellt das, dass nur geht wenn ich die Qu...
11.02.2009 16:52:00
Thread-ID: 1049686
9 Beiträge
Zugriff auf Tabellenblatt in anderer Datei
Ulrich

Hallo,
ich würde gerne in einer Datei eine Zusammenfassung darstellen, und gebe dazu einen Namen eines Tabellenblattes einer anderen Datei ein, aus der dann eine Zelle übernommen wird. Ziel ist es in der Zusammenfassung z.b. 2012 als Jahr (Name des Tabellenblattes) einzugeben und ich bekomm...
01.03.2009 18:03:43
Thread-ID: 1055274
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
5
2
5
2
1
4
3
6
8
1
1
13
7
1
6
5
10
2
2
1
7
8
4
5
5