kann man per VBA die notwendige Spaltenbreite ermitteln?
Ich würde gerne vor dem Anpassen wissen, wie Breit die Spalte durch Autofit werden würde, um dann zu entscheiden, welche Breite ich einstelle.
Hat jemand eine Idee?
Danke, viele Grüße
MiSchi
Dim BrV As Double, BrN As Double
Application.ScreenUpdating = False
With Columns("A:A")
BrV = .ColumnWidth
.EntireColumn.AutoFit
BrN = .ColumnWidth
.ColumnWidth = BrV
' jetzt ist alles wie vorher
Application.ScreenUpdating = True
'Hier kannst du nun setzen was du möchtest
.ColumnWidth = BrN + 10
End With
LG UweD
Sub Spaltenbreite()
Dim Zelle As Range
Dim arr
Dim i As Long
With Intersect(Selection.EntireColumn, Rows(1))
ReDim arr(1 To .Cells.Count, 1 To 2)
For Each Zelle In .Cells
i = i + 1
arr(i, 1) = Zelle.Column
arr(i, 2) = Zelle.ColumnWidth
Next
End With
Selection.EntireColumn.AutoFit
Select Case MsgBox("Spaltenbreite übernehmen?", vbQuestion + vbOKCancel)
Case vbCancel
For i = 1 To UBound(arr, 1)
Columns(arr(i, 1)).ColumnWidth = arr(i, 2)
Next
Case Else
End Select
End Sub
Gruß Daniel