AW: Mehrfachtabellenauswahl abfragen ...
10.09.2010 14:56:34
Peter
Hallo Jogy
Vielen Dank. Das hat mir geholfen, mein "Endprodukt" zusammenzustellen.
@ Rudi:
mit diesem Code gebe ich eine bestimmte Mehrtabellenauswahl im Direktbereich aus; gleich "umgeben" mit dem Code, durch dessen Anwählen ich die Mehrfachauswahl wiederherstellen kann.
Beispiel eines Praxisbezugs:
1. Ich bearbeite verschiedene Tabellen gleichzeitig (Mehrfachauswahl)
2. Bevor ich zwischendurch an einer einzelnen Tabelle etwas ändern muss, starte ich diesen untenstehenden Sub
3. Nun will ich in die gleiche Mehrfachauswahl zurück und betätige den Code im Direktbereich.
Vielleicht gibt es ja ein besseres Vorgehen, aber man behilft sich mit dem, was man sich vorstellen kann.
Gruss, Peter
Sub tabMFA_in_Direktbereich()
Dim objSheets As Sheets
Dim mySheet
Dim ausGabe As String
Set objSheets = ActiveWindow.SelectedSheets
For Each mySheet In objSheets
ausGabe = ausGabe & IIf(ausGabe = "", "", ", ") & mySheet.Name
Next
'MsgBox ("Folgende Sheets sind ausgewählt:" & vbNewLine & ausGabe)
ausGabe = "Sheets(Array(""" & ausGabe & """)).Select"
ausGabe = Replace(ausGabe, ", ", """, """)
Debug.Print ausGabe
End Sub