AW: Makro Löschen
08.10.2014 15:48:20
Adis
Hallo
anbei ein kleines Makro das die gestellte Aufgabe lösen könnte.
Bitte zuerst in einer Kopie Datei ausprobieren, zur Daten Sicherheit.
Hinweis:
Einige Dinge sind noch offen, weil sie in der Anfrage nicht beschrieben sind.
Meim Makro löscht den letzten Kundeneintrag, über eine InputBox Kunden Abfrage.
Die Zeilen werden beim löschen nach oben verschoben. Das bitte ich zu beachten!
Was ist mit den Werten in Spalte A? Die Zahlen 1-4. Sie werden -nicht- verschoben!
Gibt es andere Daten in weiteren Spalten die evtl. mit gelöscht werden müssen?
Das war aus der Aufgabenstellung und dem Bild nicht ersichtlich.
Sub LöschGK11SB_Neu()
'GK11 Transport löschen Makro
Dim Adr1 As String, AcAdr As String
Dim Kunde As String, ok As Variant
'Tabelle2 aktivieren
Sheets("Tabelle2").Select
On Error GoTo Fehler
'Kunden Name über InputBox abfragen
Kunde = InputBox("Bitte Kunden Name eingeben", "Kunden Löschen ...")
If Kunde = Empty Then Exit Sub
'Kunde Name ab C1 suchen
Range("C1").Select
Cells.Find(What:=Kunde, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Adr1 = ActiveCell.Address
Do 'weitersuchen, Last ActiveCell.Adress merken
AcAdr = ActiveCell.Address
Cells.FindNext(After:=ActiveCell).Activate
Loop Until ActiveCell.Address = Adr1
'gefunden Kundenbereich markieren mit ok Abfrage
Range(AcAdr).Resize(1, 2).Select
ok = MsgBox("Löschen korrekt", vbOKCancel)
If ok = vbOK Then Selection.Delete Shift:=xlUp
'Rücksprung in Blatt Eintragung
Sheets("Eintragung").Select
Range("A4").Select
Exit Sub
Fehler: MsgBox "Kunde nicht gefunden - bitte neu eingeben"
End Sub
Gruss Adis