Kombinationsfeld oder Combobox

Private Sub ComboBox1_Change() Dim ComboBox1 As Integer ComboBox1 = Range("W50").Value Select Case ComboBox1 Case Is = "EFB Preis 1a" Sheets("EFB 1a").Select Worksheets("EFB 1a").Select Case Is = "EFB Preis 1b" Sheets("EFB 1b").Select Worksheets("EFB 1b").Select Case Is = "EFB Preis 1c" Sheets("EFB 1c").Select Worksheets("EFB 1c").Select " u.s.w." End Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Makro für Kombinationfeld aus der Steuerelement-Toolbox Private Sub ComboBox1_Change() Sheets(ComboBox1.Value).Select End Sub 'Makro für Kombinationsfeld aus Formular, Makro muss dem Kombinationsfeld zugewiesen werden '"Tabellen" ist der Bereich mit den Tabellennamen, der auch für die Listenauswahl des Feldes 'festgelegt wurde. "H2" ist die mit dem Feld verknüpfte Zelle. Sub Tabellenauswahl() With Application Sheets(.WorksheetFunction.Index(.Range("Tabellen"), Me.Range("H2").Value, 1)).Select End With End Sub

Hallo Reinhard, Hallo fcs,
nachdem die fleißigen Beantworter bei meiner späten Frage die Kiste wohl schon abgestellt hatten habe ich es nach einer weiteren Stunde selber geschafft. Bei meinen Code einfach die ersten beiden Zeilen weg dann geht es auch.
Eure beiden Varianten sind jedoch besser.
Danke fsc für die tolle Ausarbeitung (Erklärung). Mit dem Steuerelement der Toolbox funktioniert dies wunderbar. Ich habe dies auch in einer eigenen Tabelle probiert und mit dem Namen vergeben verstanden. Bei dem Formular-Steuerelement kommt aber bereits in deiner Mappe "Typenunverträglich".
Einsetzen werde ich allerdings Reinhard seine Variante. Also auch dir Reinhard besten Dank. Ich denke der Vorteil ist, dass der Code im Modul liegt. Somit kann ich das Steuerelement ohne zusätzlichen Code in mehrere Mappen kopieren und es funkt.
Ich will nicht unverschämt sein. Aber nun ist mir aufgefallen, dass ich eigentlich noch ein HiLight brauche. Absolut Spitze wäre natürlich, wenn nach jeder Auswahl nicht der Tabellenname in der Box steht, sondern die Bezeichnung. In diesen Beispiel wäre das "EFB Datenblätter". Insgesamt werde ich wohl 5 solche Steuerelemte benötigen. Und es sieht blöd aus, wenn auf meiner Startseite in jedem Steuerelement steht "Start".
Wäre genial, wenn du dazu noch einen guten Tipp hast.
Also nochmal, Danke euch Beiden
Gruß Thorsten

Hallo Thorsten,
ergänze den Eintrag "EFD-Tabellen" in der Liste der Tabellen (am besten als letzten Eintrag) und passe das Makro wie folgt an:


Sub tt()
With Worksheets("Tabelle4")
If .Range("B1").Value <> .Cells(.Rows.Count, "A").End(xlUp).Row Then 'oder If .Range("B1").Value <> 3 Then
Worksheets(CStr(.Range("A" & .Range("B1")))).Activate
.Range("B1").Value = .Cells(.Rows.Count, "A").End(xlUp).Row  'oder .Range("B1").Value = 3
End If
End With
End Sub

Hierbei wird in Spalte "A" die letzte Zeile mit einem Eintrag ermittelt und in die Verknüpfte Zelle eingetragen. Falls sich die Tabellenzahl nicht ändert, dann kannst du auch die Variante mit der direkten Angabe der Zeile wählen.
Übrigens gibt meine Lösung für die Formular-Auswahlbox jetzt auch bei mir die Fehlermeldung "Typen unverträglich". Keine Ahnung warum, denn wenn ich den Blattnamen in eine Variable Schreibe funktioniert es jetzt. Mit nachfolgender Änderung kannst du das Makro auch in ein Modul schreiben. Den Namen "Tabelle1" mit der verknüpften Zelle muss du dann entsprechend anpassen.


'Makro für Kombinationsfeld aus Formular, Makro muss dem Kombinationsfeld zugewiesen werden
'"Tabellen" ist der Bereich mit den Tabellennamen, der auch für die Listenauswahl des Feldes
'festgelegt wurde. "H2" ist die mit dem Feld verknüpfte Zelle in Tabelle1.
Sub Tabellenauswahl()
Dim Blatt As String
With Application
Blatt = .WorksheetFunction.Index(.Range("Tabellen"), Sheets("Tabelle1").Range("H2").Value, 1)
Sheets(Blatt).Select
End With
End Sub

Gruss
Franz

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kombinationsfeld oder Combobox

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

300 Forumthreads zu ähnlichen Themen

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