Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Alle Zeilen mit bestimmtem Inhalt löschen

Alle Zeilen mit bestimmtem Inhalt löschen
13.03.2009 18:53:36
Lutz
Hallo Excel-Profis,
ich habe eine Tabelle die "Liste" heisst und in der Buchungen per Makro eingefügt werden.
Jetzt möchte ich per Makro einen Vorgang der aus mehreren Zeilen bestehen kann löschen.
D.h. ich möchte per Box fragen welcher Beleg (steht in Spalte "E") gelöscht werden soll.
Nach Eingabe der Belegnummer soll diese dann in den Spalten A:O gelöscht werden in dem der Bereich darunter nach oben geschoben wird (muß so sein, weil in Spalte "P" eine Formel steh die immer bis zur letzten Zeile gehen muß).
Ist das möglich, und wenn ja wie?
Vielen Dank für Eure Hilfe.
Gruß Lutz
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Zeilen mit bestimmtem Inhalt löschen
13.03.2009 22:17:04
Ramses
Hallo
Probier mal
Option Explicit

Sub Find_and_Delete()
    Dim findStr As String
    Dim tarCol As Long, endCol As Long
    Dim tarCell As Range
    'Suchspalte
    tarCol = 5
    'Spalte anpassen !!
    '1 = A, 2 = B, 3 = C usw.
    endCol = 15
    findStr = InputBox("Welcher Beleg soll gelöscht werden?", "Löschen")
    If findStr = "" Or StrPtr(findStr) = 0 Then
        MsgBox "Abbruch"
        Exit Sub
    End If
    On Error Resume Next
    Set tarCell = Columns(tarCol).Find(findStr)
    If Not tarCell Is Nothing Then
        Range(Cells(tarCell.Row, 1), Cells(tarCell.Row, endCol)).Delete xlUp
    End If
End Sub

Gruss Rainer
Anzeige
AW: Alle Zeilen mit bestimmtem Inhalt löschen
14.03.2009 18:22:20
Lutz
Hallo Rainer,
vielen Dank für Deinen Tipp, habe da noch etwas dran rumgeschraubt und dann ging es.
Vielen Dank
Gruß Lutz
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige