Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.01.2025 21:30:26
Punktediagramm mit verschieden vielen Punkten
17.01.2025 20:50:45
Fehlerquotient für Schultest berechnen (Formel)
17.01.2025 19:14:40
Power Query ignoriert die letzte Spalte - Warum ? Hilfe
17.01.2025 18:21:02
vba-editor öffnet sich,- aber kein Fehler
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Optimale Spaltenbreite unter Bedingung

Kategorie
Spaltenbreite
Tags
#spaltenanpassung #spaltenmanagement #spaltenverarbeitung
Relevante Fragen
Anzeige
Optimale Spaltenbreite unter Bedingung
06.06.2004 22:27:00
Dieter
Schönen Abend,
ich möchte erreichen, dass die ersten 20 Spalten in Tabelle1 alle die
gleiche Breite wie die Spalte haben, die am breitesten ist. Die breiteste
darf aber maximal 20 breit sein.
Also wenn die breiteste 15 ist, sollen alle anderen auch 15 sein, ist die
breiteste 25, sollen alle 20 breut sein.
Hoffe, das war einigermaßen verständlich.
Danke schon mal
mfg Dieter
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Optimale Spaltenbreite unter Bedingung
Ramses
Hallo
probier mal aus
Sub Fit_Width_to_Fix_Value() Dim maxW As Double Dim i As Byte Range(Columns(1), Columns(20)).AutoFit maxW = 0 For i = 1 To 3 If Columns(i).ColumnWidth > maxW Then maxW = Columns(i).ColumnWidth End If Next i If maxW > 20 Then Range(Columns(1), Columns(20)).ColumnWidth = 20 Else Range(Columns(1), Columns(20)).ColumnWidth = maxW End If End Sub
Gruss Rainer
Anzeige
AW: Optimale Spaltenbreite unter Bedingung
PeterW
Hallo Rainer,
bist du dir bei For i = 1 to 3 sicher?
Gruß
Peter
AW: Optimale Spaltenbreite unter Bedingung
Ramses
Hallo Peter
Natürlich nicht,... ich wollte bloss keine 20 Spalten im Einzelschritt prüfen :-))
For i = 1 to 20
Gruss Rainer
AW: Optimale Spaltenbreite unter Bedingung
Dieter
Hallo Ramses,
nachdem ich For i = 1 To 3 auf: For i = 1 To 20 geändert habe,
geht das, danke dir.
Grüße Dieter
Anzeige
Merci. Geschlossen m.T.
Ramses
Hallo
Noch zur Info:
Der Code funktioniert nicht, wenn in einer Spalte nichts drin steht.
AutoFit funktioniert da nicht, das heisst, wenn diese Spalte die grösste kleiner 20 ist, wird diese Spaltenbreite für alle angewendet.
Gruss Rainer
AW: Optimale Spaltenbreite unter Bedingung
06.06.2004 22:46:47
Josef
Hallo Dieter!
Probier mal.

Sub SpaltenBreite()
Dim arrDouble(19) As Double
Dim dblMax As Double
Dim intC As Integer
For intC = 1 To 20
arrDouble(intC - 1) = Sheets("Tabelle1").Columns(intC).ColumnWidth
Next
dblMax = WorksheetFunction.Max(arrDouble)
If dblMax > 20 Then dblMax = 20
Sheets("Tabelle1").Columns("A:T").ColumnWidth = dblMax
End Sub
Gruß Sepp
Anzeige
Ouups... zu langsam! o.T.
06.06.2004 22:48:04
Josef
Gruß Sepp
AW: Optimale Spaltenbreite unter Bedingung
Ramses
Hallo Sepp,
AutoFit fehlt noch bei Dir ;-), sonst kriegst du nicht die grösste Breite die kleiner als 20 ist.
Gruss Rainer
Danke! hab's gerade bemerkt ;-) o.T.
06.06.2004 22:51:18
Josef
Gruß Sepp
Anzeige

Forumthreads zu verwandten Themen

Spaltenbreite im Kombinationsfeld
1.Merlin

Hallo zusammen,
ich habe ein Kombinationsfeld per Code mit einem Array gefüllt.
Ich lasse 3 Spalten in dem Kombinationsfeld anzeigen.
Gibt es eine Möglichkeit jede dieser Spalten explizit in der Breite einzustellen, wie ?
Danke
28.01.2009 11:44:26
Thread-ID: 1044510
2 Beiträge
Zeilen- und Spaltenbreite in cm
Hartwig

