bareuchte mal wieder eure Tips bei einem VBA-Problem.
Wie kann ich die Zeilen die ein automatischer Filter in Spalte A gefunden hat mit
Rows("59:59").Delete Shift:=xlUp
loeschen?
Wie muss man die Rows("?") definieren? Es sollen alle ueber den Filter gefundenen Zeilen, jedoch nicht die Ueberschriftenzeile geloescht werden.
Kann mir da jemand einen Tip geben? Hab bereits fleissig gesucht aber noch nix gefunden. So sieht der Code bisher aus:
Sub Cancella_Nr_Ordine()
Dim Numero_Ordine As Variant
Dim Cerca As Variant
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Numero_Ordine = Application.InputBox(Chr(13) & Chr(13) & "Digita numero dell'ordine : ", " _
Cancella Numero Ordine")
'Pruefung Eingabe
If Numero_Ordine = "" Then
MsgBox "Il numero ordine non è stato digitato, azione viene interrotta!"
End If
If Numero_Ordine = False Then
MsgBox "Azione é annullata!"
End If
If Numero_Ordine = "" Or Numero_Ordine = False Then Exit Sub
Set Cerca = Range("A:A").Find(What:=Numero_Ordine, LookIn:=xlValues, Lookat:=xlWhole) 'prueft _
gesamten Zellinhalt auf Uebereinstimmung
If Cerca Is Nothing Then
MsgBox "Il numero digitato non c'è nel database. Azione viene interrotta"
End If
If Cerca Is Nothing Then Exit Sub
Columns("A:A").AutoFilter Field:=1, Criteria1:=Numero_Ordine
' Rows("?").Delete Shift:=xlUp ' - gefundene Zeilen werden geloescht
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub
Vielen Dank fuer euer INteresse und Hilfe,
Markus