Office: Arbeitsblattsprung nach Formelgleichung !

Hallo liebe Excel-Gemeinde !

Bin neu hier und habe schon einige nützliche Beiträge gelesen !
Nun habe ich aber eine Frage , die ich mir auch durch eine Suche nicht beantworten konnte !
Vieleicht könnt ihr mir ja weiterhelfen !

Würde gerne wissen , ob es möglich ist nach einer Formelberechnung einen Arbeitsblattsprung zu machen !

Beschreibung:
Sollte das Ergebniss zweier Zahlen in Arbeitsblatt 1 (10 - 11 = -1 ) kleiner 0 sein springe zum Arbeitsblatt 2
Ist so etwas möglich ?

Vielen Dank im vorraus
heinz

 

Hallo!

Wenn das "ganz" automatisch passieren soll, dann brauchst du VBA.
Wenn ein einziger weiterer Klick noch im Rahmen des Vertretbaren liegt, dann geht's auch mit einer Formel:

=WENN(A1>A2;HYPERLINK("#Tabelle2!A3";"hüpf");HYPERLINK("#Tabelle3!A4";"spring"))

Wenn der Wert in A1 größer ist als A2, dann springst du nach einem Klick auf die Formelzelle zu "Tabelle2!A3", in allen anderen Fällen nach "Tabelle3!A4".

 

Erstmal Danke für die schnelle Antwort !

Das mit dem Link funktioniert schon gut , hätte es aber gerne ohne klick !
Wie bekomme ich es mit VBA hin ?
Kenne mich nicht so gut aus mit Makros !

MfG Heinz

 

Um welche Zellen handelt es sich denn genau?
Erfolgen die Eingaben direkt in diese Zellen, oder stehen dort Formeln drin?
Die Änderung welcher Zelle soll Auslöser für den Sprung sein?

 

Hallo Schatzi!

Also die Zelle die den Sprung auslösen sollte ist die K20 !
In der Zelle K20 steht eine Formel , welche eine Summe erstellt !

Vielen Dank im vorraus und auch ein Danke für die super schnelle Hilfe von Dir

MfG Heinz

 

Hallo!

Dann kopiere mal diesen Code ins Modul deines Eingabeblatts:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("K20") < 0 Then
Sheets("Tabelle3").Activate
ActiveSheet.Range("B3").Select
End If
End Sub

(Die Bezüge musst du natürlich anpassen.)

 

HI !

Habe es im Modul eingefügt , aber nichts passiert wenn K20 unter 0 ist !?
Hast du noch einen tip?

Mfg Heinz

 

Soooooorrrrrrrrrrrrrrrrrrrryyyyyy !

Mein Fehler hatte es in der falschen Tabelle !

Vielen vielen Dank für die super schnelle und kompetente Hilfe !
Klappt wunderbar !

MfG Heinz

Bis demnächst ;-)

 

Hi ich nochmal !

Kann ich auch mehrere Worksheets in einer tabelle verwenden ?
Bekomme eine Fehlermeldung , wenn ich den gleichen text mit anderen bezügen rein kopiere !

MfG Heinz

 

Wie meinst du das?
Verstehe ich nicht...

 

Also wenn ich durch k20 z.b. auf tabelle 2 gelange und durch k19 auf tabelle 3 möchte !

MfG Heinz

 

Dann baust du's mit ein:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("K20") < 0 Then
Sheets("Tabelle3").Activate
ActiveSheet.Range("B3").Select
End If

If Range("K19") < 0 Then
Sheets("Tabelle2").Activate
ActiveSheet.Range("J17").Select
End If

End Sub

Bleibt nur die Frage, was passieren soll, wenn beides zugleich eintritt. Aber ich hoffe, dieser Fall ist bei dir ausgeschlossen.

 

danke dir klappt super !

der fall das beides eintritt ist eigentlich nicht möglich aber danke für den hinweis!

schönen abend und nochmals danke !

mfg heinz