If Funktion für ComboBox - Code vereinfachen

Hallo Gemeinde.
Hab wiedermal ein kleines Rätzel für alle Excel-Tüftler.
In eine Arbeitsmappe sollen Daten in 15 verschiedene Tabellen per UserForm
eingetragen werden. Über eine ComboBox im UserForm legt der Anwender fest, in welche
Tabelle übertragen werden soll. Die Tabellen heißen Part1 bis Part15, die ComboBox
enthält die gleichen Einträge.
Bei click auf ok startet mein code so:
If ComboBox1.Value = "Part1" Then
With Worksheets("Part1")
...usw...
Nun folgen alle Bedingungen für die evtl. Übertragung von "Part1" und erst
dann gehts weiter mit
If ComboBox1.Value = "Part2" Then
With Worksheets("Part2")
...usw...
Das funktioniert zwar prima, erfordert aber einen immens langen Code, da ich die immer gleichbleibenden Übertragungsbedingungen 15mal hintereinander auflisten muß.
Kann man das vielleicht vereinfachen in der Art:
If Not ComboBox1.Value = "" Then
With Worksheet (CoboBox1.Value)
...usw...
Oder gibts noch ne andere Lösung?
Rund-Um-Forums-Grüße
Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ComboBox1_Change() Select Case ComboBox1.Text Case Is = "Tabelle1" Sheets("Tabelle1").Activate Case Is = "Tabelle2" Sheets("Tabelle2").Activate Case Is = "Tabelle3" Sheets("Tabelle3").Activate End Select End Sub

Danke Leute! Da sieht man mal wieder wie unterschiedlich man so ein Problemchen lösen kann. :o)
Prinzipiell läufts mit allen drei Lösungen.
Lösung drei verkürzt den Code schon erheblich, ist aber doch noch ein bisschen umständlich.
Lösung zwei ist Klasse. Aber sie eignet sich besser wenn man z.B. 20 Tabellen hat und
die immer gleichen Daten in den Tabellen in verschiedene Spalten schreiben will.
(z.B. Tabelle 1-10 Spalte 2, Tabelle 11-20 Spalte 3)
Außerdem MÜSSEN die Tabellen hier eine laufende Nummer haben. Wenn die Tabellen
z.B. versch. Ländernamen haben, dann funktioniert das so leider nicht.
Lösung eins ist natürlich mein Favorit. ;o)
Kürzer geht nicht. Ein Blick in die Eigenschaften der ComboBox verrät auch meinen Fehler.
Value liefert einen Wert, in Text stehen die jeweiligen Listen-Einträge.
Sehr sonnige Grüße
Chris

Beliebteste Forumthreads (12 Monate)

If Funktion für ComboBox - Code vereinfachen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

If Funktion für ComboBox - Code vereinfachen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread