VBA Nicht EntireRow.Copy

Hallo zusammen,
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

Hallo Lisa,
Ahhhhhhhhh!!! Na dann:

Option Explicit

Public Sub FindenUndKopieren()

    Dim rng As Range
    Dim vWert As Variant
    Dim sFirstAdress As String

    vWert = InputBox(prompt:="Bitte Nummer eingeben:", Title:="Suche")

    With Worksheets("Blatt1")

        Set rng = .Columns(1).Find(vWert)

        If rng Is Nothing Then
            MsgBox "Wert " & vWert & " nicht gefunden!"
        Else
            sFirstAdress = rng.Address
            Do

                Call Union(rng, rng.Offset(0, 2).Resize(1, 2)).Copy(Destination:= _
                    Worksheets("Tabelle1").Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0))

                Set rng = .Columns(1).FindNext(rng)

            Loop Until rng.Address = sFirstAdress
        End If
    End With
End Sub

Gruß
Nepumuk

Forumthread: VBA Nicht EntireRow.Copy

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

VBA: Zeilen kopieren ohne EntireRow.Copy

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)