Platzhalter für Suche...

Bild

Betrifft: Platzhalter für Suche...
von: Christoph
Geschrieben am: 18.03.2005 10:09:40
Hallo
wenn ich mehrere Tabellenblätter auswählen will die fortlaufend nummeriert sind aber den gleichen Anfang haben (A001, A002, A003, A004, B001, B002, B003....)
kann ich dann sagen
Sheets(Array("A*")).Select
und hier * als universellen platzhalter benutzen?
Gruß Chris

Bild

Betrifft: AW: Platzhalter für Suche...
von: u_
Geschrieben am: 18.03.2005 11:23:16
Hallo,
mit einer Schleife geht's:

Sub markieren()
  Dim sh As Worksheet, bolSel As Boolean
  For Each sh In Worksheets
    If sh.Name Like ("A*") Then
      If bolSel = False Then
        sh.Select
        bolSel = True
      Else
        sh.Select False
      End If
    End If
  Next
End Sub

Gruß
Bild

Betrifft: AW: Platzhalter für Suche...
von: Christoph
Geschrieben am: 18.03.2005 13:04:36
Hi,
sorry hab den eintrag zu spät bemerkt.
Das markieren funktioniert super.
Vielen Dank.
Wenn wir grad dabei sind, kannst du mir viellecith nochmal helfen?
Ich will jetzt nämlich die ausgewählten Blätter in eine neue Mappe kopieren:
selection.copy
funktioniert leider nicht
Gruß Chris
Bild

Betrifft: AW: Platzhalter für Suche...
von: u_
Geschrieben am: 18.03.2005 13:26:44
Hallo,
mit dem Araay ist das viel zu kompliziert. Kopiere sie doch nacheinander:

Sub CopySheets()
  Dim wbNeu As Workbook, sh As Worksheet
  Application.ScreenUpdating = False
  For Each sh In ThisWorkbook.Worksheets
    If sh.Name Like "Test*" Then
      If wbNeu Is Nothing Then
        sh.Copy
        Set wbNeu = ActiveWorkbook
      Else
        sh.Copy after:=wbNeu.Sheets(wbNeu.Sheets.Count)
      End If
    End If
  Next sh
  Application.ScreenUpdating = True
End Sub

Gruß
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Platzhalter für Suche..."