Das Archiv des Excel-Forums
VBA Worksheet_Change
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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
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
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