Microsoft Excel

Herbers Excel/VBA-Archiv

1. Titel ComboBox anzeigen

Betrifft: 1. Titel ComboBox anzeigen von: wolfgang
Geschrieben am: 02.08.2020 12:28:23

Guten Tag zusammen,
ich habe ein kleine Makro und möchte nachdem das Makro beendet ist,
das in der ComboBox auf der Tabelle1 der 1. Name angezeigt wird.

mfg wolfgang

Betrifft: AW: 1. Titel ComboBox anzeigen
von: Nepumuk
Geschrieben am: 02.08.2020 12:46:00

Hallo Wolfgang,

teste mal:
ComboBox1.ListIndex = 0

Gruß
Nepumuk

Betrifft: Leider Fehler
von: wolfgang
Geschrieben am: 02.08.2020 12:58:42

Guten Tag Nepumuk,
leider Fehlermeldung.
Laufzeitfehler 380
Eigenschaft Listindex konnte nicht gesetzt werden.
Muss man erst die Tabelle17 aktivieren ?
Anbei mein Makro:
If InputBox("Passwort?") = "admin" Then
ActiveSheet.Application.ScreenUpdating = False
Tabelle17.Unprotect (getStrPasswort)
Tabelle17.Range("B3").Value = ActiveSheet.Range("K3")

Tabelle17.ComboBox1.ListIndex = 0

Tabelle17.Protect (getStrPasswort)
ActiveSheet.Application.ScreenUpdating = True
Else
MsgBox "Falsch!"
End If

mfg wolfgang


Betrifft: AW: Leider Fehler
von: Nepumuk
Geschrieben am: 02.08.2020 13:13:26

Hallo Wolfgang,

enthält die ComboBox zu diesem Zeitpunkt überhaupt Einträge? Der Fehler deutet darauf hin dass sie leer ist. Die Tabelle muss nicht aktiv sein.

Gruß
Nepumuk

Betrifft: War mein Fehler aber ...
von: wolfgang
Geschrieben am: 02.08.2020 13:32:36

Hallo Nepumuk,
war mein Fehler, SORRY.
If InputBox("Passwort?") = "admin" Then
ActiveSheet.Application.ScreenUpdating = False
Tabelle17.Select
Tabelle17.Unprotect (getStrPasswort)
Tabelle17.Range("B3").Value = Tabelle2.Range("N3")
Tabelle17.ComboBox1.ListIndex = 0
ActiveSheet.Application.ScreenUpdating = True
Else
MsgBox "Falsch!"
End If

Ja die ComboBox erhält erst die Einträge hiermit:
Tabelle17.Range("B3").Value = Tabelle2.Range("N3")
aus N3 wird der Name eingesetzt und dann, wenn man die ComboBox anklickt,
werden die Namen angezeigt.
Hier das Makro:
Private Sub ComboBox1_DropButtonClick()

If Range("A1") = 1 Then
        ActiveSheet.ComboBox1.ListFillRange = "Auswahl!I4:I20"
        ActiveSheet.Unprotect (getStrPasswort)
        ActiveSheet.Range("D5") = ActiveSheet.ComboBox1
        ActiveSheet.Protect (getStrPasswort)
       
ElseIf Range("A1") = 2 Then
    ActiveSheet.ComboBox1.ListFillRange = "Auswahl!M4:M20"
        ActiveSheet.Unprotect (getStrPasswort)
        ActiveSheet.Range("D5") = ActiveSheet.ComboBox1
        ActiveSheet.Protect (getStrPasswort)
Else
    ActiveSheet.ComboBox1.ListFillRange = ""
End If
End Sub
mfg wolfgang

Betrifft: AW: War mein Fehler aber ...
von: Nepumuk
Geschrieben am: 02.08.2020 13:40:00

Hallo Wolfgang,

die ComboBox erhält ihre Einträge erst wenn du auf den DropButton klickst. Da kann das mit dem ListIndex nicht funktionieren. Warum füllst du die Box nicht in dem vorhergehendem Makro?

Gruß
Nepumuk

Betrifft: Ja Nepumuk und Wie ?
von: wolfgang
Geschrieben am: 02.08.2020 13:57:42

Hallo Nepumuk,
und wie kann vorher füllen ?

mfg
wolfgang

Betrifft: AW: Ja Nepumuk und Wie ?
von: Nepumuk
Geschrieben am: 02.08.2020 14:11:26

Hallo Wolfgang,

na so:

If InputBox("Passwort?") = "admin" Then
    With Tabelle17
        .Unprotect getStrPasswort
        .Range("B3").Value = Tabelle2.Range("N3").Value
        If .Range("A1").Value = 1 Then
            .ComboBox1.ListFillRange = "Auswahl!I4:I20"
            .ComboBox1.ListIndex = 0
            .Range("D5").Value = .ComboBox1.Text
        ElseIf .Range("A1").Value = 2 Then
            .ComboBox1.ListFillRange = "Auswahl!M4:M20"
            .ComboBox1.ListIndex = 0
            .Range("D5").Value = .ComboBox1.Text
        Else
            .ComboBox1.ListFillRange = ""
        End If
        .Protect getStrPasswort
    End With
Else
    MsgBox "Falsch!"
End If

Gruß
Nepumuk

Betrifft: Leider auch Laufzeitfehler
von: wolfgang
Geschrieben am: 02.08.2020 14:24:45

Hallo Nepumuk,
leider Laufzeitfehler 380...

bleibt hier stehen !

mfg
wolfgang

Betrifft: AW: Leider auch Laufzeitfehler
von: Nepumuk
Geschrieben am: 02.08.2020 14:51:33

Hallo Wolfgang,

kann ich nicht nachvollziehen. Lade mal eine Mustermappe hoch in welcher der Fehler auftritt.

Gruß
Nepumuk

Betrifft: AW: Leider auch Laufzeitfehler
von: wolfgang
Geschrieben am: 02.08.2020 15:04:07

Hallo Nepumuk,
bekomme gerade Besuch, melde mich nachher !

gruß wolfgang

Betrifft: Anbei Test-Muster
von: wolfgang
Geschrieben am: 02.08.2020 22:21:29

Guten Abend Nepumuk,
anbei, wie gewünscht Muster.

https://www.herber.de/bbs/user/139427.xlsm
mfg
wolfgang

Betrifft: Erledigt Danke --))
von: wolfgang
Geschrieben am: 02.08.2020 22:28:16

Hallo Nepumuk,
danke für die SUPER Unterstützung, läuft alles, ich hatte deinen Namen
"Auswahl" dummerweise übernommen !

Danke
Wolfgang