Suchbutton in Userform
24.06.2015 14:22:42
Meike
ich bin mal wieder auf eure Unterstützung angewiesen. :)
Ich möchte beim Klick auf das Tabellenblatt "Kurzprofil_Untern.", dass sich eine Userform öffnet. Der Code hinter meinem Tabellenblatt:
Private Sub Worksheet_Activate()
Userform1.Caption = "Kurzprofil"
Userform1.Show
End Sub
In der ausgeblendeten Tabelle RKZ_WKZ habe ich ab Zelle C1 alle möglichen Branchen hinterlegt. Das Tabellenblatt RKZ_WKZ soll zu jederzeit ausgeblendet bleiben.
Nun möchte ich, dass über einen Suchbutton die Tabelle RKZ_WKZ durchsucht wird und zutreffende Brnachen als Auswahl angezeigt werden. (Siehe Bild).
Suchbutton = btnSuch
Suchtext-Feld = txtSuch
Dropdownauswahl = cmbWKZ
Ich habe hier schon versucht an ähnlichen Codes herum zu basteln - leider vergeblich.
Mein Problem bei dem unten eingeblendeten Code ist, dass ich nicht im Tabellenblatt "Kurzprofil_Untern." bleibe sondern immer auf das Tabellenblatt springe das nach der ausgeblendeten Tabelle RZW_WKZ liegt.
Wäre super, wenn mir einer von euch weiterhelfen könnte.
Vielen Dank im Voraus und ganz liebe Grüße
Meike
Option Explicit
Sub Test()
Dim Sp As String
Application.ScreenUpdating = False
Sheets("RKZ_WKZ").Visible = True
Sheets("RKZ_WKZ").Select
ActiveSheet.Unprotect "pw"
ActiveSheet.Columns("A:A").Select
Selection.EntireColumn.Hidden = False
Dim i As Integer
Dim x As Integer
x = 0
If Len(UCase(Range("C" & i).Value)) > 0 Then
If InStr(1, UCase(Range(Sp & i).Value), UCase(txtSuch)) Then
cmbWKZ.AddItem Range("c" & i).Value, x
cmbWKZ.List(x, 1) = Range("C" & i).Value
x = x + 1
End If
Else
GoTo ENDE
End If
Next
ENDE:
ActiveSheet.Columns("A:A").Select
Selection.EntireColumn.Hidden = True
ActiveSheet.Protect Password:="pw", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
If cmbWKZ.ListCount = 1 Then
cmbWKZ.Enabled = True
cmbWKZ.ListIndex = 0
ElseIf cmbWKZ.ListCount > 1 Then
cmbWKZ.Enabled = True
cmbWKZ.DropDown
Else
End If
Sheets("RKZ_WKZ").Visible = False
Application.ScreenUpdating = True
End Sub
Private Sub cmbWKZ_Change()
If cmbWKZ = -1 Then
cmbWKZ.ListIndex = 0
End If
End Sub
Private Sub btnsuch_Click()
Test
End Sub
Private Sub txtSuch_Enter()
txtSuch.SelStart = 0
txtSuch.SelLength = Len(txtSuch.Value)
End Sub
Private Sub cmdOkUnt_Click()
Select Case Me.Caption
Case "Betriebsart Auswahl SVFP"
Tab_A08_Kurzprofil.Range("L8").Value = cmbWKZ.Text
Tab_A08_Kurzprofil.Range("K15").Value = Txt_L1.Text
Case Else
End Select
Unload Me
End Sub
