Wie fülle ich die gefunden Text in eine ListBox (siehe in der Prozedor Projekt_NoSuchen bei ?)
Private Sub cmdSuchen_Click()
lstFindNo.Clear
Suchbegriff = txtSuchbegriffNo.Value
If Suchbegriff = "" Then End
Projekt_NoSuchen
End Sub
Sub Projekt_NoSuchen()Application.ScreenUpdating = False
Set rngFind = Sheets("Meilensteine").Columns(1).Find(what:=Suchbegriff, _
lookat:=xlWhole, _
LookIn:=xlValues)
If rngFind Is Nothing Then
Unload usrSuchenNo
MsgBox Prompt:="Kein Projekt mit der Nummer" & vbCrLf + vbCrLf _
& "'" & Projektnummer & "'" _
& vbCrLf & vbCrLf & "gefunden", _
Title:=" Suchergebnis"
Exit Sub
End If
Projektnummer = Sheets("Meilensteine").Cells(rngFind.Row, 1).Value
Projektname = Sheets("Meilensteine").Cells(rngFind.Row, 2).Value
Projektleiter = Sheets("Meilensteine").Cells(rngFind.Row, 5).Value
'? vermutlich direkt ohne Variablen
Application.ScreenUpdating = True
End Sub Danke und Gruss
Gregor