Supportnet / Forum / Tabellenkalkulation

Schönen guten Tag, habe folgendes problem: in der ersten registerkarte(-tabelle) soll eine auswahlliste rein, die aus den namen bzw überschriften der anderen registerkarten besteht. registerkarte 2: kostenart x registerkarte 3: kostenart y registerkarte 4: kosetnart z . . ändert sich die überschrift z.b. in der registerkarte von "kostenart x" in "blablabla", dann soll automatisch der neue name,also "blablabla" in die auswahlliste in die erste registerkarte wandern. Ist dies möglich? wenn ja wie?

Hallo Reeker,

Ich gehe mal davon aus, dass Du mit Registerkarten die Blattregister am unteren Bildschirmrand meinst, in denen der Blattname steht. Wenn dem so ist, dann füge in dem Blatt, in dem Du eine Auswahl der anderen Blattnamen haben möchtest, aus der Symbolleiste "Steuerelement-Toolbox" ein Kombinationsfeld ein. Füge danach in das VBA Projekt des Tabellenblattes, in dem Du das Kombinationsfeld eingefügt hast, nachfolgenden VBA-Code ein.

Option Explicit

Private Sub Worksheet_Activate()
Dim i As Integer
For i = 1 To Worksheets.Count
If Sheets(i).Name <> ActiveSheet.Name Then
ActiveSheet.ComboBox1.AddItem Sheets(i).Name
End If
Next
End Sub

Mit dem Code wird das Kombinationsfeld mit den Blattnamen gefüllt.

Ich hoffe, Du meintest das so. Wenn nicht, musst Du das ganze nochmal anders erklären.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 2 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi,

ich nochmal. Hatte in dem vorangegangenen Code vergessen die ComboBox am Anfang zu entleeren. Nehme daher den nachfolgenden Code und kopiere ihn in das VBA-Projekt des Tabellenblattes, in dem sich das Kombinationsfeld befindet.

Option Explicit

Private Sub Worksheet_Activate()
Dim i As Integer
ActiveSheet.ComboBox1.Clear
For i = 1 To Worksheets.Count
If Sheets(i).Name <> ActiveSheet.Name Then
ActiveSheet.ComboBox1.AddItem Sheets(i).Name
End If
Next
End Sub

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

also sehr gut, dass du mein problelm er kannt hast :-)..war schwer zu beschreiben. vielen dank..so also ich haben den code eingefügt. und jetzt? wenn ich dass VBA-Projekt des Tabellenblattes beende/schließe, kann ich immer noch nicht auswählen!? wenn ich dass komibinationsfeld anklicke kann ich es verschieben usw, also ich kann keine auswahl/dropdownmenü erkennen. stell mich heut einfach zu blöd an :-)

problelm er kannt

problem erkannt hast


sorry bin total vertieft noch in excel, da leidet die rechtschreibung.

:-)

Hallo Reeker,

gestatte mir zum Anfang eine kleine Anmerkung. Ein Hallo am Anfang und ein Gruß am Ende würde Deinen Beitrag gleich viel netter aussehen lassen. Wenn Du zum Bäcker gehst sagst Du ja auch beim Reingehen "Guten Tag" und beim Gehen "Auf Wiedersehen". Denn die Leute, an die Du Deine Frage richtest, sitzen zwar am PC, sind aber dennoch Menschen.

Du musst den Entwurfmodus beenden und einmal das Blatt verlassen und dann wieder das Blatt anwählen, damit das Kombinationsfeld gefüllt wird. Den Entwurfmodus beendest Du, in dem Du in der Symbolleiste Steuerelement-Toolbox den Button ganz links betätigst.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

• VBA Problem mit auswahlliste?
• Verknüpfung Auswahlliste mit Autofilter
• media player auf website mit Auswahlliste
• Formatierung bei Auswahlliste möglich
• Wie kann man die Daten, die in einer Auswahlliste ausgewählt wurden mit einer anderen Zelle verknüpfen?