|
Hallo zusammen,
ich habe eine Frage und hoffe ihr könnt mir helfen. Ich versuche hier mehrere Spalten anzusprechen, um dort Formatierungen vorzunehmen. Da die Anordnung der Spalten immer unterschiedlich sein kann, gehe ich den Weg über die Spaltenbezeichnung. Hier mal beispielhaftt:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | Sub Spaltenbreiteanpassen()
Dim sText1, sText2, As String
Dim iCol1 As Integer
Dim iCol2 As Integer
Dim lRow As Long
On Error Resume Next
sText1 = "Miez"
sText2 = "Muz"
lRow = 1
iCol1 = Application.WorksheetFunction.Match(sText1, Cells(lRow, 1).EntireRow, False)
iCol2 = Application.WorksheetFunction.Match(sText2, Cells(lRow, 1).EntireRow, False)
Cells(1, iCol1).EntireColumn.ColumnWidth = 7
Cells(1, iCol2).EntireColumn.ColumnWidth = 7.8
End Sub
|
Jetzt meine Frage/Problem (sorry, bin blutiger Anfänger!): Es kommen jetzt noch weitere Spalten hinzu, die die gleiche Spaltenbreite bekommen sollen. Muss ich die dann alle einzeln deklarieren/zuweisen?
Wie könnte ich in meinem Beispiel codieren, dass Miez und Muz beide eine Breite von 8 haben sollen ohne einfach den Code wie im Beispiel zu duplizieren?
Ich hoffe es ist verständlich und ein Riesendankeschön!
LG
Jonas
|