Microsoft Excel

Herbers Excel/VBA-Archiv

Arbeitsblattauswahl mit Kriterium

Betrifft: Arbeitsblattauswahl mit Kriterium von: Conrad
Geschrieben am: 31.08.2004 09:13:23

hallo leute,

weiter unten im forum folgenden code gefunden

Sub Inhalt_der_Mappe()

Dim i As Integer

    Sheets("Inhalt").Select
    
    For i = 1 To Sheets.Count
        Cells(i, 1).Value = Sheets(i).Name
    Next
    
    
End Sub


damit werden alle Tabellenblätter der aktiven Mappe innerhalb des Tabellenblattes Inhalt angezeigt.
Kann man dies noch mit eibnem bestimmten Kriterium koppeln, z.B. das nur diese Tabellenblätter gelistet werden, denen einen C vorangestellt ist, also z.-B. C.I.1.??

mit Grüssen aus Leipzig

Conrad
  


Betrifft: AW: Arbeitsblattauswahl mit Kriterium von: y
Geschrieben am: 31.08.2004 09:25:38

hi Conrad,
so in etwa:

Sub Inhalt_der_Mappe()
Dim i As Integer
    For i = 1 To Sheets.Count
       If Left(Sheets(i).Name, 1) = "C" Then Sheets("Inhalt").Cells(i, 1).Value = Sheets(i).Name
    Next   
End Sub


cu Micha


  


Betrifft: Da bleiben aber im Zweifel Lücken in Spalte A von: Boris
Geschrieben am: 31.08.2004 09:29:37

Hi Micha,

...daher würd ich es so machen:

Option Explicit

Sub alle_mit_c()
Dim Ws As Worksheet
Dim i As Integer
i = 1
With Worksheets("Inhalt")
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name Like "C*" Then
            .Cells(i, 1) = Ws.Name
            i = i + 1
        End If
    Next Ws
End With
End Sub


Grüße Boris


  


Betrifft: AW: Da bleiben aber im Zweifel Lücken in Spalte A von: ypsilon
Geschrieben am: 31.08.2004 09:32:14

hi Boris,
da die namen dann unsortiert vorliegen ging ich davon aus, dass sowieso eine sortierroutine rüberlaufen muss

cu Micha


  


Betrifft: AW: Arbeitsblattauswahl mit Kriterium von: :
Geschrieben am: 31.08.2004 09:29:37


Sub Inhalt_der_Mappe()
Dim i As Integer, n As Integer
n = 1
    Sheets("Inhalt").Select
    For i = 1 To Sheets.Count
      If UCase(Left(Sheets(i).Name, 1)) = "C" Then
        Cells(n, 1).Value = Sheets(i).Name
        n = n + 1
      End If
    Next
End Sub



  


Betrifft: Dank an das super Forum :-) von: Conne
Geschrieben am: 31.08.2004 10:00:51




 

Beiträge aus den Excel-Beispielen zum Thema "Arbeitsblattauswahl mit Kriterium"