Zellenformatierung in Abhängigkeit
15.04.2008 11:15:00
Benny
ich habe folgendes Problem.
Es soll die Zelle E2 in Abhängigkeit des Inhaltes der Zelle D2 formatiert werden. Der Inhalt der Zelle D2 ergibt sich durch eine Eingabe in der Zelle A2.
Beispiel:
In Zelle A2 wird die Position 101 eingegeben, daraus ergibt sich über einen SVERWEIS das in Zelle D2 automatisch der Wert "KM" gesetzt wird, was wiederum bedeutet das in der Zelle E2 nur eine Zahl ohne Nachkommastellen eingegeben werden darf.
weiteres Beispiel:
In Zelle A2 wird die Position 102 eingegeben, daraus ergibt sich über einen SVERWEIS das in Zelle D2 automatisch der Wert "Gew. / T" gesetzt wird, was wiederum bedeutet das in der Zelle E2 nur eine Zahl mit 2 Nachkommastellen eingegeben werden darf.
Um das zu realisieren habe ich folgenden Code geschrieben, der mich jedoch in den Debug-Modus schickt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 20 Then
For xy = 20 To 42
If Cells(xy, 4) "" Then
Select Case Cells(xy, 4).Value
Case "KM"
ActiveSheet.Range(Cells(xy, 5), Cells(xy, 5)).NumberFormat = "0"
Case Is = "Gew. / T"
ActiveSheet.Range(Cells(xy, 5), Cells(xy, 5)).NumberFormat = "0.00"
End Select
End If
Next xy
End If
End Sub
Laufzeitfehler 104
Die Number-Format Eigenschaft des Range Objektes kann nicht festgelegt werden.
Vorab schon mal vielen Dank für eure Mühe.
Da ich momentan nicht am Arbeitsplatz bin wäre es nett wenn die Antwort für heute an nachfolgende E-Mail Adresse geschickt werden könnte.
benstoem@tus-kaltehardt.de
freundliche Grüße
Benny