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
124to128
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
124to128
124to128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle kopieren und anschließend löschen

Tabelle kopieren und anschließend löschen
02.06.2002 14:47:19
Jusuf
Hallo Forum,
Folgendes Problem:
Ich möchte Tabelle1 mit CommandButton1 in gleiche Arbeitsmappe kopieren.
In kopierte Tabelle1(2), CommandButton1 in CommandButto2 umbenennen und anschließend Kopierte Tabelle1(2) mit dem Druck auf CommandButto2 löschen.
Wer hat eine Idee.

Für Freundliche Unterstützung bedanke mich schon in voraus.

mfg Jusuf

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Tabelle kopieren und anschließend löschen
02.06.2002 17:25:59
L.Vira
Du kannst einen Commandbutton nicht zur Laufzeit umbenennen, nur im Eigenschaftenfenster.
Re: Tabelle kopieren und anschließend löschen
02.06.2002 19:02:46
Jusuf
Hallo L.Vira,
ich danke Dir für Deine Antwort. Wenn ich CommandButton1 nicht umbenennen kann, wie weise ich dem CommandButton1, in kopierte Tabelle1(2) –nach kopiervorgang- der folgende Makro zu:

Sub TabelleLöschen()
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub

Mit dem Makro – In Klassenmodul von Tabelle1-

Private Sub CommandButton1_Click()
Sheets("Tabelle1").Copy Before:=Sheets(2)
End Sub

kopiere ich die Tabelle1 mit CommandButton1 in gleiche Arbeitsmappe.

mfg Jusuf

Anzeige
Re: Tabelle kopieren und anschließend löschen
02.06.2002 19:35:12
Heinz
Hallo Jusuf,
folgende Makro können deine Funktion ausführen. Allerdings nur 1mal. Ich habe sie mit dem Rekorder aufgezeichnet, verbessern musst du sie selber.
Sub button1()
'
' button1 Makro
' Makro am 02.06.2002 von HUlm aufgezeichnet
'

Sheets.Add
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 279#, 100.5, 43.5, 52.5). _
Select
Selection.OnAction = "einfügen"
Range("H16").Select
ActiveSheet.Shapes("Rectangle 1").Select
Selection.Characters.Text = "Buton1"
With Selection.Characters(Start:=1, Length:=6).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 391.5, 84#, 86.25, 69.75). _
Select
Selection.Characters.Text = "Button2"
With Selection.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

ActiveSheet.Shapes("Rectangle 2").Select
Selection.Characters.Text = "Button2"
With Selection.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.OnAction = "button1"
ActiveSheet.Shapes("Rectangle 2").Select
Selection.Characters.Text = "Button2"
With Selection.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.OnAction = "button2"
Range("G14").Select

End Sub
Sub button2()
'
' button2 Makro
' Makro am 02.06.2002 von HUlm aufgezeichnet
'
ActiveSheet.Shapes("Rectangle 1").Select
Selection.Delete
ActiveSheet.Shapes("Rectangle 2").Select
Selection.Characters.Text = "Button2"
With Selection.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("G14").Select



End Sub

Gruß Heinz

Anzeige
Re: Tabelle kopieren und anschließend löschen
02.06.2002 20:44:14
L.Vira
Erstmal wird ja der Code im Modul von Tabelle1 mitkopiert.
Dann glaube ich nicht, dass du das gerade erzeugte Blatt wieder löschen willst, denn das ist nun das aktive Blatt, du willst doch aber Tabelle1 löschen.

Sub TabelleLöschen()
Application.DisplayAlerts = False
Sheets("Tabelle1").Delete
Application.DisplayAlerts = True
End Sub

Wenn du mir den Sinn der Aktion mal erläutern könntest? Ich verstehe nämlich nicht so richtig, was du damit erreichen willst
Ich poste dir etwas später mal, wie man Code zur Laufzeit erzeugt, ist ganz einfach.

Re: Tabelle kopieren und anschließend löschen
02.06.2002 22:24:23
Jusuf
Hallo L.Vira und Heinz,

Vielen Dank für Euere Einsatz. Ich versuche noch einmal zu erklären wozu ich es brauche.
Ich Habe eine sehr große Tabelle. Die ist mein Original und die darf nicht beschädigt werden.
Deswegen möchte ich die Tabelle1 kopieren und meine Übungen auf Kopierte Tabelle1(2) fortsetzen. Nach der Übung wird Kopie gelöscht. Ich habe Vorschlag von Heinz so präpariert
Das es in der tat jetzt funzt, wie man hier in Forum zu sagen pflegt.

