Spalte mit Schleife von oben nach unten durchsuche
12.03.2019 17:36:49
oben
ich suche schon Tage nach einer Lösung für mein Problem und komme mit googeln und Foren lesen nicht weiter. Daher ist dies meine letzte Idee & Ich hoffe ihr könnt mir weiterhelfen!!
Ich habe ab Spalte B10 versch. Arbeitspaketen, deren Name zum Filtern öfters untereinander erscheinen. In Spalte C stehen die Arbeitsschritte dazu, die mehrmals vorkommen können aber in unterschiedlichen Arbeitspaketen:
Spalte B: Spalte C:
Kabel Blockschaltbild
Kabel Schaltplan
Kabel Zeichnung
FBG Blockschaltbild
FBG Schaltplan
FBG Test
Mechanik Layout
In C3 und D3 muss das Arbeitspaket und sein Arbeitsschritt ausgewählt werden, dessen Zeile dupliziert werden soll. Beispielsweise die Zeile von "FBG Blockschaltbild" soll kopiert und darunter nochmal eingefügt werden.
Mein Problem ist, dass ich nach FBG suchen kann, dann wird die erste FBG-Zeile markiert. Davon eine Spalte nach rechts geht auch noch aber dann komme ich nicht drauf wie ich nach den Wert von "D3" = "Blockschaltbild" finde weil es dann zum Blockschaltbild vom Kabel springt...
Ich hätte gerne dass es zum ausgewählten Arbeitspaket springt, dann eine Zelle nach rechts springt und von da an nur noch nach unten den ausgewählten Arbeitsschritt sucht. (mein Problem)
Sub Suchen()
Dim AP As String
AP = Range("C3").Value
Dim Schritt As String
Schritt = Range("D3").Value
Dim lastR As Integer
lastR = Range("C10").End(xlDown).Row
Dim rg As Range
Set rg = Columns(2).Find(what:=AP, MatchCase:=False).Offset(0, 1).
'Arbeitspaket in Spalte B gefunden & 1 Zelle nach rechts
Dim x As String
x = rg.Address 'die Adresse bzw. diese eine Zelle in Spalte C merken
For i = x To lastR
'beginnend ab dieser Zelle bis nach unten den Arbeitsschritt suchen (Spalte C)
If Cells(i, 3) = Schritt Then
ActiveCell.Select
Selection.EntireRow.Insert
End If
Next
End Sub
Hoffe auf eure Hilfe und danke im Voraus!!
Anzeige