VBA -> Zellenwert / 60 rechnen

[o0Julia0o]

hi, ich nutze folgenden VBA-Code, damit nur A1 oder nur A2 geschrieben werden können:

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$A$1" And Target <> "" Then
        Range("A2") = ""
    ElseIf Target.Address = "$A$2" And Target <> "" Then
        Range("A1") = ""
    End If
    Application.EnableEvents = True
End Sub

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$A$1" And Target <> "" Then
        Range("A2") = Range("A1") / 60
    ElseIf Target.Address = "$A$2" And Target <> "" Then
        Range("A1") = ""
    End If
    Application.EnableEvents = True
End Su


So klappt es jedenfalls nicht.

[schauan]

Hallöchen,

So klappt es jedenfalls nicht.

was klappt nicht?

[o0Julia0o]

Die rote Zeile muss so lauten(habs oben korrigiert):
Range("A2") = Range("A1") / 60

Es klappt aber nicht, das dann in A2 der Wert von Zelle A1/60 angegeben wird. Also wenn in A1 600 steht, dass dann in A2 10 ausgegeben wird.

[WillWissen]

Hi,

probier's mal so:

Code:

Range("A2").value = Range("A1").value / 60

[schauan]

Hallo,

hast Du den Code an der richtigen Stelle? Der muss in das Modul vom entsprechenden Tabellenblatt, wo er wirken soll.

[MisterBurns]

Was wird denn ausgegeben? "Klappt nicht" ist immer so herrlich aussagekräftig...

[o0Julia0o]

Code:

Range("A2").value = Range("A1").value / 60

yes - so klappt´s!

Der Code war beim Tabellenblatt, wo die Berechnung erfolgen soll. Es wurde mit dem falschen Code dann einfach nix ausgegeben. Thx!