Inhalt von Zeilen mit NV() wiedergeben

Question

Hallo liebe Leute,

ich habe folgendes Problem.

Ich habe ein Excel Sheet (Sheet1) welches aus 7 Spalten besteht. Also bis Spalte G.

Die Anzahl der Zeilen beträgt 2000+x.

In Spalte G steht nun in einigen Zeilen nv().

Ich möchte nun den in Sheet 2 den Inhalt (A-F) die mit einem nv() gekennzeichnet sind wiedergeben.

Kann mir da jemand helfen??

Danke im Voraus
LG Saharra

Answer 1

Hallo Saharra,

kopiere folgenden Code in ein Allgemeines Modul

Option Explicit

Sub transfer()
Dim rngC As Range
For Each rngC In Worksheets(1).Range("G2:G" & Cells(Rows.Count, 7).End(xlUp).Row)
If rngC.Value = "nv()" Then
Worksheets(1).Range("A" & rngC.Row & ":F" & rngC.Row).Copy _
Worksheets(2).Range("A" & Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1)
End If
Next
End Sub

Gruss
Rainer