If anweisung schlägt fehl
25.10.2007 16:38:20
FM
eine kurz Frage hätte ich. Ich habe eine IF Answeisung. Es soll vón einem Tab in ein anderes kopiert werden. Wenn allerdings in Tab 1 keine Werte in der Range sind, soll die msgbox "na data.." erscheinen.
Im Einzelschrittdurchlaufe geht das auch. Aber wenn ich das Skript einfach laufen lassen, wird die 1. msgbox (x) übersprungen (aus Testgründen ist die drin) und die andere auch. Zudem werden die Werte aus Tab1 (also nichts) in Tab2 geschrieben. Ich verstehe nur nicht ganz warum...
Dim x
Sheets("Tab3").Range("P1").Calculate
x = Sheets("Tab3").Range("P1").Value 'Anzahl Fkt. in Tabelle, zählt alle Werte im Tab1 in der Range
MsgBox (x)
If x = 0 Then
MsgBox ("Tab contains no data !")
Else
Sheets("Tab1").Range("A3:B200").Cut Sheets("Tab2").Range("A3")
End If
Danke im voraus