Hier sind die Makros:

In Klassenmodul von Tabelle1:

Private Sub CommandButton1_Click()
Sheets("Tabelle1").Copy Before:=Sheets(2)
'Selection.AutoFilter
Rows("1:1").RowHeight = 40
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 274.5, 2.25, 108.75, 27). _
Select
ActiveSheet.Shapes("Rectangle 2").Select
Selection.Characters.Text = "Tabelle1(2) löschen"
With Selection.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.Size = 10
End With
Selection.OnAction = "TabelleLöschen"
'Range("H1").Select
End Sub

und der Makro in Allgemeinem Modul:

Sub TabelleLöschen()
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub

Wenn es noch was eleganteres gibt, bin auch dafür offen!

Nochmall vielen Dank

mfg Jusuf

Anzeige

301 Forumthreads zu ähnlichen Themen

ans Tabellenende mit Leerzeilen kopieren
Robert-M

Grüß´ Euch im Forum,
in einer Tabelle „MASTER“ will ich die Daten anderer Arbeitsmappen „DETAIL 1, -2, -3“ untereinander auflisten.
Der Vorgang ist simpel:
per Makro
kopiere ich nacheinander jeweils den Inhalt von „DETAIL 1 ...“,
gehe in die Tabelle MASTER,
suche hier di...
08.09.2008 21:49:00
Thread-ID: 1008257
10 Beiträge
Anzeige
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Tabelle mit eingebetteten Makro kopieren
köhler

Hallo!
Wenn ich in der Tabelle ein Makro eingebettet habe, dann wird beim Kopieren zu einer neuen Datei das Makro nicht mehr mit dem Button angesteuert. Das Makro wurde mitkopiert aber der Button hat dann ein Bezug auf die "alte" Datei, von der ich das Tabellenblatt kopiert habe.
Wie k...
08.01.2009 12:33:58
Thread-ID: 1037865
6 Beiträge
Anzeige
Arbeitsblatt kopieren ohne Quellcode
Oliver

Hallo zusammen,
ich habe gerade in mühsamer Arbeit folgenden Code zum Ablegen von Sheets in Workbooks zusammengeschustert:
Dim strDatei As String
strDatei = "Ablage.xls"
Set wksMappeZ = Workbooks.Open(strDatei)
Set wksMappeQ = ThisWorkbook
wksMappeQ.Sheets("Kalkulation")...
24.02.2009 14:58:21
Thread-ID: 1053533
4 Beiträge
Blatt kopieren mit VBA
Torsten

Hallo beisammen,
wie muß der Code vervollständigt werden, wenn ich das gerade aktive Blatt kopieren und immer an die letzte Position einfügen möchte?
Vielen Dank für Eure Tipps.
Gruß
Torsten
06.03.2009 16:36:27
Thread-ID: 1057377
5 Beiträge
Tabelle mit var. Inhalt kopieren
Robbie

Hallo zusammen, ich mal wieder ein Problemchen.
Ich habe ein Makro laufen das mit Excel 2003 erstellt wurde. Der Tabelleninhalt sol kopiert werden, der aber unterschiedlich lang ist. Nun hatte ich dies immer mit dem folgenden Code markiert:
Range("A2", Range("p65536").End(xlUp)).Select<...
20.03.2009 10:06:08
Thread-ID: 1062062
5 Beiträge
Tabellenblatt Kopieren, mit anderem Name speichern
Mandy

Hi,
Hoffe mal wieder auf Eure Hilfe: Wie kann ich denn per Makro in meiner XLS das Sheet "Ablage" kopieren und im gleichen sheet unter dem Name "Data" wieder einfügen ?
Danke
mandy
24.03.2009 14:35:27
Thread-ID: 1063343
3 Beiträge
Blatt Kopieren ohne Shapes
ptonka

Hallo zusammen,
ich kopiere den Inhalt eines gesamten Blattes (Tabelle1) auf ein 2. Blatt (Tabelle2) um die Daten dort weiter zu verarbeiten. Nun habe ich auf Tabelle1 mehrere Schaltflächen, um Makros zu starten.
Diese werden beim kopieren (per VBA) auch mit auf das 2. Blatt kopiert.
22.07.2009 10:53:00
Thread-ID: 1090452
16 Beiträge

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
9
4
3
5
7
3
4
4
2
15
5
3
5
7
4
2
5
2
4
6
2
1
6
2
7