Unsterblicher
Nicht mehr ganz neu hier
PixelNik
Sub Test()
Dim Spalte As Range
Dim Breite As Single
For Each Spalte In Tabelle1.UsedRange.Columns
Breite = Spalte.ColumnWidth
Spalte.ColumnWidth = Breite * 1.5
Next Spalte
End Sub
Sub Test()
Dim Spalte As Range
Dim Breite As Double
Dim neueBreite As Double
Dim bFaktor As Double
bFaktor = InputBox("Um welchen Faktor soll vergrößert werden:")
If bFaktor = 0 Then Exit Sub
For Each Spalte In Tabelle1.UsedRange.Columns
Breite = Spalte.ColumnWidth
Spalte.ColumnWidth = Round(Breite * bFaktor, 2)
Next Spalte
End Sub
Excel (SVERWEIS...)
Genaugenommen muss es lauten: „Inhalte einfügen > Inhalte einfügen > Spaltenbreite“.Aber du kannst du ersten beiden Spalten „händisch“ vergrößern, die Spalten markieren, kopieren, die anzupassenden Spalten markieren und mit „Inhalte einfügen > Spaltenbreite“ den Rest anpassen
Willkommen auf PSD-Tutorials.de
In unseren Foren vernetzt du dich mit anderen Personen, um dich rund um die Themen Fotografie, Grafik, Gestaltung, Bildbearbeitung und 3D auszutauschen. Außerdem schalten wir für dich regelmäßig kostenlose Inhalte frei. Liebe Grüße senden dir die PSD-Gründer Stefan und Matthias Petri aus Waren an der Müritz. Hier erfährst du mehr über uns.
Nächster neuer Gratisinhalt
Statistik des Forums