Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
448to452
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
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blattname setzen

Blattname setzen
07.07.2004 10:23:20
Jana
Hallo Forum,
kann mir jemand helfen.
Ich kopiere gefillterte Daten in ein neues Blatt das automatisch erstellt wird.

Sub GefilterteDatenKopieren()
Sheets("Tabelle1").Activate
ActiveCell.CurrentRegion.SpecialCells(xlVisible).Copy
Worksheets.Add After:=Worksheets(Worksheets.Count)
Range("A2").Select
ActiveSheet.Paste
Sheets("Tabelle1").Activate
End Sub

Nun möchte ich das daß neue Blatt wo die Daten eingefügt wurden den Namen der in diesem Blatt in Spalt/Zelle D2 steht bekommt.
Geht sowas? Wo und was muß ich in das bestehende Makro verändern?
Danke Jana

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattname setzen
Uduuh
Hallo,
so:
.....
Activesheet.Paste
Activesheet.Name=Range("D2")
.....
Gruß aus'm POtt
Udo
AW: Blattname setzen
07.07.2004 10:30:04
Matthias
Hallo Jana,

Sub GefilterteDatenKopieren()
Sheets("Tabelle1").Activate
ActiveCell.CurrentRegion.SpecialCells(xlVisible).Copy
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Sheets("Tabelle1").Range("D2") '<<<<<<<<<<
Range("A2").Select
ActiveSheet.Paste
Sheets("Tabelle1").Activate
Application.CutCopyMode = False 'macht die Auswahl weg
End Sub

Gruß Matthias
AW: Blattname setzen
Rolf
Hi,
in der Recherche unter Blattname suchen!
Gruss
Rolf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige