Funtion und Zahlenformat per VBA
01.02.2009 16:23:02
Michael
ich versuche mich wieder an meinen Exceltabellen - leider mit mäßigem Erfolg :-(
Nun hoffe ich wieder auf eure Hilfe.
In der Zelle BB2 bis BJ2 werden bei Einträgen in A2 bis BA2 verschiedenste Daten eingetragen (klappt).
Nun habe ich versucht die Funktion
=WENN(P2>0,9;60;LINKS(A2;1)*1)
per Makro in BJ (ab Zeile 2) bei Änderungen eintragen zu lassen.
(Wenn ich die Funktion direkt in die Excelzelle BJ2 schreibe klappt es.)
Ausgegeben werden soll eine zweistellige Zahl.
Wenn in P2 eine Zahl gößer 0,99 steht dann soll in BJ2 "99" eingetragen werden,
wenn P2 leer ist, dann soll die Zahlen-/ Buchstabenkombination aus A2 (z.B. 3A)
in BJ2 getrennt werden - also in diesem Fall wäre das Ergebnis 03.
Bei meinen Versuchen mit VBA erscheint in der Zelle BJ2 "FALSCH" :-(
Über eine aufklärende Info würde ich mich freuen.
Gruß
Micha
Diesen Code hatte ich von Hary (von mir leicht abgewandelt):
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CountA(Range(Cells(Target.Row, 1), Cells(Target.Row, 53))) = 0 Then
Range("bj" & Target.Row).Value = ""
Else
Range("bj" & Target.Row).Value = ActiveCell.FormulaR1C1 = "=IF(RC[-46]>0.9,99,LEFT(RC[-61] _
_
,1)*1)"
End If
End Sub