Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert sind; Die von diesem Forum gesetzten Cookies düfen nur auf dieser Website verwendet werden und stellen kein Sicherheitsrisiko dar. Cookies auf diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Die Updates sind abgeschlossen. Bitte meldet eventuelle Bugs und Auffälligkeiten im entsprechenden Forum.
Sollte das Loginfenster nicht sichtbar sein, ist es unten links. Entweder Ihr loggt Euch dort ein oder löscht den Browsercache und versucht es noch einmal.


Tabellenblatt Kopieren und mit Namen versehen
#1
Hallo,
ich möchte per Button das Tabellenblatt „ Vorlage Datenblatt“ auf dem ich gerade Arbeite kopieren und an das Ende gestellt werden.
Das neue Blatt soll dann den Namen aus der Zelle C7 von „ Vorlage Datenblatt „ bekommen.
Das soll mit einem Button in der Vorlage Datenblatt geschehen
Ich habe es schon per Recorder versucht und die Suche in den Foren bemüht aber beides war nicht so wirklich erfolgreich.
Vielleicht fehlt mir auch nur passende Suchbegriff.
Meine VBA Kenntnisse reichen soweit, das ich kleinere oder mittelgroße Anpassungen vornehmen kann, aber selbst was erstellen sind böhmische Dörfer für mich.
Das mit dem Kopieren und einfügen hat schon funktioniert aber der Name aus C 7 macht mir Probleme
Ich hoffe kann mir jemand helfen.
 




.xlsm   Auszählung Neues Tabellenblatt.xlsm (Größe: 71,79 KB / Downloads: 2)
Beste Grüße
Thomas
Antwortento top
#2
Hallo Thomas,

so sollte es gehen.

Sub Neues_Blatt()
' Neues_Blatt Makro
'
    Sheets("Vorlage Datenblatt").Copy Before:=Sheets(3)
    ActiveSheet.Name = Range("C7").Value

End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0


Beim Kopieren wird das eingefügte Blatt immer das aktive Blatt, deswegen kannst Du es über ActiveSheet.Name benennen.

Gruß
Ich

Und wenn die Kopie tatsächlich ans Ende soll dann so:

Sub Neues_Blatt()
' Neues_Blatt Makro
'
    Sheets("Vorlage Datenblatt").Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = Range("C7").Value

End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0


Das hatte ich zunächst überlesen.
[-] Folgende(r) 1 Benutzer sagt Danke an IchBinIch für diesen Beitrag:
  • knallebumm
Antwortento top
#3
Hallo Ich,
Danke dafür.

Habe den Code noch etwas angepasst, mit Teilen von anderen Codes
Jetzt läuft es so wie ich mir das Vorstelle

Code:
Sub Neues_Blatt()
' Neues_Blatt Makro
'
   Sheets("Vorlage").Unprotect "holz"
   Sheets("Vorlage").Copy Before:=Sheets(4)
   ActiveSheet.Name = Range("C7").Value
   ActiveSheet.Shapes.Range(Array("Button 1")).Select
   Selection.Delete
   Selection.Cut
   Sheets(4).Protect "holz"
   Sheets("Vorlage").Select
   ActiveSheet.Protect "holz"
   Application.ScreenUpdating = True
 

End Sub
Beste Grüße
Thomas
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste