Private Sub CommandButton1_Click()
Dim zelle As Range
With Worksheets("Tabelle1")
Set zelle = .Columns("B:B").Find(What:=Range("H11").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not zelle Is Nothing Then
.Range("I11:M11").Copy .Cells(zelle.Row, 3)
.Range("H11:M11").ClearContents
End If
End With
End Sub
Die Datei https://www.herber.de/bbs/user/74639.xls wurde aus Datenschutzgründen gelöscht
Private Sub CommandButton1_Click()
Dim zelle As Range
With Worksheets("Supplier Agreements")
.Range("A16:N16").Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1)
.Range("A11:N16").ClearContents
End With
End Sub
Private Sub CommandButton1_Click()
With Worksheets("Supplier Agreements")
.Range("A17:N17").Copy .Cells(.Cells(.Rows.Count, 2).End(xlUp).Row + 1, 1)
.Range("A17:N17").ClearContents
End With
End Sub
Was ist mit den Formeln und Formaten?
Was ist mit den Formeln und Formaten?
Was ist mit den Formeln und Formaten?