Zeile unterhalb einfügen.
07.07.2019 12:21:57
Thomas
ich habe mir ein Code gebastelt, welcher mir eine Zeile oberhalb der ausgewählten Zelle einfügt _
und die ersten zwei Zellen der neu eingefügten Zeile auswählt, verbindet und rechtsbündig macht.
Private Sub CommandButton1_Click()
Dim Eingabewert As Byte
Eingabewert = MsgBox("Do you realy want to add a row?" & vbCrLf & "the row will be added above _
the seleced row", vbYesNo)
If Eingabewert = vbYes Then
ActiveCell.EntireRow.Insert
'ActiveCell.Offset(1).EntireRow.Insert
'ActiveCell.Offset(1, 0).Select
Selection.Merge
Selection.HorizontalAlignment = xlRight
Unload UserForm3
ElseIf Eingabewert = vbNo Then
Unload UserForm3
MsgBox "No row added"
End If
End Sub
Jetzt würde ich das aber gerne anders rum machen. Heißt neue Zeile unterhalbeinfügen und die ersten zwei Zellen der neuen Zeile auswählen, verbinden und rechtsbündig Ausrichten.
Unterhalb einfügen bekomme ich hin (siehe Kommentar im Code), aber ich bekomme es nicht gebacken die ersten beiden Zellen der neuen Zeile auszuwählen.
Hat jemand einen Tip ?