Office: Makro: Mehrere Tabellenblätter in einem Blatt

Hallo,

ich wollte fragen, ob es eine Möglichkeit gibt, dass man wie z.B:
mit 'Sheets("Tabelle2").Activate'
bei Klick auf das Tabellenblatt (Tabelle2) "springen" kann nur dass kein Sprung vollzogen wird sondern man in der Tabelle bleibt und quasi eine andere Sicht hat ?

Gruß

 

in VBA ist zu 99,9% selkect usw. unnötigt.
benutze
With 'Sheets("Tabelle2")
.Range("A1")=123
end With

 

Verstehe leider nicht ganz, wie ich es einbinden muss...
Sub Rechteck3_BeiKlick()
With Sheets("Tabelle2").Range("A1") = 123
End With
End Sub

Wenn ich es so implementier bekomme ich zwar keinen Fehler aber es passiert beiKlick nichts

 

vergleiche Deine Schreibweise mit meiner und Dir wird aufallen das ich einmal mehr Enter gedrückt habe.

 

Mit dem Zuweisen eines Werts in eine Zelle ändert sich aber an der Ansicht erstmal pauschal gar nix. Die veränderte Zelle muß nicht mal im sichtbaren Bereich liegen.

Das .Activate ist da in der Tat die Wahl der Stunde. Alternativ zum Aktivieren eines ganzen Blatts kann man damit nämlich auch prima eine einzelne Zelle aktivieren. Und das .Select parallel dazu kann meist auch nicht schaden. Damit könnte man auch mal eben Zelle CK36284 in den sichtbaren Bereich des Bildschirms holen.

Code:

activesheet.range("CK36284").activate
'activesheet.range("CK36284").select

...wenn es das ist, was "Heck" meinte, worüber ich mir nach 3x durchlesen der Frage aber leider auch nicht so ganz sicher bin.

Etwas schwieriger wird's, weil man nicht vorhersagen kann, wo innerhalb des sichtbaren Bereichs dann die Zelle erscheint. Je nach vorheriger Position kann die Zelle am oberen oder unteren, linken oder rechten Bildschirmrand auftauchen. Versuche, die Zelle z.B. immer links oben sichtbar zu machen, arten leider in ziemlichem Aufwand aus. (Noch aufwendiger und, wenn ich mal so sagen darf: nutzloser! ist der Versuch, die Zelle in die Bereichs-Mitte zu bekommen.)

Herumspielen kann man aber mit .Select auf einen Bereich rund um die Zelle und anschließender Einstellung des Zoom-Faktors auf "passend", danach das .Select auf die ActiveCell.

Gruß, Michael

 

Also bei mir ging es darum, dass ich eine neue Tabelle 2 mit dem gleichen Layout, nur mit eingeschränkten Daten erstelle und dann nachdem ich auf ein Rechteck in Tabelle 1 klicke nicht auf Tabelle 2 springen will, sondern mir die Tabelle2 anstatt Tabelle 1 anzeigen lassen will...

 

Hmmm... Worin siehst du den Unterschied zwischen "auf Tabelle 2 springen" und "Tabelle 2 anzeigen"? Vielleicht versteh ich Dich auch völlig falsch...

Ansonsten: Das 1. zieht das 2. nach sich, aber das 2. erfordert das 1. Du kannst eine Tabelle nur anzeigen, wenn sie aktiviert, also "im Vordergrund", ist. Eine "im Vordergrund" angezeigte Tabelle ist aber gleichzeitig auch die aktivierte.

(Bei eigenständigen Fenstern gibt es die Möglichkeit, ein Fenster "im Vordergrund" aber gleichzeitig "ohne Focus" anzuzeigen. Das ist aber eine andere Geschichte...)

Einen (feinen) Unterschied gibt es sonst eigentlich mehr so zwischen "aktiviert" und "selektiert". Das hat hiermit aber eher marginal zu tun.

Gruß, Michael

 

Ok ich glaube, dass so wie ich mir das vorgestellt habe es nicht funktionieren wird...

Andere Frage :)

Gibt es ein Makro mit dem ich zu genau einer bestimmten Zelle springen kann?

 

Hat sich erledigt!

Für denjenigen, den es interessiert:
Application.ActiveWindow.ScrollRow = 7 (7=Zeile)

 

Das wäre (auch wieder) "activate" in Verbindung dann nicht mit einem "worksheet", sondern mit einem "range":

Code:

s="auswertung"
worksheets(s).activate
y=3
x=2
activesheet.cells(y,x).activate

oder

Code:

s="auswertung"
worksheets(s).activate
r="b3"
activesheet.range(r).activate

Gruß, Michael