leere Zeile einfügen
29.10.2002 17:25:41
Karin
Ich habe ein kleines Problem.
Nachdem ich eine Suche mache, möchte ich gerne, dass dort eine leere Zeile eingefügt wird.
Weiss jemand eine Lösung?
In ein Modul füge ich folgenden Code ein:
Public gstrRangeListe As String 'variable
----------------------------------------------------
Public Sub Remplirliste(ByRef frm As UserForm, sh As String, rge As String, cbo As String)
Worksheets(sh).Activate
frm.Controls(cbo).RowSource = Worksheets(sh).Range(rge).Address
End Sub
'Beim Click auf die Combobox:
Selection.Find(What:=Me.ComboBox1.Value, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Und jetzt möchte ich die leere Zeile einfügen.
Vielen Dank
Gruss Karin