habe ein kleines Problem:
Bei i = ActiveSheet.UsedRange.Columns.Count ist das Ergebnis zum Beispiel = 4
Gibt es die Möglichkeit statt "4" auch "D" als Variable rückgeben zu lassen?
Schönen Gruß
Burghard
With ActiveSheet
MsgBox Replace(.Cells(1, .UsedRange.Columns.Count).Address(0, 0), "1", "")
End With
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-LintfortSub zeilenhoehe()
Dim rng As Range
Dim z As Long
Dim s As Long
z = ActiveSheet.UsedRange.Rows.Count
s = ActiveSheet.UsedRange.Columns.Count
s = Replace(.Cells(1, .UsedRange.Columns.Count).Address(0, 0), "1", "")
Application.ScreenUpdating = False
Range("A1" & ":" & s & z).Select
For Each rng In Selection.Rows
rng.AutoFit
If rng.RowHeight
Sub zeilenhoehe()
Dim rng As Range
Rows.AutoFit
For Each rng In ActiveSheet.UsedRange.Rows
If rng.RowHeight
Sub zeilenhoehe2()
Dim rng As Range
Dim z As Long
Dim s As Long
Dim strC As String
With ActiveSheet ' With ... End With Fehlte !
z = .UsedRange.Rows.Count
s = .UsedRange.Columns.Count
strC = Replace(.Cells(1, .UsedRange.Columns.Count).Address(0, 0), "1", "")
Application.ScreenUpdating = False
With .Range("A1" & ":" & strC & z)
.EntireRow.AutoFit
For Each rng In .Rows
If rng.RowHeight
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort