Listbox Items abfangen & weiter damit arbeiten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub ListBox1_Click() Select Case ListBox1.ListIndex Case Is = 0 Range("A12").Value = "Bankhaus Meier" Case Is = 1 Range("A12").Value = "Bankhaus Sparkasse" Case Is = 2 Range("A12").Value = "Bankhaus Volksbank" Case Else Range("A12").Value = "Bankhaus Deutsche Bank" End Select End Sub

Option Explicit Public Sub Deine_Andere_Proc() Select Case Tabelle1.ListBox1.ListIndex Case Is = 0 Range("A12").Value = "Bankhaus Meier" Case Is = 1 Range("A12").Value = "Bankhaus Sparkasse" Case Is = 2 Range("A12").Value = "Bankhaus Volksbank" Case Else Range("A12").Value = "Bankhaus Deutsche Bank" End Select End Sub

'--mit Button der entspr. eintraegt------ Private Sub CommandButton1_Click() With Worksheets("Tabelle1") '--- Blattname ggf. anpassen Select Case ListBox1.ListIndex Case Is = 0 .Range("A12").Value = "Bankhaus Meier" Case Is = 1 .Range("A12").Value = "Bankhaus Sparkasse" Case Is = 2 .Range("A12").Value = "Bankhaus Volksbank" Case Else .Range("A12").Value = "Bankhaus Deutsche Bank" End Select End With End Sub Private Sub UserForm_Initialize() ListBox1.AddItem "Kunde 1" ListBox1.AddItem "Kunde 2" ListBox1.AddItem "Kunde 3" ListBox1.AddItem "Kunde 4" End Sub

Hallo Hary,
vielen Dank. Aber ich denke so ganz kann ich das nicht verwenden.
Meine Überlegungen waren jetzt so, dass ich durch Klick auf ein Item in der Listbox eine Auswahl an Tabellenblättern bekomme (alle die mit Ba beginnen werden mir angezeigt). Anschließend gibt es die Möglichkeit ein neues Tabellenblatt zu erstellen (mithilfe eines eingefügten Ribbons als Schaltfläche) Es wird von einem Blatt kopiert & nur ein Bereich wird immer ausgetauscht.
Gibt es keine Möglichkeit, die Auswahl der Userform Listbox Items abzufragen?
Folgender Code funktioniert nicht, wäre aber wünschenswert, da das


Sub mit Ribbon nicht im Userform steht:


Sub BlattErstellen(Blatt As String, Name As String) 'Blatt := Angabe aus Combo Box Blatt in  _
Blatt Neu(gibt Art des zu erstellenden Blattes an); Name:= Name den das Blatt bekommen soll
Dim Sheet As Worksheet
If Blatt = "Neu" Then
Set Sheet = Sheets.Add(After:=Sheets(7)) 'Neues(leeres) Blatt einfügen
ActiveSheet.Unprotect (GetPassword)
Sheets("Kopie").Cells.Copy Sheet.Cells 'Formatierung soll bei allen Vorlagen Blättern  _
gleich sein
'Hier Fallunterscheidung DE/EN
Select Case Tabelle5.ListBox1.ListIndex
Case Is = 0
Range("A12").Value = "Bankhaus Meier"
Case Else
Range("A12").Value = "Bankhaus Sparkasse"
End Select
Else
Set Sheet = Sheets.Add(After:=Sheets(2))
End If
End Sub




Gibts da ne Idee oder eine Möglichkeit?

Gruß

Sub mit Ribbon nicht im Userform steht: Sub BlattErstellen(Blatt As String, Name As String) 'Blatt := Angabe aus Combo Box Blatt in _ Blatt Neu(gibt Art des zu erstellenden Blattes an); Name:= Name den das Blatt bekommen soll Dim Sheet As Worksheet If Blatt = "Neu" Then Set Sheet = Sheets.Add(After:=Sheets(7)) 'Neues(leeres) Blatt einfügen ActiveSheet.Unprotect (GetPassword) Sheets("Kopie").Cells.Copy Sheet.Cells 'Formatierung soll bei allen Vorlagen Blättern _ gleich sein 'Hier Fallunterscheidung DE/EN Select Case Tabelle5.ListBox1.ListIndex Case Is = 0 Range("A12").Value = "Bankhaus Meier" Case Else Range("A12").Value = "Bankhaus Sparkasse" End Select Else Set Sheet = Sheets.Add(After:=Sheets(2)) End If End Sub Gibts da ne Idee oder eine Möglichkeit? Gruß

Select Case auswahl Case Is = 0 Range("A12").Value = "Bankhaus Meier" Case Is = 1 Range("A12").Value = "Bankhaus Sparkasse" Case Is = 2 Range("A12").Value = "Bankhaus Volksbank" Case Is = 3 Range("A12").Value = "Bankhaus Deutsche Bank" End Select

Beliebteste Forumthreads (12 Monate)

Listbox Items abfangen & weiter damit arbeiten

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox Items abfangen & weiter damit arbeiten

11 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)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread