NEIN/Ja Button, Scrollt einfach

[stchwint]

Hallo,

ich habe ein Ja/Nein-Button erstellt. Eine IF-Bedingung jeweils mit Ja und Nein.

Bei Nein scrollt das Fenster einfach nach ganz rechts unten, obwohl nichts davon im Code steht. Andere Scrollanweisungen werden auch nicht angenommen.

Wisst ihr weiter?

Der Teil vom Code schaut wie folgt aus:

Code:

a = MsgBox("Sind Kosten?nderungen und V-IST-Kosten aktualisiert?", vbYesNo)
If a = vbYes Then
Sheets("Frontend").Select
ActiveWindow.SmallScroll Down:=-48
End If
If a = vbNo Then
.Cells(1, 3) = "ja"
Sheets("V-IST-Kostenprotokoll").Select
ActiveWindow.ScrollRow = 10
Range(Cells(11, 2), Cells(11, 10)).Select

End If

[Klaus-Dieter]

Hallo,

das ActiveWindow.SmallScroll Down:=-48 und das ActiveWindow.ScrollRow = 10 sind schon Scroll-Anweisungen.

Hinweis: die Select-Anweisungen sind überflüssig.

---

Hallo,

so etwa könnte der Quelltext aussehen:

Code:

Sub test()
    a = MsgBox("Sind Kosten?nderungen und V-IST-Kosten aktualisiert?", vbYesNo)
    If a = vbYes Then
        Sheets("Frontend").Activate
    End If
    If a = vbNo Then
        With Sheets("V-IST-Kostenprotokoll")
            .Cells(1, 3) = "ja"
            .Range(Cells(11, 2), Cells(11, 10)).Select ' wozu?
        End With
    End If
End Sub

[Gast 123]

Hallo

bei dem Teilcode kann man nicht ersehen ob Select überhaupt notwendig ist?  In 90% aller Faelle ein klares Nein!

mfg Gast 123

Code:

Sub test()
a = MsgBox("Sind Kostenaenderungen und V-IST-Kosten aktualisiert?", vbYesNo)
If a = vbYes Then Sheets("Frontend").Select
If a = vbNo Then
  .Cells(1, 3) = "ja"
  Sheets("V-IST-Kostenprotokoll").Select
  '** Ist diese Selection übergaupt notwendig???
  Range(Cells(11, 2), Cells(11, 10)).Select
End If
End Sub