VBA: Problem bei Range mit Kriterium

Question

Halli Hallo!

Vielleicht kann mir jemand bei meinem Problem behilflich sein.
Irgendwie habe ich Probleme einen definierten Range mit einem Kriterium zu "verknüpfen".
Zur Vereinfachung meiner Fragestellung habe ich unter
www.file-upload.net/download-4648598/Range_Muster01.xls.html
eine Musterdatei abgelegt.

Ciao

Tom

Answer 1

Hallo,

ändere den Text im Makro mal so

If spalte01.Column = 3 _
Or spalte01.Column = 5 _
Or spalte01.Column = 8 Then

dan läuft es

Gruß

Helmut

p.s. ich würde es mit einer bedingten Formatierung lösen

Answer 2

Hallo Helmut!

Danke für die rasche und positive Rückmeldung.
Klappt (bisher) alles einwandfrei!

Die bedingte Formatierung kann ich leider nicht verwenden, da im Endausbau in den einzelnen Zellen auch andere diverse Änderungen vorgenommen werden. Es ist somit nicht nur die Formatierung davon betroffen.

Ciao

Tom

Answer 3

Hallo Helmut!

Nachtrag:
Ich habe nunmehr meinen Code wie nachstehend im "Row-Bereich2 erweitert.
'Variablen dimensionieren
Dim range01, zeile01, spalte01 As Range
Set range01 = Range("D7:M35")

For Each spalte01 In range01.Columns
If spalte01.Column = 4 _
Or spalte01.Column = 6 _
Or spalte01.Column = 7 _
Or spalte01.Column = 9 _
Or spalte01.Column = 11 _
Or spalte01.Column = 13 Then
For Each zeile01 In spalte01.Cells
If zeile01.Row Mod 2 = 1 Then 'gerade
Cells(zeile01.Row, spalte01.Column).Copy
Cells(zeile01.Row + 1, spalte01.Column).PasteSpecial Paste:=xlPasteValues
Else
End If
Next zeile01
Else
End If

Next spalte01

Set range01 = Nothing
Set zelle01 = Nothing
Set spalte01 = Nothing

Range("J10").Select
Application.CutCopyMode = False

Jedoch musste ich leider feststellen, dass es nicht immer die zweite Zeile befüllt werden kann. Eventuell kommen drei oder mehr Zeilen vor, sodass ich mir ohnehin eine andere Lösung ausdenken muss.
Grundsätzlich hätten schlussendlich die Vorjahreswerte von diversen Spalten in die darunterliegenden Zeilen kopiert werden sollen.

Trotzdem ein DANKE an Dich!

Thomas