bestimmte Zellen kopieren
26.07.2006 08:15:44
Erich
habe aus der Recherche einen Code, der in einer Spalte bestimmte Werte sucht
und dann diese sowie danebenliegende Zellen in eine neue Tabelle kopiert:
Sub CellCopy()
Dim Z As Range
For Each Z In Sheets("A_1TM").Range("D212:D231")
If Z.Value = "V" Or Z.Value = "O" Then
Z.Copy
Sheets("Gefunden").Select
Cells(Z.Row, Z.Column).Select
Selection.PasteSpecial Paste:=xlValues
End If
If Z.Value = "V" Or Z.Value = "O" Then
Z(1, -1).Copy
Sheets("Gefunden").Select
Cells(Z.Row, Z.Column - 1).Select
Selection.PasteSpecial Paste:=xlValues
End If
Next
Application.CutCopyMode = False
End Sub
Aus dieser Tabelle:
| A_1TM | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
In diese Tabelle:
| Gefunden | ||||||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||||
Jetzt soll beim kopieren erreicht werden, dass keine Leezeilen entstehen;
siehe Zeile 213; also Mattersburg soll direkt unter Ried stehen.
Besten Dank für eine Hilfe!
mfg
Private Tippgemeinschaft für Lotto oder KENO: http://www.kenostrategen.de