Clever-Excel-Forum

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


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.

Hallöchen,

Zitat:So klappt es jedenfalls nicht.

was klappt nicht?

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.

Hi,

probier's mal so:

Hallo,

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

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

(20.03.2020, 18:56)WillWissen schrieb: [ -> ]

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!