Makro funktioniert nicht richtig
14.11.2006 11:14:08
Gesa
habe ein Makro (Ereignis) welches verbundene Zeilen automatisch nach Eingabe vergrößert. Wenn die Eingabe aber später entfernt wird (z. B. von 3 auf 0 Zeilen) funktioniert das Makro nicht und es erscheint der Laufzeitfehler 1004 (im Makro wird dann die 7. Zeile : "With Target.MergeArea " gelb hinterlegt) Kann mir jemand das Makro so ändern, dass es auch in umgekehrter Reihenfolge funktioniert?
Wäre für Hilfe wirklich dankbar.
Ach ja, hier noch das Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range
Dim ActiveCellWidth As Single, PossNewRowHeight As Single
If Target.Row > 1 And Target.Row < 100 Then
If Target.MergeCells Then
With Target.MergeArea
If .Rows.Count = 1 And .WrapText = True Then
Application.ScreenUpdating = False
CurrentRowHeight = .RowHeight
ActiveCellWidth = ActiveCell.ColumnWidth
For Each CurrCell In Selection
MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth
Next
.MergeCells = False
.Cells(1).ColumnWidth = MergedCellRgWidth
.EntireRow.AutoFit
PossNewRowHeight = .RowHeight
.Cells(1).ColumnWidth = ActiveCellWidth
.MergeCells = True
.RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _
CurrentRowHeight, PossNewRowHeight)
End If
End With
End If
End If
Application.ScreenUpdating = True
End Sub
Schöne Grüße
Gesa S.