automatische Zeilenhöhe

' Prozedur zum automatischen Anpassen der Zeilenhöhe in der aktuellen Auswahl
Public Sub AutoFitRows()
Dim SelectedRange As Range
Dim myRow As Range
' Aktuell ausgewählten Bereich speichern
Set SelectedRange = Selection
' Durchläuft jede Zeile im ausgewählten Bereich
For Each myRow In SelectedRange.Rows
' Passt die Höhe der gesamten Zeile automatisch an
myRow.EntireRow.AutoFit
Next
End Sub
view raw AutoFitRows.vba hosted with ❤ by GitHub

automatische Zeilenbreite

' Prozedur zum automatischen Anpassen der Spaltenbreite in der aktuellen Auswahl
Public Sub AutoFitColumns()
Dim SelectedRange As Range
Dim myColumn As Range
' Aktuell ausgewählten Bereich speichern
Set SelectedRange = Selection
' Durchläuft jede Spalte im ausgewählten Bereich
For Each myColumn In SelectedRange.Columns
' Passt die Breite der gesamten Spalte automatisch an
myColumn.EntireColumn.AutoFit
Next
End Sub
view raw AutoFitColumns.vba hosted with ❤ by GitHub

Related posts:

EXCEL-ADD-IN EXCEL – TEXT NEBEN SEPARATOR Default ThumbnailUmgang mit Dezimalzahlen (Ganzzahl, Runden, Nachkommastellen) Zählen, wenn Fett/Kursiv …