ich muss nochmal eure Hilfe in Anspruch nehmen bei einem Makro.
Mittels des Makros möchte ich eine ganze Zeile in einer Tabelle löschen die vorher gesucht werden muss. Der Code läuft ohne Probleme durch, erfüllt nur leider nicht das was er soll - kann mir einer erläutern was ich falsch mache?
Hier ist der code:
Option Explicit
Public numRows
Public numRowsA
Public DatenZeile
Public SuchKred
Sub Löschen()
Sheets("Data_History").Activate
' Suchkriterium festlegen
SuchKred = Sheets("Data_History").TextBox1.Value
'SuchKred1 = Sheets("Data_History").TextBox2.Value
'SuchKred2 = Sheets("Data_History").TextBox7.Value
'SuchKred2 = Trim(Cells(1, 3).Value)
' Im Datenblatt suchen
Sheets("Parts").Activate
ActiveSheet.Unprotect
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
numRows = Selection.Rows.Count
numRows = numRows + 1
DatenZeile = 2
Do While DatenZeile
Danke und beste Grüße,
Manuel