VBA erster Versuch
Andreas
mache die ersten Schritte mit VBA, leider bin ich schon gescheitert,
Habe aus dem Internet ein Beispiel gezogen.
Leider bekomme ich es nich kompl zum Laufen.
Kann mir jemand helfen und noch eine kurze Erklärung warum ich es nicht hin bekommen habe.
Wo bekomme ich weitere Beispiel mit Einleitung und Erklärung her.
Leider bekomme ich die Datei nicht angehange,ist zu groß.
Der Bus soll sich in Richtung Kugel bewegen.
Option Explicit
Private Sub CB_Start_Click()
Dim Bus As Shape
Dim Kugel As Shape
Set Bus = Application.ActiveSheet.Shapes("Bus")
Set Kugel = Application.ActiveSheet.Shapes("Kugel")
For PosX = 0 To Kugel.Left - Bus.Width
Bus.Left = PosX
DoEvents
Next PosX
For Winkel = 0 To -180 Step -1
Bus.Rotation = Winkel
DoEvents
Next Winkel
For PosY = PosY_Anf To 100 Step -1
Micha.Top = PosY
DoEvents
Next PosY
End Sub
Einen schönen Tag wünsch allen hier,
Gruß Andreas