Korrekte Adressierung?
06.02.2018 16:59:51
Peter
In meinem Worksheet "Journal" habe ich in verschiedenen Spalten benannte Bereiche (mit jeweils gleichviel Zeilen)
Der erste Bereich heisst "xDatum" der letzte "xGegenkonto".
Nun werden die Spaltenbreiten mit Autofit festgelegt, anschliessend erhöhe ich die Breite dieser Spalten um je 2.
Mir ist nicht ganz klar, ob die Adressierung der For-Schlaufe korrekt ist. Ist die Bereichsangabe eindeutig genug?
Gruss, Peter
With Range("xDatum:xGegenKonto")
.Columns.AutoFit
End With
For iColumn = 1 To Range("xDatum:xGegenkonto").Columns.Count
Columns(iColumn).ColumnWidth = Columns(iColumn).ColumnWidth + 2
Next
oder muss es heissen:
For iColumn = 1 To Range("psDatum:psGegenkonto").Columns.Count
Range("psDatum:psGegenkonto").Columns(iColumn).ColumnWidth = Columns(iColumn).ColumnWidth + 2
Next
Gruss, Peter