Werte suchen und übertragen
Oliver
ich habe ein Tabellenblatt "Artikelstamm" in dem in Spalte "C" die Artikel-Nr. enthalten sind. Durch diverse Prozeduren wird der Datenbestand aktualisiert und ist permanent variabel.
Nun möchte ich Werte der Spalten "A bis AT" aus diesem Tabellenblatt Artikel innerhalb eines Nummernbereich (Beispiel >=500000 und Mit nachfolgendem Makro werden alle Artikel und ganze Zeilen übertragen. Aber genau das kann ich nicht brauchen.
Sub Artikel()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim rng As Range
Dim lngQ As Long
Dim lngz As Long
Set wksQ = Sheets("Artikelstamm")
Set wksZ = Sheets("Test")
lngQ = wksQ.Range("C65536").End(xlUp).Row
lngz = wksZ.Range("C65536").End(xlUp).Row + 1
For Each rw In wksQ.Rows
Select Case rw.Cells(8)
Case Is >= 500000, Is Viele Grüsse
Oliver
Anzeige