VBA Nicht EntireRow.Copy
29.06.2018 13:29:09
Lisa
ich habe einen Code geschrieben der eine Spalte nach einem Wert durschaut und dann die passenden Zeilen dazu in ein anderes Blatt schreibt.
Allerdings nutze ich die Anweisung rng.EntireRow.Copy, womit die ganze Zeile kopiert ich.
ich möchte jedoch nur den Wert aus Zelle A, B und c übertragen haben.
Hat jemand eine Lösung wie das anzupassen ist?
Wäre echt dankbar, ich sitze schon den ganzen Vormittag an dieser Herausforderung.
Vielen Dank schon einmal.
Sub FindenUndKopieren()
Dim rng As Range
Dim vWert As Variant
Dim sFirstAdress As String
vWert = InputBox( _
prompt:="Bitte Nummer eingeben:", _
Title:="Suche")
Set rng = Worksheets("Blatt1").Range("A:A").Find(vWert)
If rng Is Nothing Then
MsgBox "Wert " & Wert & " nicht gefunden!"
Else
sfirstaddress = rng.Address
Do
'Intersect(rng.EntireRow,Columns("A").Copy
' Intersect(rng.EntireRow, Columns("B:Y")).Copy
rng.EntireRow.Copy
'Range(Cells(cell.Row, "A"), Cells(cell.Row, "D")).Copy
Worksheets("Tabelle1").Cells(Rows.Count, "A").End(xlUp) _
.Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Set rng = Worksheets("Blatt1").Range("A:A").FindNext(rng)
Loop While Not rng Is Nothing And rng.Address sfirstaddress
End If
End Sub