Du hast zwar schon eine Menge Antworten erhalten, ich will aber meinen Beitrag auch noch leisten.
in A10: A29 habe ich beispielhaft die Gebäude-Nr. 1-20 eingetragen. Der SpinButton1 erhält als Max=100, als Min=10, als LinkedCell=C7.
Mit
Private Sub SpinButton1_Change()
Call topo
End Sub
rufe ich topo auf.topo aktiviert die Zelle "A"&i, wobei i=SpinButton1.Value ist.
Sub topo()
Dim i As Integer
i = Worksheets("Tabelle1").SpinButton1.Value
Range("A" & i).Activate
Call topo1
Call topo2
Call topo3
i = i + 1
End Sub Dann laufen die 3 Makros ab, die ich topo1 bis topo3 genannt habe.
Sub topo1()
MsgBox ("Gebäude 1")
End Sub Sub topo2()
MsgBox ("Gebäude 2")
End Sub Sub topo3()
MsgBox ("Gebäude 3")
End Sub Jetzt kannst Du mit dem SpinButton1 weiterblättern. topo läuft erneut ab.
Gruß Daniel B.