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
:)
Dieser Sheetname soll dann in einem Makro im Befehl
Sheets(aktiver Sheet).Select ausgewählt werden.
Vielen Dank
MikeS
:)
Gruß Boris
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
'
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
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?
mach diese Zeile rein:
Sheets(blattname).Select
a = activesheet.name
grüße