Zeilen nach Kriterium kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Zeilen nach Kriterium kopieren
von: Martin
Geschrieben am: 17.05.2015 21:43:05

Guten Abend,
ich habe an meiner Liste weitergearbeitet und bin wieder an eine grenze gestoßen.
Das Programm unten funktioniert.
In Zelle M4 wird ein Wert eingetragen, dieser wird dann in Spalte Q gesucht.
Wird der Wert gefunden, wird ein Teil der Zeile 4 (B4:K4) kopiert und rechts von dem gefundenen Wert eingefügt.
Folgendes möchte ich nun erreichen:
Statt nur einen Wert in Spalte M, werde ich 10 gleichzeitig eintragen (zB. M4, M6, M11, M14,...) und würde gerne alle automatisch nacheinander wie oben verarbeiten lassen. Also immer die Zeile in der der Wert steht (B:K) kopieren und dann einfügen Rechts von Q:Q.
Danke schon für jede Hilfe in diese Richtung.


Sub ZelleFinden()
    Dim strAnlage As String, rngCell As Range
    
    strAnlage = Range("M4")
    Set rngCell = Columns("Q:Q").Find(strAnlage, lookat:=xlWhole, LookIn:=xlValues, MatchCase:= _
True)
        
    If Not rngCell Is Nothing Then
        Range("B4:K4").Copy
        rngCell.Offset(0, 1).PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        Else
        MsgBox "Maschine nicht vorhanden"
    End If
End Sub

Bild

Betrifft: AW: Zeilen nach Kriterium kopieren
von: Matthias L
Geschrieben am: 18.05.2015 04:34:58
Hallo
Lass ne Schleife über Spalte("M") laufen, soweit Du es brauchst
In diesem Bsp. von Zeile 4 bis Zeile 14 (For x = 4 To 14)

Option Explicit
Sub ZelleFinden()
Dim strAnlage As String, rngCell As Range, x&
Application.ScreenUpdating = False
For x = 4 To 14
 If Range("M" & x) <> "" Then
  strAnlage = Range("M" & x)
  Set rngCell = Columns("Q:Q").Find(strAnlage, lookat:=xlWhole, LookIn:=xlValues, MatchCase:= _
True)
  If Not rngCell Is Nothing Then
     Range("B" & x & ":K" & x).Copy
     rngCell.Offset(0, 1).PasteSpecial Paste:=xlPasteValues
     Application.CutCopyMode = False
  End If
 End If
Next
End Sub
Gruß Matthias

Bild

Betrifft: AW: Zeilen nach Kriterium kopieren
von: Martin
Geschrieben am: 18.05.2015 09:57:02
Hallo Matthias,
besten Dank für deine Hilfe, klappt super.
Gruß,
Martin

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zeilen nach Kriterium kopieren"