if, then, else
20.07.2016 08:29:34
Michel
Ich hab wiedermal ein kleines Problem und zwar bräuchte ich die if, then, else - Formel wie folgt:
Sub test()
' test Makro
Range("b1").Select
ActiveCell.Offset(2, 0).Activate
Range(Selection, Selection.End(xlDown)).Select
hier die fehlende Formel(wenn der markierte Bereich = Wert 0 hat, mache nichts, sonst _
kopiere nach c3
Application.CutCopyMode = False
Selection.Copy
Range("c3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Vielen Dank schon mal für eure Hilfe.
Gruss Sigi