Zelle oberhalb der ActivCell ansprechen

• Zelle oberhalb der ActivCell ansprechen von Ingo vom 13.10.2003 15:40:54
  • AW: Zelle oberhalb der ActivCell ansprechen - von ChrisL am 13.10.2003 15:46:02
    • AW: Zelle oberhalb der ActivCell ansprechen - von Ingo am 13.10.2003 16:00:41
      • AW: Zelle oberhalb der ActivCell ansprechen - von ChrisL am 13.10.2003 16:13:20

Betrifft: Zelle oberhalb der ActivCell ansprechen
von: Ingo

Geschrieben am: 13.10.2003 15:40:54

Hallo Exceliana,
ich möchte ein Makro erstellen, die durch z.B. die rechte maustaste in die ActiveCell die formel: ActiveCell=die Zelle oberhalb. Praktisch, wenn die ActiveCell A2 ist, soll in A2 die Formel: =A1.
geht das?
ich hoffe, dass ich mich verstendlich ausgedruckt habe


Betrifft: AW: Zelle oberhalb der ActivCell ansprechen
von: ChrisL
Geschrieben am: 13.10.2003 15:46:02

Hi Ingo

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Row > 1 Then Target.Formula = "=A" & Target.Row - 1
End Sub

Gruss
Chris




Betrifft: AW: Zelle oberhalb der ActivCell ansprechen
von: Ingo
Geschrieben am: 13.10.2003 16:00:41

Hallo Chris,
spitze!!!
D. Makro soll für eine Serie von Zelle funzionieren, nicht nur für a2=a1: z.B: D8:AH8 und so weiter. Das Heiß,dass wenn ich auf d8 drucke d8 wird =C8 und so weiter.
Gruß Ingo




Betrifft: AW: Zelle oberhalb der ActivCell ansprechen
von: ChrisL
Geschrieben am: 13.10.2003 16:13:20

Hi Ingo

So langsam verstehe ich gar nichts mehr, aber arbeite einfach mit den Werten Target.Row und Target.Column...

Target.Formula = Cells(Target.Row, Target.Column - 1).Address

Gruss
Chris

Excel-Beispiele zum Thema " Zelle oberhalb der ActivCell ansprechen"

Zeilen oberhalb der markierten Zellen einfügen		Alle CheckBoxes einer UserForm ansprechen
Office-Assistenten ansprechen		Gruppe von UserForm-ListBoxes über eine Schleife ansprechen
UserForm-ComboBoxes als Collection-Objekte ansprechen