Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
776to780
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
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kann kein VBA

Kann kein VBA
26.06.2006 22:16:39
Ralf.K
Hallo allerseits,
wünsche mir einen Übertragungsmechanismus von Tabellendaten aus einer Excel-Mappe in eine andere. Bevor ich hier etliches schreibe, habe ich einfach einen zipverpackten Aufgabenbereich hochgeladen:
https://www.herber.de/bbs/user/34656.
zip
Die Quelldaten werden in unterschiedlichen Zeitabständen und immer über die gleiche Arbeitsmappe bereitgestellt. Ziel ist also ein Automatismus für das Listing in der Zielmappe.
über Hilfstellung eines VBA-Profis würde ich mich wirklich sehr freuen.
mfg Ralf.K

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kann kein VBA
28.06.2006 11:41:18
koenich
Hi Ralf!
Versuch´s mal damit:

Sub Kopieren_Quelle_an_Ziel()
Sheets("Tabelle1").Select
Range("P15").Select 'Auswählen der ersten Zelle mit Werten
Range(Selection, Selection.End(xlDown)).Select 'Wählt die Werte bis Ende aus
Selection.Copy 'Kopiert die Werte
Windows("ziel.xls").Activate 'Wechselt Datei (muß geöffnet sein)
Range("E1").Select 'Wählt obersten Eintrag in Spalte "E"
Selection.End(xlDown).Select 'Geht bis ans Ende von Spalte "E"
ActiveCell.Offset(1, 0).Select 'Geht eine Zeile tiefer
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'Fügt die Werte ein
End Sub

Gruß
Philipp
Anzeige
AW: Kann kein VBA
28.06.2006 12:34:27
Ralf.K
Hi Philipp,
vielen Dank für Deine Mühe, habe es auch probiert. klappt leider nicht mal ansatzweise. habe selbst mal ein makro zusammengeklickt, welches eben noch nicht auf die erste freie zeile/zelle springt. Es wäre ja schon hilfreich, wenn zumindest vorm Makrostart die jeweils aktivierte Zelle akzeptiert würde. Bin halt ne vba-niete. hier mal das makro

Sub Makro3()
' Zelle E12 auf erster freier Zeile aktiviert und Formel (=) eröffnet
Range("E12").Select
' Wechsel auf erste l.o. Zelle des Quelldatenbereiches in Quellmappe
ActiveCell.FormulaR1C1 = "=[quelle.xls]Tabelle1!R[3]C[11]"
' absolute Bezugsform entfernt (F4) und horizontal autoausfüllen
Selection.AutoFill Destination:=Range("E12:L12"), Type:=xlFillValues
Range("E12:L12").Select
' und vertikal autoausfüllen
Selection.AutoFill Destination:=Range("E12:L19"), Type:=xlFillValues
Range("E12:L19").Select
' Bezüge über Bearbeiten/Verknüpfungen entfernt
ActiveWorkbook.BreakLink Name:="C:\uebertrag\quelle.xls", Type:= _
xlExcelLinks
End Sub

vielen dank im voraus für jedwede hilfe ralf.k
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige