Fragen zu Excel-Zugriff

Computer: Software & Programmierung Visual Basic
#1

Hallo
nun noch ein paar Fragen zum Excelzugriff.

  1. Wie bekomme ich die Anzahl der Tabellenblätter einer Exceldatei?
  2. Kann ich dann auch auf das zB 5.Blatt zugreifen, ohne den Namen zu
    haben???
  3. Wenn meine Blätter zB. m1(1), m2(2), m3(3), m4(4) heissen und ich
    aus meiner Anwendung nur den Namen m3 habe, wie rufe ich dann das
    Blatt m3(3) auf. Wie kann ich also nach einem Teilbegriff innerhalb
    der Blätter suchen.

Sicher einfache Befehle für jmd der sich da auskennt.

Mfg Werner

#2

Moin

  1. Wie bekomme ich die Anzahl der Tabellenblätter einer
    Exceldatei?

z.B.:

MsgBox ActiveWorkbook.Worksheets.Count

Anstelle von „ActiveWorkbook“ tut es ein beliebiges WorkBook-Objekt

  1. Kann ich dann auch auf das zB 5.Blatt zugreifen, ohne den
    Namen zu haben???

Klar.

Dim ows As Worksheet
Set ows = ActiveWorkbook.Worksheets(5)
  1. Wenn meine Blätter zB. m1(1), m2(2), m3(3), m4(4) heissen
    und ich aus meiner Anwendung nur den Namen m3 habe, wie rufe ich
    dann das Blatt m3(3) auf. Wie kann ich also nach einem Teilbegriff
    innerhalb der Blätter suchen.

Mmh… Spontan:

 Dim oWS As Worksheet, oWSGesucht As Worksheet
 For Each oWS In ActiveWorkbook.Worksheets
 If Left(oWS.Name, 2) = "m3" Then Set oWSGesucht = oWS
 Next

OK, ist die Bedingung nicht erfüllt, so ist oWSGesucht hinterher nicht gesetzt. Aber so als Tipp hoffentlich brauchbar.

Schöne Grüße
Leo

#3

Danke
Hallo
vielen Dank, das hilft mir.

Mfg Werner