VBA Zellen mit Bedingung kopieren
26.06.2017 13:26:21
Jakob
Ich habe das folgende Problem
Ich möchte einige Zellen (ohne leeren zellen dazwischen) mit einer Bedingung kopieren. Das schaffe ich noch. Nun möchte ich aber die Position bestimmen, an der die Zellen eingefügt werden sollen (z.B. A31:A40).
Momentan werden die Werte ab A2 eignefügt (was mir auch nicht ganz klar ist, wieso?)
Kann mir da jemand helfen?
Sub Kopieren2()
Dim Zelle As Range
Dim ZellePaste As Range
For Each Zelle In Sheets("Tabelle1").Range("A1:A10")
If Zelle.Offset(0, 1) = Cells(4, 2) Then
Zelle.Copy
Worksheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:= _
_
_
_
xlPasteValues
End If
Next Zelle
End Sub
Gibt es für das If ... = Cells (4,2) eine bessere Variante, den Zellverweis für den Suchbegriff zu definieren?
In der fortgeschrittenen Version möchte ich dann noch, wenn etwa A2 ausgewählt wurde, C2 mitkopieren. Da wäre ich für die Code-Zeile(n) auch sehr dankbar.
Danke,
LG, Jakob
Anzeige