Clever-Excel-Forum

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

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

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

stchwint

Klaus-Dieter

Gast 123