Zelle gefunden dann zeile löschen
08.04.2014 14:45:03
Sabrina
Ich habe ein Problem .. ich suche in Spalte A nach einen Wert.
Wenn der gefunden wird, soll die Zeile gelöscht werden.
Bis zu der Zeile habe ich es .. aber das Löschen bekomme ich nicht hin.
Was muss ich noch hinzufügen dass die Zeile gelöscht wird?
Gruß
Sabrina
Sub Auftrag_löschen()
Dim wksUrsprung As Worksheet, wksZiel As Worksheet
Dim i, dZielZeile As Double, dZielSpalte As Double, strAuftrag As String, Antwort As String
Set wksUrsprung = ThisWorkbook.Worksheets("Eingabe")
Set wksZiel = Workbooks(pcDateiDaten).Worksheets("Daten")
strAuftrag = wksUrsprung.Range("G5").Value
dZielSpalte = 1
'schauen ob es den Auftrag schon gibt.
With wksZiel.Range("A1:A" & wksZiel.Cells(Rows.Count, 1).End(xlUp).Row)
Set c = .Find(strAuftrag, LookIn:=xlValues)
If Not c Is Nothing Then
Antwort = MsgBox("Soll der Lieferschein endgültig werden?", vbYesNo, "Lieferschein _
löschen")
If Antwort = vbNo Then
Exit Sub
Else
End If
dZielZeile = c.Row
End If
End With
End Sub