Excel Vba Tabellenblatt Kopieren Und Umbenennen

Blatt per Macro kopieren + Umbenennen aus Ursprungsblatt

Autor Nachricht Gast8549758
Gast

Verfasst am:
26. April 2005, x:37
Rufname:

Hallo! Ich habe da noch ein weiteres Problem ... Ich habe ein Blatt in dem ich Daten eintrage ... dieses Blatt moechte ich als Dateneingabe benutzen .... wenn die Daten eingeben sind moechte ich das Blatt kopieren und umbenennen mit Bezug aus einer Zelle der Dateneingabe (eine Zelle aus dem Dateneingabeblatt soll mir den neunen Blattnamen bestimmen !!) MFG Andi

ae
Mein Name ist Ente

Verfasst am:
26. Apr 2005, 10:45
Rufname: Andreas

Wohnort: Reppenstedt bei 50�neburg

Hallo, Namen und Zelledie den neuen Namen ergibt musst noch anpassen Code:   Sheets("Ursprung").Copy Before:=Sheets(1) Sheets("Ursprung (2)").Name = Sheets("Ursprung").Range("A1").Value _________________ Gru� Andreas East ------ Oh Isle of man, ich f�hl mich heute wie =DATEDIF(DATUM(1961;half-dozen;12);HEUTE();"y") Jahre alt

nitro_storm
VB / VBA / .NET Programmierer

Verfasst am:
26. Apr 2005, 10:51
Rufname: Nitro

Wohnort: FFM

Hallo! Hier noch ein anderer L�sungsvorschlag ! Lawmaking: Sub Test()    Dim NeuerTabellenName as String    'Neuen TabellenName aus Zelle A1 holen und merken NeuerTabellenName = ActiveSheet.Range("A1").Value    'Tabelle kopieren und hinter der letzten Tabelle einf�gen ActiveSheet.Copy Afterward:=Sheets(Sheets.Count)    'der neuen Tabelle den Name geben Sheets(Sheets.Count).Proper name = NeuerTabellenName Finish Sub Gru� Nitro

Gast8549758
Gast

Verfasst am:
27. Apr 2005, 08:35
Rufname:

Also ich habe beide Versionen versucht aber habe da wohl einen Fehler drin ... Vielleicht ist es moeglich die Kopien immer nachdem 2 Blatt (Carddata) einzufuegen und dann noch alphanummerisch zu sortieren ?? Der neue Blattname steht in der Zelle C3 auf dem Blatt (Carddata) welches kopiert werden soll! 1.Variante Fehler in der Dim Zeile!! vielleicht auch noch weitere ... Code: Private Sub CommandButton2_Click() � �Dim NewTabelName as Cord � � 'Neuen TabellenName aus Zelle A1 holen und merken � �NewTabelName = ActiveSheet.Range("$C$3").Value � � � � 'Tabelle kopieren und hinter der letzten Tabelle einf?gen � �ActiveSheet.Copy Later:=Sheets(Sheets.Count) � � 'der neuen Tabelle den Name geben � �Sheets(Sheets.Count).Name = NewTabelName End Sub oder ii.Variante Fehler in 2. Zeile Code: Individual Sub CommandButton2_Click() Sheets(carddata).Copy Before:=Sheets(3) Sheets(carddata).Name = Sheets(carddata).Range("$C$three").Value Finish Sub MFG Andi

ae
Mein Name ist Ente

Verfasst am:
27. April 2005, 08:44
Rufname: Andreas

Wohnort: Reppenstedt bei L�neburg

Hallo, wenn du schon das Tabellenblatt mit seinemNamen ansprichst muss der auch in Anf�hrungszeichen Code: Private Sub CommandButton2_Click() Sheets(carddata).Copy Before:=Sheets(3) Sheets("carddata").Name = Sheets("carddata").Range("$C$3").Value End Sub [quote] wobei mir das nicht ganz klar ist warum du das sheets carddata umbenennen willst und nicht das neue - [/quote] _________________ Gru� Andreas E ------ Oh Mann, ich f�hl mich heute wie =DATEDIF(DATUM(1961;6;12);HEUTE();"y") Jahre alt

Gast8549758
Gast

Verfasst am:
27. Apr 2005, 09:54
Rufname:

Das ist natuerlich falsch ... Lawmaking: Private Sub CommandButton2_Click() 'kopieren des Blattes carddata Sheets("carddata").Copy Before:=Sheets(one) 'Umbennung des kopierten Blattes mit dem Wert aus $C$3 Sheets("carddata (two)").Name = Sheets("carddata").Range("$C$iii").Value End Sub Da ist aber immer noch ein Fehler in der zweiten Zeile .... wie sieht es denn mit einer alphanummerischen Sortierung der Kopien aus bzw. das einfuegen nachdem 2. Blatt MFG Andi

nitro_storm
VB / VBA / .Internet Programmierer

Verfasst am:
27. Apr 2005, ten:52
Rufname: Nitro

Wohnort: FFM

Hallo ! Too langsam glaube ich du programmierst nicht in ExcelVBA sondern sonst wo. Die Beispiele von ae und von mir funktionieren einwandfrei ! Ich glaub das ist nicht wirklich deine Welt. Pitiful! Noch ein Tip. Wo das kopierte Blatt eingef�gt werden soll, kannst du frei bestimmen. Da muss man nix sortieren. Before:= Sheets(1) bedeutet, es wird vor dem ersten Blatt eingef�gt. Wenn du es nach dem zweiten haben willst, dann schreib Afterward:=Sheets(two) MfG Nitro

ae
Mein Name ist Ente

Verfasst am:
27. April 2005, 11:32
Rufname: Andreas

Wohnort: Reppenstedt bei 50�neburg

