Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
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
268to272
268to272
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen suchen

Forumthread: Zeilen suchen

Zeilen suchen
14.06.2003 17:46:11
Julius
Hallo,
ich möchte in meiner Tabelle für die Plattensammlung Einträge löschen.
In einer Maske kann ich die Daten übersichtlich anzeigen.
In der erste Spalte in der Tabelle, wird eine Druchlaufende Nr. beim Speichern eines Datensatzes erzeugt.
Die Nummer kann ich natürlich auch mit anzeigen lassen.
Für das Löschen möchte ich in einem Feld diese Nummer eingeben und die Zeile des Datensatzes soll dann gelöscht werden.
Ich habe keinen Befehl gefunden mit dem man in einer Spalte nach einem Wert suchen kann, der dann die Zeilennummer anzeigt.
Hätte ich die Zeilennummer könnte ich die Zeile mit einem Makro löschen.
Vielen Dank für Euere Bemühungen
Viele Grüsse
Julius

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Zeilen suchen
14.06.2003 18:15:38
PeterW
Hallo Julius,

die Zeile mit der passenden Nummer könntest du beispielsweise über eine For - Next Schleife ermitteln. Ein Ansatz ohne Fehlerprüfung:

Gruß
Peter

Re: Zeilen suchen
14.06.2003 18:57:07
Klaus-Dieter
Hallo Julius,

hier ein Lösungsansatz per UserForm:

Dieser Quelltext ist mit der Schaltfläche verbunden:


Private Sub CommandButton1_Click()

Dim zelle, Adresse As Integer

Dim Wert As Integer

Dim r As Integer, zeil As Integer

Wert = UserForm1.TextBox1.Value

With Worksheets("Tabelle1").Range("A:A")

    Set zelle = .Find(Wert)

        If Not zelle Is Nothing Then

            Adresse = zelle.Row

            Rows(Adresse).Delete Shift:=xlUp

         End If

End With

TextBox1 = ""

End Sub

Code eingefügt mit: Excel Code Jeanie

(Getestet mit Excel 2000)

Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite


Anzeige
;

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