15.02.2016, 21:46
Hallo,
ich habe zwei Userformen, eine mit ListBox und eine mit TextBox und kann entweder die eine oder die andere verwenden.
Ich will das jetzt in eine einzige Userform zusammenführen, damit der User die Wahl hat, etwas aus der ListBox auszuwählen oder die Nummer in die TextBox einzugeben. Je nachdem soll dann die Auswahl weiterverarbeitet werden, wie wird das gelöst? Wie kann ich da eine Entscheidung einbauen, je nachdem, ob etwas ausgewählt oder in die Textbox eingegeben wird.
Makro für Userform mit nur ListBox:
Makro für Userform mit nur TextBox:
Wie können die miteinander kombiniert werden?
ich habe zwei Userformen, eine mit ListBox und eine mit TextBox und kann entweder die eine oder die andere verwenden.
Ich will das jetzt in eine einzige Userform zusammenführen, damit der User die Wahl hat, etwas aus der ListBox auszuwählen oder die Nummer in die TextBox einzugeben. Je nachdem soll dann die Auswahl weiterverarbeitet werden, wie wird das gelöst? Wie kann ich da eine Entscheidung einbauen, je nachdem, ob etwas ausgewählt oder in die Textbox eingegeben wird.
Makro für Userform mit nur ListBox:
Code:
Private Sub okButton1_Click() ' Übernehmen
boAbbruch = False
Application.ScreenUpdating = False
'Datenzeile aus Formular ermitteln
lngAdressZeile = ListBox1.ListIndex + 2
...
Makro für Userform mit nur TextBox:
Code:
Private Sub okButton_Click()
Call Suchen_ReNr
...
Sub Suchen_ReNr()
Dim i As Long, j As Long
Dim loLetzte As Long
Dim strText As String
Dim arrTab
Dim rngData As Range
strText = "*" & strSuchbegriff & "*"
Application.ScreenUpdating = False
With Sheets("Datenbankliste")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row 'Letzte Zeile der Spalte A (1)
Set rngData = .Range("H2:H" & loLetzte).Find(strText, LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If Not rngData Is Nothing Then
lngAdressZeile = rngData.Row
'MsgBox lngAdressZeile
End If
End With
If rngData Is Nothing Then
MsgBox "Rechnungsnummer wurde nicht gefunden!"
Else
Set rngData = Nothing
End If
End Sub
Wie können die miteinander kombiniert werden?