Hallo Leute,
ich habe untenstehendes Makro mal von einem guten Helfer im Forum bekommen.
Ich weiß aber nicht mehr von wem. Nun weichen die Ergebnisse aber von der Eingabe ab.
Wenn ich z.B. 3,00 cm Spaltenbreite eingebe, erhalte ich 2,80 cm, bei 3,00 cm Zeilenhöhe
erhalte ich 3,3...
29.04.2009 09:49:17
Thread-ID: 1071787
4 Beiträge
Anzeige
Spaltenbreite in Zelle eintragen ?
Selma

Hallo Leute,
wie kann ich per VBA für die markierten Spalten in Zeile 1 die Spaltenbreite eintragen ?
Besten Dank im Voraus !
Viele Grüße,
Selma
16.07.2009 13:06:39
Thread-ID: 1089030
4 Beiträge
Anzeige
Pixel Position in einem Diagramm
Andreas

Hallo,
kann mir jemand erklären, wie man die X/Y Position eines Punktes in einem Diagramm rausfinden kann.
also soetwas wie
Sheets("Daten").ChartObjects("Diagramm 1").Chart.SeriesCollection(1).Points(10).X
es hat den hintergrund dass dieses diagramm als Bild in eine Userform lad...
02.01.2010 16:32:28
Thread-ID: 1126734
11 Beiträge
unterschiedliche Spaltenbreite in Liniendiagramm
anke

Hallo,
ich habe ein Diagramm mit einer X- und 2 Y-Achsen erstellt. In der X-Achse werden Daten angezeigt.
Lieder ist der Abstand zwischen den Daten nicht immer gleich. Kann ich in einem Diagramm die Spaltenbreite bestimmen?
Vielen Dank schonmal
Anke
13.04.2010 13:05:58
Thread-ID: 1151417
2 Beiträge
Anzeige
Spaltenbreite in Pixel setzen
Silvia

Wie kann ich die Spaltenbreite in Pixel setzen ?Danke Silvia
25.05.2002 15:06:17
Thread-ID: 123664
2 Beiträge
Anzeige
Spaltenbreite in Spreadsheet
Dirk

Hallo zusammen,
hoffentlich kann mir jemand weiterhelfen.
Ich habe ein Spreadsheet in einer Userform eingefügt.
Nun will ich die Spaltenbreite im Spreadsheet individuell
verändern, was auch eigentlich funktioniert. Nur nach
Schließen und wieder neu Öffnen der Datei sind die<...
28.03.2012 20:55:14
Thread-ID: 1256877
3 Beiträge
Spaltenbreite automatisch einstellen
Peter

Hallo Leute, ich habe dieses MAkro aufgenommen und nun in meinen Code verschoben.
Irgendetwas funzt net.
'Spalte A;B;C sollen 3,57 also 30 Pixel breit sein
'Spalte D soll6,43 also 50 Pixel breit sein
ActiveCell.Columns("A:A").EntireColumn.ColumnWidth = 3.57
ActiveCell.Offset...
17.10.2012 11:21:07
Thread-ID: 1282374
5 Beiträge
Spaltenbreite in Excel 2003 automatisch anpassen
Maximilian

Guten Tag!
Kann man in Excel 2003 die Spaltenbreite irgendwie automatisch anpassen? Alternativ per VBA Script? Hat da jemand einen Tipp?
13.12.2012 13:09:16
Thread-ID: 1290735
3 Beiträge
Spaltenbreite einer Listbox!
Christian

Hallo,mit dem Befehl objeckt.columnwidths kann man die spaltenbreite einer Listbox anpassen. Bei der Umsetzen Listbox1.columnwidths=100;100;100 bekomme ich immer eine Fehlermeldung ab dem ersten Semikolon. Wie funktioniert der Befehl genau, wenn ich mehrere Spaltenbreiten anpassen möchte?Mit fr...
25.06.2002 08:57:57
Thread-ID: 131105
3 Beiträge
Schriftgröße der Rubrik in Balkendiagramm ändern
Helmuth

Habe sowohl in Excel 2010 als auch in Excel 2013 keine Lösung für ein simples Problem gefunden: Möchte die Schriftgröße der Rubrik in einem Balkendiagramm - die zum Teil in einer Zeile aus mehreren Wörter besteht - von 10 auf 11 ändern ohne dass die Rubik mit .... endet.
Siehe dazu beiliege...
11.03.2014 19:33:26
Thread-ID: 1353148
9 Beiträge
Koordinaten in Pixel umrechnen
Peter

Hallo und guten Tag
Ich möchte Koordinaten Lat Lon (dezimal) in Pixel umrechnen so dass ich dann einen Kreis auf die in der Tabelle ganz oben links eingefügten Grafik (x*y : 1155 x 730px) zeichnen kann.
Das Zeichnen ist kein Problem, nur die Berechnung bekomme ich sei Tagen nicht hin !<...
12.03.2014 12:49:35
Thread-ID: 1353221
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige