Makros zusammenführen
28.02.2008 01:25:00
Gesa
ich würde gern aus 2 Makros ein Makro machen - ich bin leider absolut damit überfordert - habe schon einiges ausprobiert - aber dann klappt irgendwie gar nichts mehr...
1. Makro
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row >= 34 Then
'Prüfen ob Eingabe in Spalte 1 in letzter Zeile von Spalte 2 vorhanden
If Not IsEmpty(Me.Cells(Me.Rows.Count, 2).End(xlUp).Offset(0, -1)) Then
Call BeliebigeZeileKopieren
End If
End If
End Sub
2. Makro
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range, RowHeightMin As Single
Dim ActiveCellWidth As Single, PossNewRowHeight As Single
RowHeightMin = 10 ' Diesen Wert vergrößern, wenn eine Mindestzeilenhöhe nicht _
unterschritten werden soll
If Target.Row > 1 And Target.Row PossNewRowHeight, _
WorksheetFunction.Max(CurrentRowHeight, RowHeightMin), PossNewRowHeight) _
_
End If
End With
End If
End If
Application.ScreenUpdating = True
End Sub
Vielen dank im voraus und schöne Grüße
Gesa S.