folgendes Problem habe ich gerade.
Ein Tabelle mit Namen, Tabelle2. Da stehen die Basisdaten drin.
Es gibt 12-15 evtl bis 20 Kategorien (Suchkriterien). Z.B. Schrauben, Muttern etc
Da suche ich nach einem bestimmten Ausdruck. Z.B. "Testartikel 007"
Dann benötige ich den Preis zu "Testartikel 007". Den könnte ich finden Z.B. über das "$" Zeichen. Da muss ja dann der Preis stehen.
Der Preis steht aber 3, 4, manchmal 5 Zeilen weiter unter dem gefundenen Suchkriterium (Z.B. Testartikel 007).
Mein Problem, Wenn der Artikel gefunden wird/ist (das klappt auch, wird Zeile für Zeile kopiert), wie lese ich ich den Preis (x-Zeilen weiter unten) aus
und kopiere das dann in 1 (eine) Zeile, 2 Spalten. (A + B)
Ich bekomme einfach die Preis Zeile nicht kopiert. Könnt ihr mir vielleicht helfen?
Was ich bisher habe: Die nicht funktionierende Preis-Such-Sequenz habe ich raus gelassen. Die Funktionierte eh nicht.
With Tabelle2
Range("A20").Value = "Überschrift auslesen" 'Zellenüberschrift (Z.B Schrauben) auslesen und in Tabelle8 Spalte "A20" schreiben.
z = z + 1 ' 1 Zeile Runter, ab da stehen die kopierten Einträge. In dem Fall, ab Zeile 21
For Zeile = 427 To 4680 'ab zeile 427 stehen die relevanten Daten
If .Cells(Zeile, 1).Value Like "Testartikel 007" Then 'Bezeichnung aus Tabelle2 auslesen, da stehen die Basisdaten
.Rows(Zeile).Copy Destination:=Tabelle8.Rows(z) 'in Tabelle8 fortlaufend kopieren.
Zeile = Zeile + 1
z = z + 1
End If
Next Zeile
End With
Ich hoffe das ich verständlich machen konnte um was es geht.
Wäre schön wenn jemand ein Lösung hätte. Vielen Dank vorab für die Hilfe.
Bei Rückfragen, einfach melden. Danke euch.