VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Spaltenbreite gemäß den in den Zellen stehenden Zahlen festlegen

Gruppe

Allgemein

Bereich

Ansicht

Thema

Spaltenbreite gemäß den in den Zellen stehenden Zahlen festlegen

Problem

Die Spaltenbreite im Bereich A:J soll gemäß den in Zeile 1 stehenden Prozentzahlen aufgeteilt werden.

Lösung

Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.




StandardModule: Modul1

Sub SpaltenBreite()
   Dim dWidth As Double
   Dim iCounter As Integer
   For iCounter = 1 To 10
      dWidth = dWidth + Columns(iCounter).ColumnWidth
   Next iCounter
   For iCounter = 1 To 10
      Columns(iCounter).ColumnWidth = _
         dWidth * Cells(1, iCounter) / 100
   Next iCounter
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Ansicht