VBA Worksheet_Change

• VBA Worksheet_Change von Ernst Dunkel vom 13.10.2003 22:03:13
  • AW: VBA Worksheet_Change - von Chris am 13.10.2003 22:22:01
    • AW: VBA Worksheet_Change - von Ernst Dunkel am 13.10.2003 22:39:13

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

Beiträge aus den Excel-Beispielen zum Thema " externes Programm öffnen"