Tabellenblattname in Msg-Box
14.01.2020 20:35:06
Silke
brauch mal wieder professionelle Hilfe.
Durch eine markierte Zeile in meiner Listbox kann ich versteckte (xlSheet-VerryHidden) Tabellenblätter
einzeln mittels einer Schaltfläche wieder sichtbar machen.
Das Sichtbar schalten funktioniert auch ganz gut.
Anschließend möchte ich noch gern eine Textausgabe mit einer MsgBox haben. (Funktioniert auch)
Wie bekomme ich in der Msg-Meldung den Namen für das eingeblendete Tabellenblatt eingefügt?
Gruß
Silke
Private Sub Einstellungen_cmd_Tabellenbl_einblenden_Click()
Dim i As Integer
For i = 0 To ListBox_Einstellungen_Tabellenblaetter.ListCount - 1
If ListBox_Einstellungen_Tabellenblaetter.Selected(i) Then
Sheets(ListBox_Einstellungen_Tabellenblaetter.List(i)).Visible = xlSheetVisible
Sheets(ListBox_Einstellungen_Tabellenblaetter.List(i)).Activate
Exit For
End If
Next
' Messagebox einblenden
MsgBox "Tabellenblattname ? " & " wurde eingeblendet", vbOKOnly, "Tabellenblatt einblenden"
End Sub
Anzeige