Zeilen nach Kriterium kopieren
17.05.2015 21:43:05
Martin
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
Anzeige