AW: Stückliste mit Find.Methode
17.05.2023 07:44:33
Frank
Guten Morgen Ralf,
sorry... aller Anfang ist schwer...
Ich habe in einer anderen Version nach dem Begriff "Schweißbaugruppe" in der Spalte suchen lassen und mir nur die bestimmte Auswahl kopiert.
Ich habe die Tabelle in eine Pivot Tabelle umgewandelt und dann nach dem Begriff suchen lassen.
hier der Teilausschnitt vom VBA Code der Pivottabelle
Ws.Activate
If [H:H].Find("Schweißbaugruppe", , , xlWhole) Is Nothing Then GoTo Kunststoff 'Sprung Kunststoff
With f
For Each pItem In .PivotItems
Select Case pItem.Name
Case Is = "Schweißbaugruppe"
pItem.Visible = True
Case Else
pItem.Visible = False
End Select
Next
End With
Range("B2:L" & Cells(Rows.Count, 1).End(xlUp).Row - 1).Copy
Sheets("Schweiss BG").Range("B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
p.ClearAllFilters
Da aber in der Pivot Tabelle die Stufen entfallen muss ich hier noch einen anderen Weg gehen.
Ich nehme die vorhandene Tabelle und lasse eine neue Suche ausführen.
Wenn er den Begriff Schweißbaugruppe" gefunden habe. Soll die Suche auf dem Wert aus der ersten Zelle in der Zeile mit dem Begriff erstelle Schweißbaugruppe" wechseln. Und dann den Teilbereich (...lookat:=xlPart...) suchen (z.B. 1.3.2* ). Damit findet VBA doch alles, was in der Spalte A mit z.B. 1.3.2... beginnt. Und dann den Bereich in ein anderes Blatt kopiere.
Danach soll nach dem nächsten Begriff Schweißbaugruppe" gesucht werden und dann wieder nach dem Teilbereich gesucht werden.
So etwa:
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
For Zeile = 3 To ZeileMax
If .Cells(Zeile, 8).Value = "Schweißbaugruppe" Then
strSuchbegriff = Cells(0, -7)_
Set rng = Sheets("Tabelle1").Columns(1).Find(What:=strSuchbegriff, LookIn:=xlValues, lookat:= _
xlPart)
und dann mit einer Schleife nach der nächsten Schweißbaugruppe suche.
Geht das eigentlich mit der Suche in der Suche wenn der Suchgebriff sich ändert? oder liegt hier der Fehler
Und kann der zweite Suchbegriff in der Schleife variabel sein?
Viele Grüße
Frank