Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
568to572
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
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalte einfügen VBA

Inhalte einfügen VBA
14.02.2005 15:45:40
fzeh
Hallo,
möchte via VBA Zellinhalte aus einer Datei in eine andere kopieren, dabei sollen die Formatierungen in der Zieldatei nicht überschrieben werden.
In der Ursprungsdatei wird in Zelle B4 das Datum abgegriffen, um in der Zieldatei die Zeile zum Einfügen zu ermitteln (erste Spalte der Zieldatei enthält bereits Datum absteigend sortiert).
Das 'Umfeld' sieht so aus:
Dtm = Range("B4").Value 'Datumswert für Zeilenauswahl in Zieldatei festlegen
Range("A1:Q1").Select 'Zellbereich der in Zieldatei kopiert werden soll
Selection.Copy
Workbooks.Open ("O:\Zieldatei.xls")
Cells.Find(What:=Dtm).Activate
ActiveCell.Offset(0, 1).Activate 'die Zellen sollen rechts neben dem vorhandenen Datum eingefügt werden
ActiveSheet.Paste 'hierdurch wird aber die Formatierung der Zieldatei zerstört
PasteSpecial (wie beim manuellen 'Inhalte einfügen'-'Werte' funktioniert an dieser Stelle scheinbar nicht...
Ist vielleicht nur ein Denkfehler von mir?
Wer hat einen Tipp?
Vielen Dank...
Gruß
fzeh

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalte einfügen VBA
Ute
Beim Kopieren werden die Formate der Zielzellen immer überschrieben, das ist auch
nicht zu verhindern.
mfg Ute
AW: Inhalte einfügen VBA
14.02.2005 15:58:54
fzeh
Hallo Ute,
Danke für die schnelle Antwort...
Hab's fast befürchtet... Aber gilt das wirklich auch für vorhandene Zellrahmen?
Werden die immer 'zerstört'?
gruß
fzeh
AW: Inhalte einfügen VBA
Ute
Auch Rahmen sind Formate.
mfg Ute
AW: Inhalte einfügen VBA
fzeh
Hallo Ute,
Danke für die Antwort...
Ist zwar Schade, ;O(
aber dann muss ich halt nachträglich formatieren...
Gruß
fzeh
AW: Inhalte einfügen VBA
Ute
Kopier doch einfach die Formate der Zielzellen in ein leeres Blatt. Nachdem du
die anderen Daten/Werte kopiert hast, kopierst du die Formate wieder zurück
mit PasteSpecial Paste:=xlPasteFormats
mfg Ute
Anzeige
AW: Inhalte einfügen VBA
fzeh
gute Idee,
danke für den Tipp...
Gruß
fzeh
AW: Inhalte einfügen VBA
14.02.2005 16:31:57
Heinz
Hallo,
warum soll PasteSpecial nicht funktionieren?

Sub Copy()
Range("A1:A5").Copy
Workbooks.Open Filename:="W:\Test\Test.xls"
Range("V10").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

Gruß
Heinz
AW: Inhalte einfügen VBA
fzeh
Hallo Heinz,
Danke für die Antwort,
PasteSpecial passt aber irgendwie nicht mit der Umgebung 'ActiveSheet und Offset'...
Falls Du noch eine Idee hast?
viele Grüße
fzeh
AW: Inhalte einfügen VBA
14.02.2005 20:02:15
Heinz
Hallo,
hier einetestetes Beispiel:

Sub Copy()
Range("A3:A4").Copy
Workbooks.Open ("L:\Daten\EXCEL\#tests\17878.xls")
Cells.Find("otto").Offset(0, 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

Ich sehe das Problem absolut nicht
Gruß
Heinz
Anzeige
AW: Inhalte einfügen VBA
fzeh
Hallo Heinz,
Danke für die Mühe.
Wenn ich Deinen Vorschlag umsetze, erhalte ich an dieser Stelle
Cells.Find("otto").Offset(0, 1).PasteSpecial Paste:=xlValues
die Meldung: Laufzeitfehler '91' Objektvariable oder With-Blockvariable nicht festgelegt.
;O(
Mir fällt nichts mehr ein...
Gruß
fzeh
AW: Inhalte einfügen VBA
15.02.2005 09:55:20
Heinz
Hallo,
da ist kein Problem, denn die Meldung kommt dann, wenn der Suchbegriff, hier "otto", nicht gefunden wird. Wenn man das abfangen will, müsste man den Code z.B. so erweitern

Sub Copy()
Dim gef As Range
Range("A3:A4").Copy
Workbooks.Open ("L:\Daten\EXCEL\#tests\17878.xls")
Set gef = Cells.Find("otto")
If Not gef Is Nothing Then
gef.Offset(0, 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Else
MsgBox "Der Suchbegriff wurde nicht gefunden!"
End If
End Sub

Gruß
Heinz
Anzeige
AW: Inhalte einfügen VBA
fzeh
Hallo Heinz,
Danke für den Code...
Hatte natürlich 'Otto' in eine Zelle eingetragen... trotzdem die Fehlermeldung...
Habe jetzt mal ausschließlich Deinen Code getestet: Da erhalte ich bei PasteSpecial die Meldung: Laufzeitfehler '1004' Die Paste-Special-Methode de Range-Objektes konnte nicht ausgeführt werden.
Wenn ich kein Feld mit 'otto' bezeichne, läft der Code ordnungsgemäß durch... (...nicht gefunden...).
Liegt's evtl. an meinem System? (XP SP2, Excel 2002 (10.43...))
Viele Grüße
fzeh
AW: Inhalte einfügen VBA
15.02.2005 15:35:04
Heinz
Hallo,
da könnte die Ursache sein, dass das Blatt geschützt ist. Wär das eine Möglichkeit?
Es gibt sonst keinen Grund, dass das nicht funktioniert. Das System schließe ich absolut aus.
Versuch mal, ganz neue Dateien zu erstellen, die eine, aus der kopiert werden soll und eine, in die die Kopie nach dem Fund der Fundstelle soll. Das muss funktionieren!
Gruß
Heinz
Anzeige
AW: Inhalte einfügen VBA
fzeh
Hallo Heinz,
unglaublich, aber so geht's... !!?
Habe zwei neue Dateien erstellt, Problem besteht nun nicht mehr.
Ursprüngliche Ziel-Datei war aber nicht geschützt o.ä. ...
(aber unter Office 97 erstellt, vielleicht lag's daran...).
Vielen Dank für die Hilfe...
Gruß
fzeh

239 Forumthreads zu ähnlichen Themen

VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
Erzeugung einer bat Datei mittels VBA
Josef

Hallo!
Wie kann ich bitte mittels VBA eine bat Datei erzeugen und diese in einem gewünschten Ordner abspeiichern?
Danke
Josef
04.12.2008 06:51:22
Thread-ID: 1030010
5 Beiträge
flexible txt-Datei öffnen mit VBA
Mike

Hey Cracks,
mittels nachfolgendem Code importiere ich .txt-Dateien ins Excel.
Da es nicht immer die gleiche txt-Datei ist, würde ich gerne die
Auswahl "flexibel" halten. Wie mach ich das?
Sub Txt1_KST_importieren() ' öffnet die exportierten Kostenstellen - Txt1_importieren Mak...
05.02.2009 15:36:31
Thread-ID: 1047405
3 Beiträge
Anzeige
Dateien Zählen mit VBA 2003 Mac
Jan

Hallo!
Wie erstellt mann einen Macro die die Anzahl an Dateien in einen Verzeichnis ermittelt. Dazu habe ich verschieden Beispiele gefunden die mit "FileSearch" arbeiten. Leider verwende ich Excel 2003 für Apple, wo dieser Funktion nicht vorhanden ist. Vielleicht kennt jemand einen Workarou...
23.06.2009 16:02:28
Thread-ID: 1083851
3 Beiträge
VBA Code nach einfügen von Spalten
Spalten

Hallo zusammen,
immer wieder muss ich recht umfangreichen Code überarbeiten, nachdem ich Spalten einfügen musste.
Gibt es eine Möglichkeit dies zu automatisieren. Also, den Code per code zu überarbeiten?
Kann man mit Bereichsnamen etwas anfangen?
Beispiel Codeschnipsel:
Win...
30.06.2009 15:43:34
Thread-ID: 1085417
6 Beiträge
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
Makro Probleme mit nur Werte einfügen
Michael

Hallo Zusammen,
meine Zielsetzung mit diesem Makro ist es immer die gleichen Zeilen bzw. nur deren Werte aus vielen unterschiedlich benannten Tabellenblättern eines Excelsheets in eines zu kopieren (Werte für Abschluß-aktuell). Mit Hilfe des Forums habe ich folgenden Makro gefunden, angepas...
08.10.2009 10:05:25
Thread-ID: 1108079
3 Beiträge
VBA Code in Modul der gleichen Datei einfügen
Micha

Hallo,
ich möchte VBA Code in ein Modul der gleichen Datei einfügen. Ich finde überall nur die Möglichkeit, VBA-Code in eine andere Datei einzufügen. (s. Beispiel unten)
Sub neuertest() Open "Probe.txt" For Output As #1 Print #1, "Das ist ein Test" Close #1 End Sub Jemand eine Idee ?
02.11.2009 16:44:25
Thread-ID: 1113889
3 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
5
3
4
2
4
2
5
4
2
2
9
3
4
1
7
2
5
4
6
1
6
2
1
2
6