Forums Neueste Beiträge
 

vba blatt umbenennen dialog..

12/07/2010 - 18:43 von hotzi | Report spam
hallo zusammen,

ich will den blatt umbenennen dialog so aufrufen, dass die ersten 3
zeichen einer feststehenden blattnamens nicht markiert sind. geht das?


Application.Dialogs(xlDialogWorkbookName).Show ActiveSheet.???

freue mich auf eine antwort klaus.
 

Lesen sie die antworten

#1 Peter Schleif
12/07/2010 - 19:14 | Warnen spam
hotzi schrieb am 12.07.2010 18:43 Uhr:

ich will den blatt umbenennen dialog so aufrufen, dass die ersten 3
zeichen einer feststehenden blattnamens nicht markiert sind. geht das?

Application.Dialogs(xlDialogWorkbookName).Show ActiveSheet.???



AFAIK geht das nicht. Ersatzweise könntest Du dir eine eigene UserForm
anlegen und damit den Dialog nachbilden:

- TextBox (txtBlatt)
- OK-Button (cmdOK)
- Abbrechen (cmdCancel)

Der Aufruf der UserForm sàhe àhnlich aus wie der des Dialogs:

UserForm1.Show2 ActiveSheet.Name


'Code im UserForm-Modul:

Dim alter_name As String

Public Function Show2(blatt As String)
alter_name = blatt
Me.txtBlatt = blatt
Me.txtBlatt.SelStart = 3
Me.txtBlatt.SelLength = Len(blatt) - 3
Me.Show
End Function

Private Sub cmdOK_Click()
Sheets(alter_name).Name = Me.txtBlatt
Me.Hide
End Sub

Private Sub cmdCancel_Click()
Me.Hide
End Sub

Ähnliche fragen