Makrocode mit Und ergänzen
Dirk
ich habe folgenden Makrocode:
For i = 1 To AnzahlZeilen2
Range("R" & i + 1).Select
If Not ActiveCell = "" Then
ActiveCell.Copy
Range("P" & i + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next i
Ich möchte diesen Code jetzt so erweitern, dass der Inhalt aus Zelle R (i) nur kopiert wird, wenn die danebenliegende Zelle Q (i) auch leer ist. Oder umgekehrt: Wenn Q (i) leer ist, dann soll die Zelle eben nicht kopiert werden. Also: "kopiere den Inhalt, wenn aktive Zelle nicht leer und die danebenstehende leer ist". Ist bestimmt ganz einfach.... nur nicht für mich :-)
Vielen Dank!
Gruß
Dirk