Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Platzhalter für Suche..."
Füllen aller leeren Zellen mit einem Platzhalter