Hallo,
eine Frage zu einem VBA Makro.
Ich möchte ein Kombinationsfeld erstellen, bei dem ich durch anklicken desselben zu einem oder mehreren verschiedenen Tabellenblättern springen kann.
das Kombinationsfeld ist in der Tabelle 1
es listet auf die Werte A-H
wenn ich jetzt auf das A klicke soll in die Tabelle 2 Feld H5 gesprungen werden
wenn ich B anklicke in Tabelle 3 Feld B2
und so weiter .
Mir geht es darum zu verstehen wie ich die einzelnen Tabellenblätter und ihre jeweiligen Zielpunkte ansteuern kann.
Würde mich freuen von euch lieben hier Hilfe zu bekommen.
LG
Ich möchte ein Kombinationsfeld erstellen, bei dem ich durch
anklicken desselben zu einem oder mehreren verschiedenen
Tabellenblättern springen kann.
das Kombinationsfeld ist in der Tabelle 1
es listet auf die Werte A-H
wenn ich jetzt auf das A klicke soll in die Tabelle 2 Feld H5
gesprungen werden
Hallo Jo,
Private Sub ComboBox1\_Change()
Select Case ComboBox1.Value
Case "A"
Application.Goto reference:=Worksheets("Tabelle2").Range("D5")
Case "B"
Application.Goto reference:=Worksheets("Tabelle3").Range("X27")
End Select
End Sub
Gruß
Reinhard
Vielen lieben Dank !
das ist die Lösung - klappt ganz vorzüglich.
Eine Frage habe ich noch die aber nicht besonders wichtig zu behandeln ist .
Jedesmal wenn ich in der ComboBox ein Feld anklicke bleibt der bestehende Wert darin sichtbar.
Gibt es eine Möglichkeit beim verlassen der Combobox keinen Eingabewert mehr in der selben anzuzeigen.
Beispiel ich klicke jetzt A an und A ist die ganze Zeit zu sehen und das wäre schön wenn das nicht der Fall wäre.
Ist nebensächlich im Endeffekt hast du mir se´hr geholfen !!!
Hallo Jo,
das ist die Lösung - klappt ganz vorzüglich.
nur vorzüglich, wieder keinen Stern bekommen *sniff+ 
)
Jedesmal wenn ich in der ComboBox ein Feld anklicke bleibt der
bestehende Wert darin sichtbar.
Gibt es eine Möglichkeit beim verlassen der Combobox keinen
Eingabewert mehr in der selben anzuzeigen.
Private Sub ComboBox1\_Change()
Select Case ComboBox1.Value
Case "A"
Application.Goto reference:=Worksheets("Tabelle2").Range("D5")
Case "B"
Application.Goto reference:=Worksheets("Tabelle3").Range("X27")
End Select
ComboBox1.Value = ""
End Sub
Gruß
Reinhard
1 „Gefällt mir“
Dafür gibts von mir den vierten Stern !!!
Nun muss gleich nur noch Deutschland gewinnen dann ist der Tag perfekt!!!
Danke schön lieber Reinhard
Hallo Jo,
Dafür gibts von mir den vierten Stern !!!
? Hä, ich seh keinen einzigen *sniff*
Nun muss gleich nur noch Deutschland gewinnen
Sicher, das wäre chic, und ich hätte da auch nix gegen, aber wenn sie heute vergeigen, MÜSSEN sie im dritten Spiel gewinnen, dadurch wird dann das dritte Spiel sehr interessant
Wenn sie dann auch vergeigen, naja, dann haben sie es nicht verdient Weltmeister zu werden.
Und nichts ist im Fussball langweiliger als ein Spiel wo sich zwei Mannschaften „schonen“ weil ihnen ein 0:0 langt.
Ich hab kein Fußballdatengedächtnis, aber ich habe das Bild noch vor Augen wo algerische, tunesische oder sonstwie Zuschauer Geldscheine in die Kamera hielten als da D gegen, ich glaub Österreich gezielt nur auf 0:0 spielten.
Das hat meinen Stolz, meine Ehre verletzt. Hätten die Deutschen angegriffen und dann durch einen Konter o.ä. verloren. Na und.
Das währe ehrenvoll gewesen.
Gruß
Reinhard
1 „Gefällt mir“
Nun habe ich das mit dem Stern erst verstanden .
Da hast du ihn verdienterweise !!!
Was du meinst war die Schmach von Cordoba
da hat deutschland 1:0 gewonnen und so waren beide weiter !
Deutschland und Österreich! und Algerien draussen.
Eine Frage habe ich dann doch noch - kanns nicht lassen.
Wenn ich mit der ComboBox in eine andere Tabelle springe und irgendwann wieder in die Ausgangstabelle zurück komme, blinkt dann in der ComboBox de3r Cursor. Gibt es keine Möglichkeit das keine Aktion in dem ComboBoxfeld passiert ???
Hallo Jo,
Nun habe ich das mit dem Stern erst verstanden .
Da hast du ihn verdienterweise !!!
danke.
Was du meinst war die Schmach von Cordoba
da hat deutschland 1:0 gewonnen und so waren beide weiter !
Deutschland und Österreich! und Algerien draussen.
Jetzt wirds doch spannend, 10 Deutsche und 0:1.
Und Deutscher hin oder her oder ob ich dan den bescheuerten Kärtchenziehschiedsrichter für äh bescheuert halte, es wird spannend
Wenn ich mit der ComboBox in eine andere Tabelle springe und
irgendwann wieder in die Ausgangstabelle zurück komme, blinkt
dann in der ComboBox de3r Cursor. Gibt es keine Möglichkeit
das keine Aktion in dem ComboBoxfeld passiert ???
Vielleicht so:
Option Explicit
'
Private Sub ComboBox1\_Change()
Select Case ComboBox1.Value
Case "A"
Application.Goto reference:=Worksheets("Tabelle2").Range("D5")
Case "B"
Application.Goto reference:=Worksheets("Tabelle3").Range("X27")
End Select
ComboBox1.Value = ""
End Sub
'
Private Sub Worksheet\_Activate()
Range("A1").Select
End Sub
Gruß
Reinhard
Nun passt es richtig vielen Dank nochmal!
Zum Fussball sag ich ma besser nix - das war ja mehr ein Kartenspiel als Fussball . Aber wir schaffen das noch bestimmt !
in diesem Sinne - denke mal wir hören bestimmt nochmal voneinander - weil ab und an hab ich bestimmt noch mal ne Frage.
Wünsche dir noch nen feinen Tag und aus bald.
LG vom Jo
Halli Hallo,
ich gebe immer noch keine Ruhe weil mir wieder etwas eingefallen ist.
Gäbe es auch die Möglichkeit, wenn ich die Werte die ich gesetzt habe , wie in dem oben beschriebenen Beispiel A-H durch beliebig veränderbare Angaben ersetze ?
Beispiel in den Feldern A1 bis A8 stehen die Werte A bis H -
nun möchte ich ´diese Werte aber aus tauschen und zwar immer wieder veränderbar
Mal soll in Feld A1 der Wert A stehen mal das Wort Apfel oder Birne ohne das sich an dem Sprung etwas ändert - also egal was ich anklicke die goto funktion soll immer im selben Tabellenbaltt an der selben Stelle auftauchen.
Dieses hat den Sinn, das ich es gerne in einer Sporttabelle benutzen möchte und da sich die Vereine ja immer wieder ändern, wäre das von Vorteil.
Vielen lieben Dank nochmal an reinhardt - er hat mir schon sehr geholfen.
LG Jo