Zelle mit Arbeitsmappen-Name

Question

Ich arbeite mit einem Excel-Blatt dort in Spalte A irgendwo eine Zelle enthält Arbeitsmappen-Name (angenommen, mein Arbeitsbuch-Name ist abc dann "abc" ist in einer Zelle in Spalte A wahrscheinlich im Bereich "A8 OR A9 "). Ich möchte herausfinden, dass Zeile & löschen Sie alle darüber liegenden Zeile. I unter Verwendung von Code unten

Option Explicit 

Sub abc() 
    If Cells(8, 1).Value = ActiveWorkbook.Name Then 
     Range("A1:A7").Delete 
    Else 
     Range("A1:A8").Delete 
    End If  
End Sub 

Pls, wenn jemand kann mir helfen, das Problem zu lösen

Answer 1

Sie Arbeitsmappe Namen finden können und die Zeilen über der Zelle löschen enthält, dass Namen wie:

Sub abc() 
    Dim SearchCol As Long, SearchRow As Long 
    Dim StrName As String 
    Dim FoundCell As Range 

    'get the workbook name after removing the extension 
    StrName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) 

    'search for the workbook name 
    Set FoundCell = Cells.Find(What:=StrName, LookAt:=xlWhole) 
    If FoundCell Is Nothing Then 
     MsgBox "File name not found in Sheet" '---> if workbook name not found in the sheet 
    Else 
     Rows(1 & ":" & FoundCell.Row - 1).EntireRow.Delete '---> delete the rows if name found 
    End If 
End Sub 

BEARBEITEN: ________________________________________________________________________________

Option Explicit 
Sub SearchWrkbookName() 
    Dim oSht As Worksheet 
    Dim lastRow As Long, i As Long 

    lastRow = 22 

    Dim strSearch As String 
    strSearch = Left(ActiveWorkbook.Name, (InStrRev(ActiveWorkbook.Name, ".", -1, vbTextCompare) - 1)) '---> to remove extension from worksheet name 

    Dim aCell As Range 

    Set oSht = Sheets(1) 
    Set aCell = oSht.Range("1:" & lastRow).Find(What:=strSearch, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) 
    If Not aCell Is Nothing Then 
     Rows("1:10").Select 
    End If 
End Sub 

Editierter Code ist funktionierende Version Ihres Codes in Kommentaren geschrieben.