Makro erzeugt falsche Rahmen

[Daniel Albert]

Hallo, ein Mitglied hier im Forum hat mir beim einer der letzten Probleme in meiner Exceltabelle für den Verein sehr gut weitergeholfen. Jetzt habe och gehofft ein anderes Problem mit seiner Formel selbst hinzubekommen. Leider Fehlanzeige. Das Makro erzeugt in der tabelle "Kontaktdaten Tigergruppe" Spalte a ab Zeile 57 Rahmenlinien warum auch immer. Hat jemand eine Idee warum das so ist ???

Ich verstehe das nicht.

Gruß Daniel

[shift-del]

Hat jemand eine Idee warum das so ist ???

Ich vermute mal es liegt daran die Bereiche explizit im Code aufgeführt sind.

Code:

Sub Format(Optional ws As Worksheet)
  If ws Is Nothing Then Set ws = ActiveSheet
  With ws
     .Unprotect
     With Union(.Range("A5:A64"), .Range("A72:A131"), .Range("A137:A196"), .Range("A202:A261"), _
         .Range("A267:A326"), .Range("A330:A389"), .Range("A395:A454"), .Range("A460:A519"), .Range("A525:A584")) _
         .Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
     End With
     .Protect
  End With
End Sub

[Daniel Albert]

Hallo,
du bist glaube ich im falschen Makro. Es geht um folgendes

Code:

Sub SetzeFormelnKontaktdaten_Tiger()
  Dim ws As Worksheet
 
  Set ws = ActiveSheet
  With ws
     .Unprotect
     
   '  .Range("A5").FormulaArray = "=IFERROR(INDEX('aktive Mitglieder'!$B$5:$B$64,SMALL(IF(('aktive Mitglieder'!$H$5:$H$64=""A"")*('aktive Mitglieder'!$I$5:$J$64=""x"")"
    .Range("A5").FormulaArray = "=IFERROR(INDEX('aktive Mitglieder'!$B$5:$B$64,SMALL(IF(('aktive Mitglieder'!$H$5:$H$64=""A"")*('aktive Mitglieder'!$I$5:$J$64=""x""),ROW($1:$52)),ROW(A1))),"""")"
  '   .Range("A5:A56").FillDown
     
     .Protect
  End With
  Call Format(ws)
End Sub

[shift-del]

du bist glaube ich im falschen Makro. Es geht um folgendes

In deinem geposteten Code steht: Call Format(ws). Und im Sub Format steht der Code, den ich gepostet habe.

[Daniel Albert]

Verdammt voll übersehen. Danke habe ich geänert. Jetzt geht es

Danke nochmal