Hallo !
Ich möchte fragen, warum dieser Code nicht mit einem CommandButton geht, mit einem normalen Modul und Button aber schon.
Er bleibt ständig beim "Rows("1:1").Select" hängen, wenn ich den Code unter einem CommandButton gebe.
Weiß jemand wieso - ich dachte vorher das es da einen anderen Code für Zeile A zum löschen gibt, doch ich habe keinen gefunden.
Danke
chris58


'Private Sub CommandButton14_Click()

Sub Suchen()
Dim rng As Range
Dim sFirst As String
Dim sFind As String
Dim wks As Worksheet, neu As Worksheet
Dim lRow As Long
sFind = InputBox("Geben sie das gesuchte Wort oder" & vbLf & _
"den gesuchten Wortteil ein:", "Suchen", "Donnerstag")
If sFind = "" Then Exit Sub
Set neu = Worksheets.Add(before:=Sheets(1))
neu.Name = "Suchen"
For Each wks In ThisWorkbook.Sheets
If wks.Name > neu.Name Then
Set rng = wks.Cells.Find(What:=sFind, LookIn:=xlValues, LookAt:=xlPart)
If Not rng Is Nothing Then
sFirst = rng.Address
Do
lRow = lRow + 1
wks.Rows(rng.Row).Copy neu.Cells(lRow, 1)
Set rng = wks.Cells.FindNext(rng)
Loop While rng.Address > sFirst
End If
End If
Set rng = Nothing
Next


Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1").Select


End Sub