Das Archiv des Excel-Forums

VBA Worksheet_Change

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ CommandButton
Bild

Betrifft: VBA Worksheet_Change
von: Ernst Dunkel

Geschrieben am: 13.10.2003 22:03:13

Guten Abend Forum
Der untenstehenden Code funktioniert mit CB1.
Wie muss ich den Code abändern, dass beim Klick auf einer Zelle der Spalten B11 bis B100 sowie J11 bis J100 der Tabelle “U-Werte“ das untenstehende Makro auch funktioniert.
. 


Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("U-Werte").Range("F12").Select
ActiveCell.FormulaR1C1 = "=IF(ISNUMBER(RC[-1]),RC[-1]/RC[-2]/1000,0)"
Range("C12").Select
Sheets("Baustoffe").Visible = True
Sheets("Baustoffe").Activate
Selection.AutoFilter
Sheets("Baustoffe").ScrollArea = "c4:c112"
Application.ScreenUpdating = True
End Sub





Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = ???????????????
Application.ScreenUpdating = False
Sheets("U-Werte").Range("F12").Select
ActiveCell.FormulaR1C1 = "=IF(ISNUMBER(RC[-1]),RC[-1]/RC[-2]/1000,0)"
Range("C12").Select
Sheets("Baustoffe").Visible = True
Sheets("Baustoffe").Activate
Selection.AutoFilter
Sheets("Baustoffe").ScrollArea = "c4:c112"
Application.ScreenUpdating = True
End Sub


Für eine Hilfe bin ich dankbar

Mit freundlichen Grüßen
Ernst Dunkel
Bild


Betrifft: AW: VBA Worksheet_Change
von: Chris
Geschrieben am: 13.10.2003 22:22:01

If (Target.Column = 2 Or Target.Column = 10) And Target.Row > 10 And Target.Row < 101 Then
Application.ScreenUpdating = False
Sheets("U-Werte").Range("F12").Select
ActiveCell.FormulaR1C1 = "=IF(ISNUMBER(RC[-1]),RC[-1]/RC[-2]/1000,0)"
Range("C12").Select
Sheets("Baustoffe").Visible = True
Sheets("Baustoffe").Activate
Selection.AutoFilter
Sheets("Baustoffe").ScrollArea = "c4:c112"
end if

Application.ScreenUpdating = True
end sub

gruß
Christian


Bild


Betrifft: AW: VBA Worksheet_Change
von: Ernst Dunkel
Geschrieben am: 13.10.2003 22:39:13

Hallo Christian

Vielen Dank für Deine Hilfe.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Mit SelectionChange funktioniert es.

Wünsche Dir eine gute Nachtruhe.


Gruss Ernst Dunkel


 Bild