06.04.2015, 13:29
Hallo zusammen,
habe eine Frage ,
habe ein Makro das die Spaltenbreite automatisch einstellt, jedoch gibt es da ein kleines problem. Das Makro erweitert nur die Zellen in denen neue Zahlen bzw Werte eingegeben werden, in den Zellen in denen der Wert automatisch ausgerechnet wird ändert er die Größe nicht.
Das Makro sollte nun auch noch die Zeilen höhe automatisch erhöhen.
Sub PasseKleineSpaltenAutomatischAn()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If IsNumeric(Zelle.Value) And Left(Zelle.Text, 1) = "#" Then
Zelle.EntireColumn.AutoFit
End If
Next Zelle
End Sub
habe eine Frage ,
habe ein Makro das die Spaltenbreite automatisch einstellt, jedoch gibt es da ein kleines problem. Das Makro erweitert nur die Zellen in denen neue Zahlen bzw Werte eingegeben werden, in den Zellen in denen der Wert automatisch ausgerechnet wird ändert er die Größe nicht.
Das Makro sollte nun auch noch die Zeilen höhe automatisch erhöhen.
Sub PasseKleineSpaltenAutomatischAn()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If IsNumeric(Zelle.Value) And Left(Zelle.Text, 1) = "#" Then
Zelle.EntireColumn.AutoFit
End If
Next Zelle
End Sub