Das Archiv des Excel-Forums

Makro - Selektieren Kopieren und Einfügen

Bild

Betrifft: Makro - Selektieren Kopieren und Einfügen
von: Tom Elers

Geschrieben am: 23.07.2008 19:13:16

Hallo Liebe Excel Freunde,
habe da ein Problem bei der Aufzeichnung eines Makros. Funzt irgendwie nicht.
Ich möchte einen beliebigen bereich selektieren ihn kopieren und automatisch in ein
neues Woorkbook einfügen.
Das Problem ist das die Zellen mit STRG manuell ausgewählt werden und die Skalierung der neuen
Zellen nach dem Einfügen in das neue Woorkbook nicht übereinstimmen, muss von Hand nachgebessert werden. Dazu sei gesagt das alle Daten nebeneinander stehen, sollte also lediglich die Spaltenbreite automatisch an die kopierten Originale anpassen.
2tes Problem ist das einige Zellen Daten über Bezug aus anderen Zellen beinhalten, in diesem Fall
wird der Bezug mitkopiert das aber soll nicht passieren, möchte nur den Zelleninhalt und wenns machbar ist die Bedingte Formatierung.
Bin für jede Hilfe und Idee dankbar.
Gruß

Tom

Bild

Betrifft: AW: Makro - Selektieren Kopieren und Einfügen
von: Tom Elers
Geschrieben am: 23.07.2008 20:36:23
Nachtrag :
also mit
range("A1:A20)
selection.copy funzt es will mich bei der Auswahl über "Range" aber nicht festlegen was ich kopieren will.

Die Spaltenbreite müsste demnach so automatisiert werden, richtig?
Columns("A:G").AutoFit

Bild

Betrifft: AW: Makro - Selektieren Kopieren und Einfügen
von: franz

Geschrieben am: 23.07.2008 20:41:23
hallo Tom !
Versuchs mal mit diesem makro
Die zellen passe deinen anforderungen an.
kannst natürlich auch eine andere tastenkombination verwenden,oder ganz weglassen


Sub Makro1()
' Makro1 Makro
' Makro am 23.07.2008 von Franz aufgezeichnet
' Tastenkombination: Strg+w
Range("D1:E6").Select
Selection.Copy
Sheets("Tabelle5").Select
Range("M2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Tabelle1").Select
Application.CutCopyMode = False
End Sub



Bild

Betrifft: AW: Makro - Selektieren Kopieren und Einfügen
von: Tom Elers
Geschrieben am: 23.07.2008 21:17:57
Danke Franz aber ich möcht frei selektieren und mich nicht auf bestimmte Zellen beschränken.

Bild

Betrifft: AW: Makro - Selektieren Kopieren und Einfügen
von: Tom Elers

Geschrieben am: 23.07.2008 21:20:18
Hier mal ein Bsp.
https://www.herber.de/bbs/user/54096.xls

 Bild

Excel-Beispiele zum Thema "Makro - Selektieren Kopieren und Einfügen "

Wert in UserForm-TextBox eintragen und selektieren download Selektieren von über ComboBox-Felder ausgewählten Werten download
Blätter in andere Arbeitsmappen kopieren download Module von Mappe zu Mappe kopieren download
Arbeitsblatt 40 mal kopieren download Schriftgröße beim Kopieren verdoppeln download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Tabellencode nach Kopieren des Blattes löschen download
Arbeitsmappe blitzschnell kopieren download VBE-Namen der Blattmodule beim Kopieren festlegen download
Blattinhalt von einer zur anderen Arbeitsmappe kopieren download Formel bis zur letzten Zeile der Nebenspalte kopieren download
Datei kopieren, wenn noch nicht vorhanden download Zeilenweise von Blatt zu Blatt kopieren download
Erste Druckseite in eine neue Arbeitsmappe kopieren download Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download
Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download Bei Eintrag in Spalte A aktuelle Zeile kopieren download
Filtern und Kopieren download Zeile mit aktiver Zelle in anderes Blatt kopieren download
Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Über InputBox festzulegenden Bereich kopieren download
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download Tabellenblatt kopieren und dreistellig fortlaufend numerieren download
Jede zweite Zelle kopieren download Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download
Gruppe von Optionsfeldern kopieren und Makro zuweisen download Nicht zusammenhängenden Bereich in nächste Zeile kopieren download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download
Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download Werte prüfen und kopieren download
Bei Eintrag von X Zeile in andere Tabelle kopieren download Daten kopieren wenn kein Datum oder Datum > Heute download
Blattinhalte dreier Blätter in neues Blatt kopieren download Kopieren und Umbenennen eines Blattes download
Nur Zeilen mit bestimmtem Inhalt kopieren download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Bild in zweites Blatt an gleiche Position kopieren download Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download Bildergruppe in anderes Blatt kopieren download
Bei Eingabe Formel in der Nebenspalte nach unten kopieren download Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download
Begriff suchen und Fundzeilen in anderes Blatt kopieren download Aktive Zeile kopieren und löschen download
Datensätze, die öfter als 3 mal vorkommen, kopieren download Den jeweils darüberliegenden Wert in Leerzellen kopieren download
Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download Dateien listen und Blätter in neue Arbeitsmappe kopieren download