Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo Günther,

ich bin ja froh über jede Hilfe und da sind deine Hinweise eine super Hilfe. Deinen Code habe ich jedenfalls verstanden, was auch an der viel leichteren Struktur liegt.

Wenn ich die bisherige Makro laufen lasse, wird mir nichtsdestotrotz der folgende Fehler angezeigt:

Laufzeitfehler ‘438:
Objekt unterstützt diese Eigenschaft oder Methode nicht.

Option Explicit
 
Sub FindenUndKopieren()
 
Dim letzteZeile As Long
Dim letzteZeile2 As Long
Dim Zielzeile As Long
Dim Zielspalte As Long
Dim ZielPNR As String
Dim wksRoh As Worksheet, wksPNR As Worksheet, wksOutput As Worksheet
Dim i As Long, j As Long, k As Long
 
    Application.ScreenUpdating = False
   
Set wksRoh = Worksheets("Rohdaten")
Set wksPNR = Worksheets("PNR")
Set wksOutput = Worksheets("Output")
letzteZeile = wksRoh.Cells(Rows.Count, 1).End(xlUp).Row
letzteZeile2 = wksPNR.Cells(Rows.Count, 2).End(xlUp).Row
Zielzeile = 5
Zielspalte = 2
i = 1
j = 1
 
   
    wksRoh.Range("B1:M259192").Copy
    wksOutput.Range("A5:L5").PasteSpecialxlPasteValues
   
    Zielzeile = Zielzeile + 1
   
    Application.ScreenUpdating = False
   
End Sub

Ansonsten habe ich deinen Tipp mit dem Makrorecorder umgesetzt. Dabei kam der folgende Code raus:

Sub Makro9()
'
' Makro9 Makro
'
 
'
    Range("Tabelle2[[#Headers],[AMD_RECORD_LC_CODE]]").Select
    Selection.AutoFilter
    Sheets("PNR").Select
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "29RT5J"
    Sheets("Rohdaten").Select
    ActiveSheet.ListObjects("Tabelle2").Range.AutoFilter Field:=5, Criteria1:= _
        "29RT5J"
    Range("E131277").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("Tabelle2").Select
    Range("E131277").Activate
    Selection.Copy
    Sheets("Output").Select
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A11").Select
    Sheets("Rohdaten").Select
    ActiveSheet.ListObjects("Tabelle2").Range.AutoFilter Field:=5
End Sub

Wäret du vllt. so freundlich mir wieder zu helfen, oder gar die gesamte Makro zu schreiben?

Dank und Gruß
Jörg

Hallo zusammen,

ich bin blutiger Anfänger hinsichtlich VBA und habe noch nie eine Makro geschrieben. Leider stehe ich aktuell total auf dem Schlauch und weiß nicht wie ich meinen Code zu schreiben habe.

In Tabelle 2 finden sich ab Spalte B3 eine Mischung aus Zahlen-/ Buchstabencodes, welche als Suchkriterien dienen. Die Makro soll jeden einzelnen Wert nehmen und ihn mit den Rohdaten in Tabelle 1 vergleichen. Jedes Suchkriterium kommt in Spalte E (Tabelle 1) mehrfach vor, sodass hier eine Schleife nötig ist. Wenn also eine Übereinstimmung gefunden wurde, soll die komplette Zeile (A:M) kopiert werden und in Tabelle 3 (ab Zeile 2) eingefügt werden. Sofern dann alle Zeilen mit dem jeweiligen Code in den Output kopiert wurden, soll die ganze Prozedur mit dem nächsten Suchkritierium (aus Tabelle 2; Spalte E) wieder von vorne beginnen, bis auch der letzte Code (aus Tabelle 2) durch Tabelle 1 gelaufen ist und die Daten in Tabelle 3 ausgespuckt wurden.

Besten Dank schonmal