Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Spaltenbreite mit dem Wert in 10. Zeile

Spaltenbreite mit dem Wert in 10. Zeile
23.06.2024 21:44:52
Erwin
Guten Abend,

ich habe mehrere Spalten bei denen ich mit einem Code die notwendige Spaltenbreite automatisch mache, das funzt.
Da in der Spalte A immer eine lange Überschrift steht, stimmt das autofit bei A nie.
Gibt es ein autofit ab Zeile A15, wenn JA, wie lautet der Code.
Oder kann man die erforderliche Spaltenbreite in A15 errechnen (Schriftart/größe, Buchsabenbreite, ...) und die Spalte A dann an Zeile 15 ausrichten (ggf. bitte Code)?

Danke schon mal für's grübeln :)

Erwin

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltenbreite mit dem Wert in 10. Zeile
23.06.2024 22:02:47
ralf_b
autofit machen
überschrift nach spalte b verschieben
autofit spalte A
überschrift zurückschreiben
AW: Spaltenbreite mit dem Wert in 10. Zeile
23.06.2024 22:07:37
Kuwer
Hallo Erwin,

z.B. so:
Sub Autofit_15()

Dim vArray As Variant
With Range(Cells(1), Cells(Rows.Count, 1).End(xlUp))
vArray = .Value
.Value = ""
.Cells(15).Value = vArray(15, 1) 'Bezugszelle für Autofit
.EntireColumn.AutoFit
.Value = vArray
End With
End Sub
Gruß, Uwe
Anzeige
AW: Spaltenbreite mit dem Wert in 10. Zeile
23.06.2024 22:15:37
Erwin
Hallo Uwe,
das ist genau das, was ich mir vorgestellt habe; das kann ich easy bei mir einbauen.
Vielen Dank
Erwin
AW: Spaltenbreite mit dem Wert in 15. Zeile
25.06.2024 21:25:55
Erwin
Hallo,

ich muss leider die Frage nochmals öffnen, da mir die Praxis noch eine Fallgestaltung aufgezeigt hat.
Es gibt nicht nur eine Themenüberschrift, sondern auch noch eine Spaltenüberschrift und dann natürlich die Inhalte der Spalte.
Der Code von Uwe funzt richtig gut für die Zeile 15 (=Spaltenüberschrift), aber wenn der Inhalt dann breiter ist als die Überschrift, passt es nicht.

Gibt es eine Möglichkeit den Code so zu ändern, dass er die Breite ab Zeile 15 bis zum Ende der Spalte A prüft und von dort aus der maximalen Breite das autofit macht?

Danke und Grüße - Erwin
Anzeige
AW: Spaltenbreite mit dem Wert ab 15. Zeile
25.06.2024 22:03:09
Kuwer
Hallo Erwin,
Sub Autofit_ab_15()

Dim vArray As Variant
With Range("A1:A14")
vArray = .Value
.Value = ""
.EntireColumn.AutoFit
.Value = vArray
End With
End Sub
Gruß, Uwe
AW: Spaltenbreite mit dem Wert in 15. Zeile
27.06.2024 13:57:49
Erwin
Hallo,

ich muss zu diesem Thema nochmals nachfragen, nachdem ich neue Listen erhalten habe und diese nicht alle fix ab der 15. Zeile beginnen; die neuen Listen beginnen mal ab Zeile 12 oder auch 18... mit der Spaltenüberschrift.
Aus eine vorherigen Prozedur habe ich eine Variable (vZ) mit einem Zeilenwert und möchte diesen weiter benutzen.
Allerdings kann ich ja nicht schreiben... With Range("A1:vZ")... weil dann eine Fehlermeldung erscheint.
Kann man das irgendwie umgehen?

Sub Autofit_ab_15()
Dim vArray As Variant
With Range("A1:A14")
vArray = .Value
.Value = ""
.EntireColumn.AutoFit
.Value = vArray
End With
End Sub

Sorry, das ich nicht gleich an alles gedacht habe.

Grüße - Erwin
Anzeige
AW: Spaltenbreite mit dem Wert in 15. Zeile
27.06.2024 14:22:05
GerdL
Hmmm,

wenn in vZ die Zeilennummer der Überschriftenzeile steht:
'...............................
With Range("A1:A" & (vZ - 1))
'....................


Gruß Gerd
AW: Spaltenbreite mit dem Wert ab 15. Zeile
25.06.2024 23:04:38
Erwin
Hallo Uwe,
danke, dass du mir nochmals geholfen hast; werde ich morgen gleich ausprobieren
Grüße - Erwin
Anzeige
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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