VBA Worksheet_Change
13.10.2003 22:03:13
Ernst Dunkel
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
Anzeige