Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
600to604
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
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Zahlenfolge in allen sheets suchen
17.04.2005 17:14:05
Thomas
Hallo,
ich hänge hier an einer stelle und brauche mal hilfe. Irgendwie komme ich nicht drauf....
Ich möchte einfach nur eine Zeichenfolge (eine Azftrags-ID) Sheetübergreifend suchen.
D.h. beim eingeben des "Auftrages" wird der Auftrag in 3-4 verschiedenen sheets gespeichert. Wenn ich danach auf "löschen" drücke, soll der Auftrag natürlich auch an allen stellen wieder gelöscht werden.
Die sheets worin der auftrag gespeichert wird, können dabei unterschiedlich sein.
Darum einfach in allen sheets nach der eindeutigen Auftrags-Id suchen...
Danke vorab, Thomas

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlenfolge in allen sheets suchen
17.04.2005 17:44:23
Beni
Hallo Thomas,
da ich nicht weiss, in welcher Spalte die ID steht, gehe von SpallteA aus.
Gruss Beni

Sub Thomas()
Dim Mldg, Titel, Wert, Zelle
Mldg = "Auftras-ID eingeben"
Titel = "Datesatz löschen"
Wert = InputBox(Mldg, Titel)
For sh = 1 To Sheets.Count
With Worksheets(sh).Columns(1)
Set Zelle = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not Zelle Is Nothing Then
.Rows(Zelle(1, 1).Row).EntireRow.Delete
End If
End With
Next sh
End Sub

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige