Wenn "Neu" Springe zu Tabelle 5

Question

Hallo zusammen.
Ich möchte mit einem Kombinationsfeld mehrere Möglichkeiten zur Auswahl haben, was auch soweit gelingt.
Nun habe ich leider das Problem das mal was Neues dazu kommen kann/soll und ich das auch über dieses Kombinationsfeld machen möchte.
Der Eintrag "Neu" im Kombinationsfeld ist vorhanden, dieser wird auch in meine definierte Zelle eingetragen.
Nun möchte ich gerne das wenn in dieser Zelle "Neu" steht er automatisch in die Tabelle 5 springt damit ich dort den neuen Artikel in die Liste eintragen kann.
Wie kann ich das ohne Hyperlink bewerkstelligen??
Danke schon mal für Eure Hilfe.

Answer 1

Hallo Christian,
vielleicht mit VBA so:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("Tabelle1").Range("A1") = "Neu" Then Sheets("Tabelle3").Select
End Sub


Gruß
fedjo

Answer 2

Danke fedjo.

Leider klappt es so aber nicht.
Wenn ich in meinem Kombinationsfeld "Neu" auswähle passiert gar nichts. Erst wenn ich auf die Zelle in die "Neu" geschrieben wird, in meinem Fall Tabelle "Auftrag Zelle C2"klicke bekomme ich die Meldung Laufzeitfehler 9 Index ausserhalb des gültigen Bereich.

Answer 3

Hallo Christian,
Makro in die Tabelle mit dem Kombinationsfeld einfügen:

Sub Tab5()
If Sheets("Auftrag").Range("C2") = "Neu" Then Sheets("Tabelle5").Select
End Sub

Makro dem Kombinationsfeld zuweisen.
Du kannst aber auch ein Musterdatei hier hochladen.

http://www.file-upload.net/

Answer 4

Hallo fedjo
Danke erst mal für Deine Mühen! So richtig bekomme ich es nicht hin, muß mich da erst rein arbeiten.Habe meine Datei mal hoch geladen, hoffe Du kannst mir da weiter helfen?
Wenn ich "Neu" auswähle wird es wie gewünscht in die betreffende Zelle (C2) geschrieben aber mehr passiert auch nicht. Bis ich auf irgend eine andere Zelle im Arbeitsblatt klicke dann komme ich auf die gewünschte Seite.
Wo liegt da mein Fehler??
Hier mal der Link.http://www.file-upload.net/download-1740634/Probe.xls.html

Answer 5

Hallo Christian,
ich bin davon ausgegangen, das das Kombinationsfeld aus dem Formular ist. Da es aber dem Steuerelement Toolbox (ComboBoxI) stammt ist der Code so:

Option Explicit
Private Sub ComboBox3_Change()
If Sheets("Auftrag").Range("C2") = "Neu" Then Sheets("Option").Select
End Sub
Probe

Gruß
fedjo

Answer 6

DANKE!!!
Genau so wollte ich das haben. Vielen Dank noch mal.
Christian