Neues Tabellenblatt Zelle

Computer: Software & Programmierung Visual Basic
#1

Hi Leute,

Hätte da mal ne Frage.
Ich will ein Makro schreiben, dass mit automatisch ein neues tabellenblatt ganz am Ende einfügt und als Namen den Wert der markierten Zelle nimmt. Gibt es da irgendeine Lösung oder ist das nicht machbar?

Gruß
Stefan

#2

Ich will ein Makro schreiben, dass mit automatisch ein neues
tabellenblatt ganz am Ende einfügt und als Namen den Wert der
markierten Zelle nimmt. Gibt es da irgendeine Lösung oder ist
das nicht machbar?

Hallo Stefan,

meinste das so:
Sub tt()
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = ActiveCell.Value
End Sub

Gruß
Reinhard

#3

Hallo Reinhard,

Leider funktioniert es nicht so wie ich es bräuchte, da in diesem Fall dann die aktive Zelle die er für den Namen hernimmt auf dem neuen Tabellenblatt ist und nicht auf dem vorherigen, auf dem die Zelle gefüllt ist und den Namen ich gerne übernehmen würde.

Gruß
Stefan

#4

Du hast Recht

Leider funktioniert es nicht so wie ich es bräuchte, da in
diesem Fall dann die aktive Zelle die er für den Namen
hernimmt auf dem neuen Tabellenblatt ist und nicht auf dem
vorherigen, auf dem die Zelle gefüllt ist und den Namen ich
gerne übernehmen würde.

Hallo Stefan,

da hatte ich nicht ganz mitgedacht, sorry.
Nachstehend neuer Code.

Prinzipiell (an sich sollte jeder Code Fehlerbehandlungsroutinen
haben) fehlt im Code noch Überprüfung des Inhalts der aktiven
Zelle ob er als Namen für ein neues Blatt erlaubt ist.

Bestimmte Zeichen dürfen nicht drin vorkommen, darf nicht leer
sein, den Namen darf es nicht schon in der mappe als Blattnamen
geben,…
Kriegste das hin einzubauen?

Gruß
Reinhard

Sub tt()
Dim alteZelle As Range
Set alteZelle = ActiveCell
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = alteZelle.Value
Set alteZelle = Nothing
End Sub
#5

Danke dir für den neuen Code!
Das mit der Überprüfung auf zulässigen Namen, bekomm ich hin bzw hab ich schon nur eben diesen Teil hab ich absolut nicht hinbekommen.

Danke dir!

#6

Ich habe noch eine letzte Frage, nachdem jetzt schon alles funktioniert wie ich will und ich echt dankbar dafür bin, käme jetzt noch das Tüpfelchen auf dem i. Kann man das Makro auch noch so programmieren, dass es mir automatisch in der alten Zelle aus der ich den Namen des neuen Tabellenblattes nehme, automatisch ein Hyperlink auf das neue Tabellenblatt hinterlegt??

Gruß
Stefan