PSD-Tutorials.de
Forum für Design, Fotografie & Bildbearbeitung
Tutkit
Agentur
Hilfe
Kontakt
Start
Forum
Aktuelles
Besonderer Inhalt
Foren durchsuchen
Tutorials
News
Anmelden
Kostenlos registrieren
Aktuelles
Suche
Suche
Nur Titel durchsuchen
Von:
Menü
Anmelden
Kostenlos registrieren
App installieren
Installieren
JavaScript ist deaktiviert. Für eine bessere Darstellung aktiviere bitte JavaScript in deinem Browser, bevor du fortfährst.
Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden.
Du solltest ein Upgrade durchführen oder einen
alternativen Browser
verwenden.
Antworten auf deine Fragen:
Neues Thema erstellen
Start
Forum
Sonstiges
Office, Software, Hardware, Technische Fragen
Microsoft Excel, Google Sheets
Spalten gleichmäßig vergrößern
Beitrag
<blockquote data-quote="Chris_EDI" data-source="post: 2653395" data-attributes="member: 491177"><p>Ein kleines Makro könnte dir dabei helfen: Ich habe jetzt mal zum Testen den Faktor 1.5 genommen, den kannst du nach deinen Wünschen abändern. Noch komfortabler wäre eine Abfrage während der Ausführung. </p><p>[CODE]Sub Test()</p><p></p><p>Dim Spalte As Range</p><p>Dim Breite As Single</p><p></p><p>For Each Spalte In Tabelle1.UsedRange.Columns</p><p>Breite = Spalte.ColumnWidth</p><p></p><p>Spalte.ColumnWidth = Breite * 1.5</p><p></p><p>Next Spalte</p><p>End Sub[/CODE]</p><p></p><p>Edit: Code mit Abfrage, noch nicht ausgiebig getestet, scheint aber zu funktioniren (bei Eingabe mit Dezimalstellen bitte das <em>Komma </em>statt <em>Punkt </em>verwenden): </p><p>[CODE]Sub Test()</p><p></p><p>Dim Spalte As Range</p><p>Dim Breite As Double</p><p>Dim neueBreite As Double</p><p></p><p>Dim bFaktor As Double</p><p> bFaktor = InputBox("Um welchen Faktor soll vergrößert werden:")</p><p> If bFaktor = 0 Then Exit Sub</p><p></p><p>For Each Spalte In Tabelle1.UsedRange.Columns</p><p>Breite = Spalte.ColumnWidth</p><p></p><p>Spalte.ColumnWidth = Round(Breite * bFaktor, 2)</p><p></p><p>Next Spalte</p><p>End Sub[/CODE]</p></blockquote><p></p>
[QUOTE="Chris_EDI, post: 2653395, member: 491177"] Ein kleines Makro könnte dir dabei helfen: Ich habe jetzt mal zum Testen den Faktor 1.5 genommen, den kannst du nach deinen Wünschen abändern. Noch komfortabler wäre eine Abfrage während der Ausführung. [CODE]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[/CODE] Edit: Code mit Abfrage, noch nicht ausgiebig getestet, scheint aber zu funktioniren (bei Eingabe mit Dezimalstellen bitte das [I]Komma [/I]statt [I]Punkt [/I]verwenden): [CODE]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[/CODE] [/QUOTE]
Bilder bitte
hier hochladen
und danach über das Bild-Icon (Direktlink vorher kopieren) platzieren.
Zitate einfügen…
Authentifizierung
Der grüne Frosch hüpft über die Hügel an den Bäumen vorbei in die Höhle. Bitte nenne das fünfte Wort!
Antworten
Start
Forum
Sonstiges
Office, Software, Hardware, Technische Fragen
Microsoft Excel, Google Sheets
Spalten gleichmäßig vergrößern
Oben