Mein Makro pass nicht mehr! Kann jemand helfen!
01.09.2003 14:39:58
Chris
ich bins schon wieder!
Habe ein Makro geschrieben, welches mir erlaubt automatisch die Zeilenhöhe dem Inhalt anzupassen!
Mein makro lautet:
Sub ZeilenHoehe()
Dim i As Byte
Application.ScreenUpdating = False
For i = 16 To 42
Sheets("Übersichtsblatt").Rows(i & ":" & i).RowHeight
Next i
Application.ScreenUpdating = True
End Sub
Sub Automakro()
Rows("16:42").EntireRow.AutoFit
End Sub
So hat es ursprünglich auch funktioniert, doch als ich die Zeilen (A&D) verbunden hatte, funktionierte es nicht mehr!
Meine Tabelle geht von ("B2:G42")
Wie müsste ich denn mein Makro umschreiben, um das Verbinden der Zellen auszugleichen!
LG Chris
Anzeige