Ändern der Spaltenbreite und Zeilenhöhe

Question

Ich habe eine Arbeitsmappe mit 100-150 Arbeitsblättern Ich habe einen Code erstellt, der die Zeilenhöhe und Spaltenbreite aller Arbeitsblätter mit Ausnahme der Arbeitsblätter mit dem folgenden Namen ändert: "Cover" "Trans_Letter "," Abkürzung "und Blattname endet mit _Index.

Mein Code funktioniert einwandfrei und ändert Zeilenhöhe und Spaltenbreite, ändert jedoch auch die Spaltenbreite und Zeilenhöhe für die Blattnamen, die mit _Index enden.

Bitte schlagen Sie vor, wie sollte ich den Code ändern, so dass während der Schleife sollte die Blattnamen mit _Index enden.

Ich denke, die folgende Zeile geändert werden muss: -

If ShtNames(Z) <> "Trans_Letter" And ShtNames(Z) <> "Cover" And ShtNames(Z) <> "Abbreviations" And InStr("_Index", ShtNames(Z)) = 0 Then 

Bitte unter dem Code finden: -

Sub rowcolallsheetbtransletter() 

    Dim exworkb As Workbook 
    Dim xlwksht As Worksheet 
    Dim lastrow1 As Long 
    Dim lastcolumn1 As Long 
    Dim firstrowDB As Long 
    Dim Z As Integer 
    Dim ShtNames() As String 

    ReDim ShtNames(1 To ActiveWorkbook.Sheets.Count) 

    For Z = 1 To Sheets.Count 

     ShtNames(Z) = Sheets(Z).Name 

     If ShtNames(Z) <> "Trans_Letter" And ShtNames(Z) <> "Cover" And ShtNames(Z) <> "Abbreviations" And InStr("_Index", ShtNames(Z)) = 0 Then 

      Sheets(Z).Select 

      lastrow1 = Sheets(Z).Cells(Rows.Count, "A").End(xlUp).Row 
      lastcolumn1 = Sheets(Z).Cells(1, Columns.Count).End(xlToLeft).Column 

      ActiveWorkbook.Sheets(Z).Range(Sheets(Z).Cells(1, 2), Sheets(Z).Cells(lastrow1, lastcolumn1)).Select 

      Selection.Cells.RowHeight = 67 
      Selection.Cells.ColumnWidth = 30 

     End If 
    Next Z 
End Sub 

Answer 1

statt, ob der Blattname in der Zeichenfolge „_index“ der Überprüfung besteht Überprüfen Sie, ob "_Index" innerhalb des Blattnamens existiert:

If ShtNames(Z) <> "Trans_Letter" And _ 
    ShtNames(Z) <> "Cover" And _ 
    ShtNames(Z) <> "Abbreviations" And _ 
    InStr(ShtNames(Z), "_Index") = 0 Then