Microsoft Excel

Herbers Excel/VBA-Archiv

Change

Betrifft: Change von: klaro
Geschrieben am: 22.05.2008 16:11:26

Hallo Leute!
Ich habe in Tabelle1 ein kleines Makro geschrieben
leider will es nicht.
Ich will erreichen das sobald in F1 sich eine Zahl
ändert so soll sofort in A1 die selbe Zahl auftauchen.

Private Sub Worksheet_Change(ByVal Target As Range)

Tabelle1("A1").Value = Tabelle1("F1").Value

End Sub


Wer könnte helfen??
Gruß
klaro

  

Betrifft: AW: Change von: {Boris}
Geschrieben am: 22.05.2008 16:12:51

Hi,

Private Sub Worksheet_Change(ByVal Target As Range)

Tabelle1.Range("A1").Value = Tabelle1.Range("F1").Value

End Sub



Dabei ist Tabelle1 der CODEname des Blattes.

Grüße Boris


  

Betrifft: AW: Change von: Gerd L
Geschrieben am: 22.05.2008 16:29:31

Hallo Klaro,

damit das Makro nicht zu viel arbeiten muss:

Private Sub Worksheet_Change(ByVal Target As Range)

if Target.address= "$F$1" then
     Range("A1").Value = Target.Value
End if

End Sub



Gruß Gerd


  

Betrifft: AW: Change von: klaro
Geschrieben am: 22.05.2008 16:36:58

Hallo Boris!
Hallo Gerd!
Beide Lösungen arbeiten gut!
Danke sehr!!
Beste Grüße
klaro


 

Beiträge aus den Excel-Beispielen zum Thema "Change"