Hallo, und wenns denn immer noch sortiert sein muss denn: Code: Sub SortSheetUp() Dim iMax As Integer Dim tb1 As Integer Dim tb2 Every bit Integer Application.ScreenUpdating = False iMax = ThisWorkbook.Sheets.Count For tb1 = 1 To iMax  For tb2 = tb1 To iMax If UCase(Sheets(tb2).Name) _ < UCase(Sheets(tb1).Name) And so   Sheets(tb2).Move before:=Sheets(tb1) End If Side by side tb2 Next tb1 Application.ScreenUpdating = True Stop Sub Sub SortSheetDown() Dim iMax As Integer Dim tb1 As Integer Dim tb2 As Integer Application.ScreenUpdating = False iMax = ThisWorkbook.Sheets.Count For tb1 = 1 To iMax For tb2 = tb1 To iMax If UCase(Sheets(tb2).Proper name) _ > UCase(Sheets(tb1).Name) And so Sheets(tb2).Motility before:=Sheets(tb1)  Stop If  Next tb2 Next tb1 Application.ScreenUpdating = True End Sub _________________ Gru� Andreas E ------ Oh Mann, ich f�hl mich heute wie =DATEDIF(DATUM(1961;6;12);HEUTE();"y") Jahre alt

Gast8549758
Gast

Verfasst am:
27. April 2005, 11:50
Rufname:

OK OK!!! Mein zweiter Tag mit VBA .... hab Verzeihung wenn ich noch einbischen unbeholfen erscheine ... das hoert sich an als wenn es Euch nicht so ergangen ist ????? Wie auch immer ich habe die Variante mit after schon vorher ausporbiert und da kam ebenfalls ein Fehler .... Ich moechte dice erstellten Kopie alphanummerisch sortieren ? Da habe ich mich wohl nicht richtig ausgedrueckt !! Herzlichen Dank fuer Eure Hilfe !!!! MFG Andi

ae
Mein Name ist Ente

Verfasst am:
27. Apr 2005, xi:53
Rufname: Andreas

Wohnort: Reppenstedt bei L�neburg

Hallo Andi, kein Stress - wie du sagst haben wir alle mal angefangen. Was Du uns aber immer noch nicht mitgeteilt hast, ist welchen Fehler excel meldet ! Und das macht es schier unm�glich zu helfen ! 1. sehen wir nicht auf deinen Monitor ii. wissen wir nicht wie dein Code aussieht und ob der auf deine Tabellen passt und zu guter Letzt sagt Excel bei derMeldung des Fehlers ja irgendwas - Zum Beispiel Index9 oder ..... _________________ Gru� Andreas E ------ Oh Mann, ich f�hl mich heute wie =DATEDIF(DATUM(1961;six;12);HEUTE();"y") Jahre alt

Gast8549758
Gast

Verfasst am:
27. April 2005, 12:11
Rufname:

Vio la !!!! Jeztz funktioniert es !! Nur noch ganz kurz zu diesem Thema ... Wie kann ich nach dem kopieren ein bestimmtes Blatt aktivieren ? Herzlichen Dank fuer Eure Hilfe !!! und Eure Geduld !! MFG Andi

ae
Mein Proper name ist Ente

Verfasst am:
27. Apr 2005, 12:12
Rufname: Andreas

Wohnort: Reppenstedt bei L�neburg

Hallo, ganz einfach sheets("DeineTabelle").activate _________________ Gru� Andreas E ------ Oh Isle of mann, ich f�hl mich heute wie =DATEDIF(DATUM(1961;6;12);HEUTE();"y") Jahre alt

Gast8549758
Gast

Verfasst am:
27. Apr 2005, 12:15
Rufname:

Ganz herzlichen Dank !!!! Merci a mol !!! Andi

Shaghon
Im Profil kannst Du frei den Rang �ndern

Verfasst am:
30. April 2005, 09:19
Rufname:

Hi" Ich glaube, ich habe das was du suchst schon fertig! Ich schreibe Lieferscheine. Dieses Eingabeblatt wird dann unter der Bestellnummer abgespeichert (Zelle C3) - und danach in ein Journal alle relevanten Daten eingegeben. Die Bestellung wird gedruckt und danach das Blatt wieder geleert (eingegebenen Daten). Hilft Dir so was! Wenn ja melde Dich! Shaghon

Co1m-Co1tus
[Give-and-take|Access|Excel] =>Wissen

Verfasst am:
09. Jul 2008, 09:sixteen
Rufname:

Wohnort: Schweiz, Z�rich

Version: Office 2k (2000)

Hallo zusammen, ich habe mehr oder weniger genau den gleichen Wunschn, nur leicht anders. Und mir fehlt das VBA Wissen um das Anzupassen. As well, eigentlich ganz einfach: Excel Sheet aus 3 Tabellen: Tabelle1 = ca fifty Namen untereinandergeschrieben (A1, A2, A3...) Original = eine Pivotabelle aus TB Daten Daten = die Daten halt Wunsch: Ein Makro soll f�r jeden Namen in Tabelle 1 eine kopie des Tabellenblattes Original erstellen und die neu erstelleten Tabellenbl�tter auch and so bennenn Also Tabelle1 A1 = OL123 A2 = OL456 A3 = OL789 dann soll bei Makroausf�hrung drei kopien von "Original erstellt werden und jeweils so umbenannt werden wie A1 bzw. A2 bzw A3. Die Auswahl von Tabelle i muss sich automatisch anpassen, da ich dieses Makro three mal ausf�hruen muss (mit verschiedenen namen und anders abspeichern) Gr�sse Daniel alias Co1m

Source: http://www.office-loesung.de/ftopic36305_0_0_asc.php

Posted by: penaaple1993.blogspot.com

Share this post