Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

If-Abfrage

Forumthread: If-Abfrage

If-Abfrage
20.10.2005 13:03:50
Daniel
Hallo Leute.
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

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If-Abfrage
20.10.2005 13:09:40
MichaV
Hallo,
ungetestet:

s = 32
if not iserror(sheets(5).range("a3)) then
Sheets(5).Range("A3:H3").Copy
Sheets("Durchschnittswerte").Range("B" & s).PasteSpecial Paste:=xlPasteValues,   Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B" & s & ":I" & s).Select
Range("I" & s).Activate
End If

Gruss- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: If-Abfrage
20.10.2005 13:16:38
Daniel
Hi Micha.
Vielen Dank es funktioniert.
Schönen Tag noch.
Daniel
Danke für Deine Rückmeldung! owT
22.10.2005 00:19:55
MichaV
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige