title image


Smiley Re: Einzelne Zeilen selektieren, ausschneiden und in neuer Exceldatei speic
Hi Stephan,



ist vielleicht etwas unspezifisch aber vielleicht hilft es Dir ja, ansonsten, bitte nochmal etwas genauer das Umfeld beschreiben.



Gruß,

Frank



Sub Test()



    Dim i As Integer

    Dim SUCHSTRING As String

    

    Dim ActiveWS, TargetWS As Worksheet

    

    Set ActiveWS = ActiveSheet

    Set TargetWS = ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)

    SUCHSTRING = "Such mich"

    

    For i = 1 To 10

        If InStr(1, ActiveWS.Cells(i, 1).Text, SUCHSTRING) Then

            ActiveWS.Range(i & ":" & i).Copy TargetWS.Range("A1")

        End If

    

    Next i



End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: