Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
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
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verschieben/Kopieren - Dialog; Code löschen

Verschieben/Kopieren - Dialog; Code löschen
23.10.2008 09:09:58
Thomas
Guten Morgen,
ich möche den Dialog zum Verschieben/Kopieren eines Tabellenblattes per VBA nutzen.
Kennt jemand einen geeigneten Weg, wie dies erreicht werden kann?
Kongret: Ich möchte aus einer bestehenden Arbeitmappe per Dialog ausgewählte Blätter in eine andere Arbeitsmappe kopieren und dabei den Code in jedem kopierten Arbeitsblatt löschen. Es wäre schön, wenn ich dazu den bereits vorhandenen Dialog (Verschieben/Kopieren) nutzen könnte.
Vielen Dank für die hoffentlich zahlreichen Tipps.
Gruß
Thomas

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verschieben/Kopieren - Dialog; Code löschen
23.10.2008 11:02:35
ANdreas
Hallo Thomas,
ein kurzer Blick in die Hilfe hilft weiter...
'xlDialogWorkbookMove name_array, dest_book, position_num
Application.Dialogs(xlDialogWorkbookMove).Show , "blabla.xls", 2
'xlDialogWorkbookCopy name_array, dest_book, position_num
Gruß
Andreas
AW: Verschieben/Kopieren - Dialog; Code löschen
23.10.2008 11:07:00
Thomas
Hallo Andreas,
danke für deine Hinweise.
Leider sehe ich noch nicht die Lösung für mein Problem.
Beziehen sich die Dialoge nicht auf die gesamte Excel-Arbeitsmappe?
Ich möchte nur ausgewählte Blätter kopieren - oder funktioniert das auch über xlDialogWorkbookCopy?
Gruß
Thomas
AW: Verschieben/Kopieren - Dialog; Code löschen
23.10.2008 11:21:00
Thomas
Ich bekomme beim Aufruf der Hilfefunktion auch keine Erläuterung von xlDialogWorkbookCopy.
Deshalb kann ich mir kein Bild von der Syntax des Befehls machen.
Wer kann helfen?
Anzeige
AW: Verschieben/Kopieren - Dialog; Code löschen
23.10.2008 14:59:50
Chris
Servus,
so:

Sub zeig()
Application.Dialogs(xlDialogWorkbookMove).Show
End Sub


dann wird der Dialog aufgerufen, hier kannst du nun die aktuelle Arbeitsmappe aussuchen und deine Blätter kopieren (neue Arbeitsmappe = ActiveSheet.Copy, ergibt neues Workbook, Mappexy.xls = Activesheet.Copy after... odser before..., bzw. das Verschieben geht auch).
Gruß
chris

AW: Erweiterung
23.10.2008 15:38:33
Chris
Servus,
das müsste da du ja auch Code löschen willst hinhauen:

Sub cop_lösch()
Application.Dialogs(xlDialogWorkbookMove).Show
With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .countOflines
End With
End Sub


Häkchen bei Makro- Sicherheit- vetrauenwürdige Herausgeber - Zugriff auf Viual Basic Project vertrauen
nicht vergessen.
Gruß
Chris

Anzeige
AW: Erweiterung
23.10.2008 18:13:38
Thomas
Hallo Chis,
ich habe erst jetzt Zeit gehabt Deinen Code zu testen.
Es sieht alles super klasse aus.
Vielen Dank für Deinen Beitrag.
Jetzt komme ich einen großen Schritt weiter.
Gruß
Thomas
xlDialogWorkbookMove + Code in Zieldatei löschen
24.10.2008 10:10:00
Thomas
Hallo,
ich nutze erfolgreich den Dialog "xlDialogWorkbookMove" und möchte nun per VBA erreichen, dass der Code aus den kopierten Blättern in der Zielarbeitsmappe gelöscht wird.
Kennt dazu jemand eine Lösung?
Dank vorab.
Gruß
Thomas
AW: ?
24.10.2008 13:42:26
Chris
Servus Thomas,
den Code hab ich dir doch gepostet.
With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .countOflines
End With
Diese Zeilen erledigen das bei Aufruf des makros für das jeweilige Tabellenblatt, daher vertsehe ich deine erneute Anfrage nicht.
Gruß
Chris
Anzeige
AW: ?
24.10.2008 14:00:25
Thomas
Hallo Chris,
ich hatte durch irgend eine Sache den Code in der Ursprungsdatei nicht mehr gesehen.
Gerade habe ich es nochmals probiert und es funktioniert.
Hast Du vielleicht auch noch eine hilfreiche Zeile für mich, wie ich beim Kopieren alles Buttons auf den kopierten Blättern entfernen kann?
Sorry, wollt hier keine Verwirrung stiften.
Gruß
Thomas
AW: ?
24.10.2008 14:12:00
Chris
Servus Thomas,
um welche Buttons handelt es sich Shapes (Formular) oder CommandButtons (Toolbar)?
Gruß
Chris
AW: ?
24.10.2008 14:16:32
Thomas
Hallo Chris,
es handelt sich um CommandButtons (Toolbar).
Diese sollen, auch wenn ich mehrere Blätter zum kopieren ausgewählt hatte, in den Kopien gelöscht sein.
Siehst Du eine Möglichkeit, wie das zu bewerkstelligen wäre?
Thomas
Anzeige
Ergänzungsfrage
24.10.2008 14:33:00
Thomas
Hallo Chris,
mir ist noch etwas aufgefallen.
Was ist, wenn ich 2 Tabellenblätter mit Code zum Kopieren ausgewählt habe?
Ich glaube es wird ja immer nur der Code des ersten Blattes gelöscht.
Lässt sich das erweitern,so dass auch der Code und die Commandbuttons auf allen Blättern entfernt wird?
Ich hoffe, ist stehle Dir nicht so viel Zeit mit meinem Problem.
Gruß
Thomas
AW: zur Mehrfachselektion
24.10.2008 18:11:00
Chris
Servus Thomas,
das ist richtig, da immer nur das erste Sheet das ActiveSheet ist.
Das kann man so lösen:

