Office: Eintragung in mehrere Tabellen

Hallo an alle.
Ich habe ein kleines Problem. Ich habe schon ein Makro erstellt für eine Eingabemaske die per Knopfdruck erscheint. Diese hab ich in verschiedenen Tabellenblättern integriert für die jeweilige Stadt. Nun möchte ich alle Makros auf dem ersten Blatt haben, sodass ich drauf drücken kann, und die Maske für das jeweilige Tabellenblatt erscheint.
Code für die Maske:

Sub Maskeaufrufen()
ActiveSheet.Range("B10").Activate
CommandBars.FindControl(ID:=860).Execute
End Sub

Jetzt habe ich versucht es umzuschreiben dass ich immer ein extra Makro erstelle für die jeweilige Stadt .
Code:

Sub Rosenheim()
Sheets("Rosenheim").Range("B10").Select
CommandBars.FindControl(ID:=860).Execute
End Sub

Leider funktioniert dieser Code nicht und ich bekomme den Laufzeitfehler 1004: Die Select-Methode des Range-Objekets konnte nicht ausgeführt werden.
(Auf B10 befindet sich immer der Anfang der Tabb

Weiß jemand wie ich diesen Fehler beheben kann?

 

du kannst nur eine Zelle selektieren, wenn du auf dem Blatt bist. Es also aktiv ist.

Es ist meist nicht notwendig für jede Untergruppe (Stadt) einen eigenen Code zu schreiben. Um das zu vereinfachen benötigt man aber mehr Infos über den Aufbau der Mappe und was da ablaufen soll. Wozu wird die erste Zelle der Tabelle benötigt? Wieso muß die ausgewählt sein?

 

Ich lade mal die Datei hoch.
Ich muss die Zeile auswählen damit die Eingabemaske für die Tabelle sich aufrufen lässt. Vorher hatte ich das Problem das keine Tabelle gefunden wurde also habe ich einfach eine Zeile in der Tabelle ausgewählt.
Aber mal zum Aufbau:
In dieser Liste trage ich immer Immobilienpreise ein von unterschiedlichen Städten um den Durchschnittspreis zu berechnen.
Dafür habe ich immer eine extra Liste erstellt also immer für die Stadt, aber jetzt möchte ich dass ich ein Tabellenblatt hab (also das erste) und von da alle werte eintragen kann und das die Automatisch in das jeweilige Tabellenblatt übertragen werden.
Ich habe schon probiert mit einer Textbox vorzugehen, in der ich einfach alles eintrage und diese erkennt, welche Stadt es ist und es in das jeweilige Tabellenblatt einträgt, bin aber nicht so erfahren mit Makros und VBA weshalb ich es so probiere. Wenn ihr wisst wie es anders funktioniert wäre es sehr hilfreich für mich
Vielen Dank schonmal für die Hilfe!

 

Fasse die Daten aller Ortschaften zu einer Tabelle zusammen.
Damit sind alle späteren Auswertungen einfacher machbar. Da du bereits intelligente Tabellen benutzt, sind Formeln auch einfacher zu erstellen.
Die Eingabemaske ist die interne Maske von Excel. Hat auf den ersten Blick so seine Vorteile.
Um die Werte auf der Startseite eingeben zu können, reicht dann ein Button um die Maske zu öffnen. So in der Art wie für Rosenheim. Bei nur einer Datentabelle ist die Auswahl dann überflüssig.
Um Daten einer Stadt zu erhalten kann man das in Formeln oder mit Filtern einschränken.