If-Anweisung funktioniert nicht!
26.10.2004 13:53:15
Eleni
Will folgendes Makro nur Ausführen, wenn in R1 etwas drinsteht. Aber die If-Anweisung greift nicht, es werden alle Zellen (also auch leere) berücksichtigt. Wer kann helfen?
Danke, Eleni
If myWs.Range("R1").Value "" Then
myWs.Range("R1").Copy
wsh.Range("A" & zei).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
wsh.Cells(zei, 2) = myWs.Cells(n, 6)
myWs.Range("Q" & n & ":Q" & n + 9).Copy
wsh.Range("C" & zei & ":L" & zei).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
myWs.Range("R" & n & ":R" & n).Copy
wsh.Range("M" & zei).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End If