AW: VBA Wert auslesen und in andere Zelle schreiben
21.01.2017 11:00:53
Marco
Morgen Hary,
ich habe deinen Code ausprobiert und leicht verändert, aber bei mir stürzt dann Excel ab.
Anstatt wie vorher etwas von A1 zu C1 zu kopieren wollte ich nur A1 überprüfen ob was drin steht und wenn ja dann sollen in B1 und C1 die folgenden Werte eingetragen werden. In A1 steht eine Formel drin die entweder einen Wert ausgibt oder die Zelle dann leer lässt. Was habe ich denn falsch gemacht? Ich habe das vorher nämlich bei dem ersten Code den du hier gepostet hast auch so gemacht und da hat es funktioniert nur das die Zelle A1 vorher keine Formeln berücksichtigt hat.
Code der die Formel in A1 nicht berücksichtigt aber sonst funktioniert:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$a$1" And IsNumeric(Target) Then '--Pruefung Adresse und ob Zahl
Range("B1") = IIf(Target, 1, "")
Range("C1") = IIf(Target, 135.17, "")
End If
Code der die Formel in A1 berücksichtigen soll aber Excel zum abstürzen bringt:
Private Sub Worksheet_Calculate()
If IsNumeric(Target("A1")) Then '--Pruefung ob Zahl
Range("B1") = IIf(Target, 1, "")
Range("C1") = IIf(Target, 135.17, "")
End If