Sub cop_lösch()
Dim ws As Worksheet
Dim x As Long, NamenArray() As String
For Each ws In ActiveWindow.SelectedSheets
ReDim Preserve NamenArray(x)
NamenArray(x) = ws.Name
x = x + 1
Next ws
Application.Dialogs(xlDialogWorkbookMove).Show
For i = LBound(NamenArray()) To UBound(NamenArray())
With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.Sheets(NamenArray(i)). _
CodeName).CodeModule
.DeleteLines 1, .countOflines
End With
Next i
End Sub


Allerdings dürfen dann in der Zieldatei keine Tabellen mit gleichem Namen sein sonst, wird da gelöscht, weil der neue Nmae dann z.B. Tabelle1(2) heißt und nicht mehr Tabelle1.
Das mit den Buttons geh ich erst an, wenn ich weiß, welche Buttons das sind.
Gruß
Chris

Anzeige
AW: Sorry, hab das mit den Buttons übersehen
24.10.2008 19:00:00
Chris
kümmer mich drum, kann aber dauern.
AW: zur Mehrfachselektion
25.10.2008 11:48:00
Chris
Servus,

Sub cop_lösch()
Dim ws As Worksheet, z As Long
Dim x As Long, NamenArray() As String
For Each ws In ActiveWindow.SelectedSheets
ReDim Preserve NamenArray(x)
NamenArray(x) = ws.Name
x = x + 1
Next ws
Application.Dialogs(xlDialogWorkbookMove).Show
For i = LBound(NamenArray()) To UBound(NamenArray())
With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.Sheets(NamenArray(i)). _
CodeName).CodeModule
.DeleteLines 1, .countOflines
End With
With ActiveWorkbook.Sheets(NamenArray(i))
For z = .OLEObjects.Count to 1 step - 1
.OLEObjects(z).Delete
Next z
End with
Next i
End Sub


ungetestet:
gruß
Chris

Anzeige
Dank - alle funktioniert bestens
27.10.2008 10:52:19
Thomas
Hallo Chris,
ich habe gerade Deinen Vorschlag getestet.
Das Ergebnis ist beeindruckend.
Alles funktioniernt wie gewünscht.
Im Moment fällt mir nichts ein, was ich gerne anders hätte.
Es bleibt mir nur Dir ganz, ganz herzlich zu danken.
Ich hätte bestimmt noch einiges an Zeit investieren müssen und vermutlich wäre meine Lösung nicht so effizient.
Nochmals besten Dank.
Gruß
Thomas
AW: bitteschön owT
27.10.2008 12:19:00
Christian
.

299 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
String suchen und kopieren
Daniel

Hallo,
ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
Ich brauche ein etwas allgemeineren Code.
Ok was ich habe sind folgende Inputdaten:
.............A......B.........C.............D
1
2............
12.08.2008 14:55:00
Thread-ID: 1001221
9 Beiträge
Anzeige
Tastenkombinaiton Format kopieren
erkoo

Wer kennt die Tastenkombination für Format kopieren und Format einfügen?
Danke erkoo
13.08.2008 16:28:20
Thread-ID: 1001592
3 Beiträge
Datei vom Laufwerk kopieren
Walter

Guten Morgen Allerseits,
ich möchte gern, mit einem Makro, eine Datei, z.b. "Muster.xls"vom Zentrallaufwerk "R",
in mein "C" Laufwerk kopieren.
Beide Verzeichnisse sind gleich.
Danach möchte ich die das die kopierte Datei direkt geöffnet wird.
mfg Walter MB
14.08.2008 08:43:00
Thread-ID: 1001718
4 Beiträge
Datei kopieren mit xcopy
Meinolf

Hallo und guten Morgen ans Excel Forum ,
möchte gerne mit dem Befehl xcopy Dateien kopieren in vba mit Hilfe einer Variablen, der ich vorher den Pfad und Dateinamen zugewiesen habe x77. Irgendwie scheint das aber nicht zu funktionieren. Hat jemand eine Idee ?
Sub kopieren_auf_LW_f_cf(...
15.08.2008 09:47:22
Thread-ID: 1002054
8 Beiträge
Makro, das automatisch Werte kopiert und entnimmt
Maxine

Hallo zusammen,
ich brauche für meine Diplomarbeit ein Makro, das folgendermaßen funktionieren soll:
Im Sheet "Conditional Expectations K2" soll es die Werte (x und t_x) von jeder ID in Zelle B6 bzw. B7 einsetzen. Für ID 1 wären das H2 und I2 in B6 und B7, für ID 2 H3 und I3 in B6 und...
15.08.2008 13:10:23
Thread-ID: 1002150
7 Beiträge
Tabellenblatt kopieren
Pia

Hallo zusammen,
ist es möglich von einem Tabellenblatt (Januar) auf mehrere Tabellenblätter kopieren aber in der Monat Reihenfolge?
z.B. Tabellenblatt 1 heisst Januar, TB 2 = Februar usw..bis Dezember?
Wie kann ich eine Datei mit dem Namen ihres Tabellenblattes versehen?
Danke.....
17.08.2008 16:16:41
Thread-ID: 1002424
2 Beiträge

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