Kann mir jemand der unterstehende Code anpassen, so dass bei einem nicht gefunden Wert/Name eine msgbox erscheint.
' Kunde suchen / Nicht benötigte Namen entfernen
Private Sub TextBox1_Change()
ListBox1.Clear
UserForm_Initialize
End Sub
' Startroutine, wird ausgeführt bevor die Eingabemaske angezeigt wird
Private Sub UserForm_Initialize()
Dim lngZeile As Long
Dim lngZeileMax As Long
Dim lngz As Long
If ActiveSheet.Name = "Etiketten" Then
UserForm_Kunde_suchen.CommandButton3.Visible = True
UserForm_Kunde_suchen.CommandButton2.Visible = True
Else
UserForm_Kunde_suchen.CommandButton3.Visible = False
UserForm_Kunde_suchen.CommandButton2.Visible = False
End If
' Wie viele Spalten, welche Schriftgrösse
With Me.ListBox1
.ColumnCount = 7 'Spalten
.ColumnWidths = "170;120;110;170;90;50;10" 'Länge der Spalte
.Font.Size = 12 'Schrift Grösse
End With
Label5.Caption = "Ausgewählter Tag: " & Format$(ActiveSheet.Name, "dddd, dd.mm.yyyy")
' Label5.Caption = "Aktives Tabellenblatt: " & ActiveSheet.Name
With Tabelle7
lngZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row
For lngZeile = 2 To lngZeileMax
If LCase(Left(.Range("B" & lngZeile).Value, Len(TextBox1.Text))) = LCase(TextBox1.Text) _
Then
ListBox1.AddItem .Range("B" & lngZeile).Value
ListBox1.Column(1, lngz) = .Range("A" & lngZeile).Value
ListBox1.Column(2, lngz) = .Range("C" & lngZeile).Value
ListBox1.Column(3, lngz) = .Range("D" & lngZeile).Value
ListBox1.Column(4, lngz) = .Range("E" & lngZeile).Value
ListBox1.Column(5, lngz) = .Range("F" & lngZeile).Value
ListBox1.Column(6, lngz) = .Range("G" & lngZeile).Value
lngz = lngz + 1
End If
Next lngZeile
End With
End Sub
Besten Dank für Eure Hilfe!
Gruss Daniel