ActiveCell Ansprache

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

Betrifft: ActiveCell Ansprache
von: Katharina
Geschrieben am: 20.05.2015 09:57:31

Hallo,
Ich habe ein kleines Problem mit meinem VBA Code.
Der Hintergrund ist, dass ich einen Schieberegler habe, mit dem ich einen Wert in einer Formel verändere, die für jede Spalte anders ist. Wenn man in die entsprechende Zelle klickt, die man verändern will, und danach den Schieberegler betätigt, wird die Formel in der aktiven Zelle verändert.
Dazu habe folgenden Code geschrieben:

Private Sub ScrollBar22_Change()
Dim scrollbarvalue As Integer
ScrollBar22.min = 1E-21
ScrollBar22.max = 100
If ActiveCell.Column = 7 And ActiveCell.row > 37 And ActiveCell.row < 63 Then
    ActiveCell.Formula = "=IF(OR(HLOOKUP(INDEX($F$38:$F$62,ROW()-37,1),Variant_Matrix,27,FALSE)= _
"""",HLOOKUP(INDEX($F$38:$F$62,ROW()-37,1),Variant_Matrix,22,FALSE)=""No""),1E-21," & ScrollBar22.value & "/100)"
ElseIf ActiveCell.Column = 8 And ActiveCell.row > 37 And ActiveCell.row < 63 Then
    ActiveCell.Formula = "=IF(OR(HLOOKUP(INDEX($F$38:$F$62,ROW()-37,1),Variant_Matrix,29,FALSE)= _
"""",HLOOKUP(INDEX($F$38:$F$62,ROW()-37,1),Variant_Matrix,22,FALSE)=""No""),1E-21," & ScrollBar22.value & "/100)"
ElseIf ActiveCell.Column = 9 And ActiveCell.row > 37 And ActiveCell.row < 63 Then
    ActiveCell.Formula = "=IF(OR(HLOOKUP(INDEX($F$38:$F$62,ROW()-37,1),Variant_Matrix,31,FALSE)= _
"""",HLOOKUP(INDEX($F$38:$F$62,ROW()-37,1),Variant_Matrix,22,FALSE)=""No""),1E-21," & ScrollBar22.value & "/100)"
ElseIf ActiveCell.Column = 10 And ActiveCell.row > 37 And ActiveCell.row < 63 Then
    ActiveCell.Formula = "=IF(OR(HLOOKUP(INDEX($F$38:$F$62,ROW()-37,1),Variant_Matrix,33,FALSE)= _
"""",HLOOKUP(INDEX($F$38:$F$62,ROW()-37,1),Variant_Matrix,22,FALSE)=""No""),1E-21," & ScrollBar22.value & "/100)"
ElseIf ActiveCell.Column = 11 And ActiveCell.row > 37 And ActiveCell.row < 63 Then
    ActiveCell.Formula = "=IF(OR(HLOOKUP(INDEX($F$38:$F$62,ROW()-37,1),Variant_Matrix,35,FALSE)= _
"""",HLOOKUP(INDEX($F$38:$F$62,ROW()-37,1),Variant_Matrix,22,FALSE)=""No""),1E-21," & ScrollBar22.value & "/100)"
End If
End Sub
Bis heute hat das auch immer wunderbar funktioniert, doch plötzlich ändert er nicht nur den Wert/Formel der ActiveCell, sondern alle Werte/Formeln in der Spalte!
Ich bitte um Hilfe.
Liebe Grüße
Katharina

Bild

Betrifft: AW: ActiveCell Ansprache
von: Rudi Maintaire
Geschrieben am: 20.05.2015 10:42:00
Hallo,
hast du eine Tabelle draus gemacht?
Dann ist das normal.
Gruß
Rudi

Bild

Betrifft: AW: ActiveCell Ansprache
von: Katharina
Geschrieben am: 20.05.2015 11:03:16
Lieber Rudi,
Die Tabelle war es offensichtlich. Vielen Dank für die rasche Hilfe.
LG
Katharina

Bild

Betrifft: AW: ActiveCell Ansprache
von: Rudi Maintaire
Geschrieben am: 20.05.2015 11:11:34
Hallo,
welche Formel eingetragen wird, kannst du auch berechnen.

Private Sub ScrollBar22_Change()
Dim ScrollBarValue As Integer
ScrollBar22.Min = 1E-21
ScrollBar22.Max = 100
Select Case ActiveCell.Row
  Case 38 To 62
    Select Case ActiveCell.Column
      Case 7 To 11
        ActiveCell.Formula = _
        "=IF(OR(HLOOKUP(INDEX($F$38:$F$62,ROW()-37,1),Variant_Matrix," _
        & ActiveCell.Column * 2 + 13 _
        & ",FALSE)= """",HLOOKUP(INDEX($F$38:$F$62,ROW()-37,1),Variant_Matrix,22,FALSE)=""No""), _
1E-21," _
        & ScrollBar22.Value & "/100)"
    End Select
End Select
End Sub

Gruß
Rudi

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Alle Dateien in einem Ordner öffnen und Code ausfü"