Range für Paste ändern VBA
03.12.2019 07:36:55
Thomas
Kann mir bitte einer sagen wie ich den Code entsprechend umschreiben kann, hab die ganze Nacht versucht und nichts brauchbares zustande gebracht.
Mein Code sucht den Inhalt der TextBox in Spalte A und soll die kopierte Range dann einfügen.
Momentan fügt er das kopierte direkt in Spalte A ein. Jetzt soll er den Inhalt in spalte A suchen und das kopierte in Spalte U einfügen.
Private Sub CommandButton3_Click()
Dim lnglast2 As Long
Dim Suche
lnglast2 = Sheets("Planung").Cells(Rows.Count, 1).End(xlUp).Row
Set Suche = Sheets("Planung").Range("U4:U" & lnglast2).Find(TextBox46, LookIn:=xlValues)
If Not Suche Is Nothing Then
Sheets("Datenbank").Range("F2:IZ2").Copy
Sheets("Planung").Range(Suche.Address).PasteSpecial xlPasteValues
Sheets("Planung").Range(Suche.Address).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
Else
Sheets("Datenbank").Range("F2:IZ2").Copy
Sheets("Planung").Cells(lnglast2 + 1, 21).PasteSpecial xlPasteValues
Sheets("Planung").Cells(lnglast2 + 1, 21).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End If
End Sub
Vielen Dank schonmal im voraus.
Gruß
Thomas