Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige