If-Abfrage
20.10.2005 13:03:50
Daniel
Ich habe folgendes Problem. Mit dem Code hier kopiere ich eine einzeile aus dem Sheet 5. Aber ab und zu steht auch mal in der Zeile #Div/0!. wenn dies da steht soll er nicht kopieren. Sonst steht an der Stelle von #Div/o! der Durschnitsswert von A6-A65536. Also müsste ja eine Abfrage geben, die Prüft ob eine Zahl dort steht oder #Div/0!. Wer kann mir da helfen.
s = 32
Sheets(5).Select
--- hier müsste Abfrage sarten. wenn Zahl in A3 dasteht dann mache den Code. Sonst endif... ---
Range("A3:H3").Select
Range("H3").Activate
Selection.Copy
Sheets("Durchschnittswerte").Select
Range("B" & s).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B" & s & ":I" & s).Select
Range("I" & s).Activate