Microsoft Excel

Herbers Excel/VBA-Archiv

Zelleveränderung nach Eingabe

Betrifft: Zelleveränderung nach Eingabe von: Alex von Dziengel
Geschrieben am: 17.07.2008 08:29:16

Folgendes Problem:

wenn in Zelle a1 sich der Wert verändert, möchte ich das in B1 eine 1 erscheint.
Wie kann man das machen?

Wer kann mir helfen.
Vielen Dank für Deinen Einsatz.

Gruß

Alex

  

Betrifft: AW: Zelleveränderung nach Eingabe von: Chris b.
Geschrieben am: 17.07.2008 08:41:21

Hallo ALex meinst du so ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Range("B1") = 1
Application.EnableEvents = True
Else
End If
End Sub



gruß Chris


  

Betrifft: AW: Zelleveränderung nach Eingabe von: eres
Geschrieben am: 17.07.2008 08:44:11

Hallo Alex,

diesen Code bitte beim Arbeitsblatt einfügen:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" Then
        Range("B1") = 1
    End If

End Sub



Allerdings: Die 1 in B1 kommt bei der ersten Änderung. Bei weiteren Änderungen in A1 bleibt die 1 in B1 konstant. Willst Du dies so haben ?

Gruss

erwin


  

Betrifft: AW: Zelleveränderung nach Eingabe von: Alex von Dziengel
Geschrieben am: 17.07.2008 10:25:40

Danke für Euren Beiträge.
Es gut funktioniert.

Gruß

Alex


 

Beiträge aus den Excel-Beispielen zum Thema "Zelleveränderung nach Eingabe"