Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro: nach wert suchen zeile löschen

Forumthread: Makro: nach wert suchen zeile löschen

Makro: nach wert suchen zeile löschen
08.11.2006 11:51:28
achim
Hallo excel freunde
wer kann aushelfen?
in meiner textbox1 schreibe ich eine zahl z.B. 2000 nun soll das, dass makro in dem sheet("Grunddaten") unter A:A schaut und wenn der wert aus textBox1 gefunden die zeile gelöscht wird.
danke
achim h.
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro: nach wert suchen zeile löschen
08.11.2006 13:05:07
Bertram
Hallo Achim,
z.B. so:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long
With Sheets("Grunddaten")
For i = .Cells(65536, 1).End(xlUp).Row To 1 Step -1
If .Cells(i, 1).Text = Me.TextBox1.Text Then .Cells(i, 1).EntireRow.Delete
Next i
End With
End Sub

Gruß
Bertram
Anzeige
AW: Makro: nach wert suchen zeile löschen
08.11.2006 13:14:41
achim
hallo bertram
danke für die rückmeldung.
eine bitte noch:-)
geht das auch mit

Private Sub CommandButton3_Click()
End Sub

danke achim h.
AW: Makro: nach wert suchen zeile löschen
08.11.2006 13:20:05
Bertram
Hi Achim,
sicher geht das. Das TextBox1_Exit-Ereignis war nur ein Beispiel. Füge einfach den Code in dein Grundgerüst ein. Dann hast du dein Click-Ereignis.
Gruß
Bertam
Anzeige
AW: Makro: nach wert suchen zeile löschen
08.11.2006 13:08:23
Harald
Hallo Achim,
suchst du sowas ?

Sub test()
Dim Lrow As Long, i As Long
Lrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = Lrow To 1 Step -1
If Cells(i, 1) = CStr(TextBox1) Then Rows(i).Delete
Next i
End Sub

Gruss Harald
AW: Makro: nach wert suchen zeile löschen
08.11.2006 13:17:36
fcs
Hallo Achim,
hier noch eine Variante für Textbox im Tabellenblatt mit der Find-Methode
Ist bei langen Listen deutlich Schneller als die Abarbeitung einer For-Next-Schleife
Nach Eingabe in der Textbox muß man eine beliebiges anderes Element oder Zelle in der Tabelle anklicken.

Private Sub TextBox1_LostFocus()
Dim wks As Worksheet, Wert, Zelle As Range, Nach As Range
Set wks = Worksheets("Grunddaten")
Wert = Me.TextBox1.Value
With wks.Range("A:A")
Set Zelle = .Find(what:=Wert, LookIn:=xlValues, lookat:=xlWhole)
Do Until Zelle Is Nothing
Set Nach = Zelle.Offset(1, 0)
Zelle.EntireRow.Delete
Set Zelle = .FindNext(After:=Nach)
Loop
End With
End Sub

Gruß
Franz
Anzeige
AW: an beide helfer danke und die Lösung ist ok
08.11.2006 13:20:55
achim
Danke bertram und haralt e.
gruss
achim h.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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