Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
180to184
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
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Variable zur Erfassung des aktiven Sheet-Names

Variable zur Erfassung des aktiven Sheet-Names
20.11.2002 14:13:18
MikeS
Hallo,
wie muss ich denn eine Variable definieren, die den momentan aktiven Sheetnamen erfassen soll?

Dieser Sheetname soll dann in einem Makro im Befehl
Sheets(aktiver Sheet).Select ausgewählt werden.

Vielen Dank
MikeS
:)

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Variable zur Erfassung des aktiven Sheet-Names
20.11.2002 14:17:34
Boris
Hallo Mike,

Gruß Boris

Re: Variable zur Erfassung des aktiven Sheet-Names
20.11.2002 14:19:36
Harald Kapp
Hallo Mike:

Aber verrate mal, warum Du das überhaupt tun möchtest? Das aktive Sheet ist doch bereits selektiert, sonst wäre es ja nicht das aktive Sheet.


Gruß Harald

Re: Variable zur Erfassung des aktiven Sheet-Names
20.11.2002 14:25:51
MikeS
Hi,
vielen Dank schon mal. Ich brauche aber keine MsgBox, sondern will, dass eine Formatierung im aktiven Sheet vorgenommen wird.
Hier ist der Code, allerdings springt er in der Zeile mit ["???"]
immer wieder raus...:
Sub Telekom_EVN_Import()
'
' Telekom_EVN_Import Makro
' Formatiert den Einzelverbindungsnachweis NACH DEM IMPORT!
'

'
Dim blattname As String

blattname = ActiveSheet.Name
Sheets("evn092002").Select
Selection.Copy
ActiveSheet.Name = blattname ["???"]
Cells.Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("B5").Select
End Sub

Anzeige
Re: Variable zur Erfassung des aktiven Sheet-Names
20.11.2002 14:30:02
MikeS
Hi und vielen Dank!
Ich füge Online-Rechnungen in ein Excel-Dokument ein und möchte das eingefügte Blatt nach dem Einfügen so formatieren lassen, wie ich jetzt eine 'Vorlage' formatiert habe. Deshalb soll es ein Makro werden, was folgendes macht:
1)Merke Dir das aktive Sheet
2)Markiere alle Zellen im Sheet'Vorlage'
3)Kopiere die Formatierungen
4)WECHSLE ZUM VORMALS AKTIVEN SHEET (Hier liegt mein Problem)
5)Füge die Formatierungen ein

Ich habe jetzt folgendes probiert, aber er fliegt an einer Stelle immer wieder raus:
Sub Telekom_EVN_Import()
'
' Telekom_EVN_Import Makro
' Formatiert den Einzelverbindungsnachweis NACH DEM IMPORT!
'

'
Dim blattname As String

blattname = ActiveSheet.Name
Sheets("evn092002").Select
Selection.Copy
ActiveSheet.Name = blattname [Hier steigt er aus]
Cells.Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("B5").Select
End Sub

Hast Du eine Idee?

Anzeige
Re: Variable zur Erfassung des aktiven Sheet-Names
20.11.2002 14:36:32
Steffen D
statt diese Zeile:
ActiveSheet.Name = blattname [Hier steigt er aus]

mach diese Zeile rein:
Sheets(blattname).Select

Re: Variable zur Erfassung des aktiven Sheet-Names
20.11.2002 14:41:33
Nico D
Dim a as string

a = activesheet.name

grüße

127 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige