Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1408to1412
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1408to1412
1408to1412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Meldung wenn mehrer Blätter makiert

Meldung wenn mehrer Blätter makiert
27.02.2015 10:23:51
kurt
Guten Morgen,
ich such nach einem Makro, wenn mehrere Sheets makiert
sind, das eine Meldung erscheint.
Schön würde es sein, das die Sheets (Tabellennamen) aufgelistet werden bzw.
per MSGBOX.
gruß Kurt kl

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Meldung wenn mehrer Blätter makiert
27.02.2015 10:48:32
Michael
Hallo Kurt!
So?
Sub GewBlaetterListen()
Dim TabBlatt As Worksheet
Dim Blattliste As String
If ActiveWindow.SelectedSheets.Count > 1 Then
For Each TabBlatt In ActiveWindow.SelectedSheets
Blattliste = Blattliste & TabBlatt.Name & vbCrLf 'Zeilenumbruch nach jedem  _
Blattnamen
Next TabBlatt
MsgBox "Folgende Tabellenblätter sind aktuell markiert: " & vbCrLf & vbCrLf _
& Blattliste, vbInformation, "Markierte Blätter"
End If
End Sub
LG
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige