Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Zell- ist Blattname

Betrifft: Zell- ist Blattname von: Bernd
Geschrieben am: 17.08.2014 09:32:10

Guten morgen Excelprofis!

Ich weiß, es wurde sicherlich schon hundert Mal und Stunden darüber Disskutiert, aber genau so lange suche ich schon, hier und im Netz.

Entweder weiß ich nicht wie ich es beschreiben soll, oder ich komme mit den Lösungen nicht zurecht.

Ich hoffe deshalb, hier Hilfe zu finden.

Mein Problem, eigentlich ein ganz kleines.

Ich möchte, wenn ich auf einem Tabellenblatt in die gruppierten Zellen (A1:K1), einen
Namen reinschreibe, dass sich dann der Tabellenblatname automatisch danach ändert.

Kann mir diesbezüglich Bitte jemand weiter helfen wie ich das machen muss?

Danke schon mal vorab und schönes Wochenende noch.

Bernd

  

Betrifft: AW: Zell- ist Blattname von: {Boris}
Geschrieben am: 17.08.2014 10:25:31

Hi Bernd,

in das Klassenmodul der entsprechenden Tabelle:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERR_HANDLER
With Target
    If Not Intersect(Target, Range("A1:K1")) Is Nothing Then
        If .Count = 1 Then
            Me.Name = .Value
        End If
    End If
End With
Exit Sub
ERR_HANDLER:
MsgBox "Ungültiger Blattname!", vbInformation, "Hinweis"
End Sub
VG, Boris


  

Betrifft: AW: Zell- ist Blattname von: Bernd
Geschrieben am: 17.08.2014 11:03:53

Hallo Boris!

Recht herzlichen Dank für Deine Hilfe, es funktioniert Wunderbar.

Dann Dir und Deinen nahen, ein schönes restliches Wochenende,

lg Bernd


 

Beiträge aus den Excel-Beispielen zum Thema "Zell- ist Blattname"