Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1220to1224
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
Inhaltsverzeichnis

Suche über mehrere Tabellenblätter erstrecken

Suche über mehrere Tabellenblätter erstrecken
Achim
Hallo Gemeinde des Wissens !
Folgendes Problem hat sich bei mir aufgetan.
Ein Suchbegriff, welcher über eine Textbox1 gestellt wird soll in mehreren Tabellenblättern in Splate A gesucht werden (4 Blätter).
Wenn die Zahl mit der der Textbox übereinstimmt, soll in der geeichen Zeile in Spalte 4 der heutige Zeitstempel gesetzt werden.
Wer kann hier weiter ?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Suche über mehrere Tabellenblätter erstrecken
30.06.2011 15:23:50
ptonka
Hi Achim,
folgendes Makro hinter einen Button auf der Userform:
Private Sub CommandButton1_Click()
Dim Blatt As String
Dim Wert, Such As Long
Such = UserForm1.TextBox1.Value
For i = 1 To 4
Blatt = "Tabelle" & i
Sheets(Blatt).Select
LR = [A65536].End(xlUp).Row
For j = 1 To LR
Wert = Cells(j, 1).Value
Select Case Wert
Case Is = Such
Cells(j, 4).Value = Date & " " & Time()
End Select
Next j
Next i
UserForm1.Hide
End Sub

AW: Suche über mehrere Tabellenblätter erstrecken
30.06.2011 15:50:26
Achim
..mh, das funktioniert noch nicht !
bekomme immer Laufzeitfehler 9 (Index ausserhalb des gültigen Bereichs)
Habe den auf meine Tabelle schon angepasst !
https://www.herber.de/bbs/user/75523.jpg
Anzeige
AW: Suche über mehrere Tabellenblätter erstrecken
30.06.2011 16:48:02
Rudi
Hallo,
Private Sub CommandButton1_Click()
Dim wks As Worksheet, vntSuch, vntZeile
If IsNumeric(TextBox1) Then
vntSuch = TextBox1 * 1
Else
vntSuch = TextBox1
End If
For Each wks In Worksheets
vntZeile = Application.Match(vntSuch, wks.Columns(1), 0)
If Not IsError(vntZeile) Then wks.Cells(vntZeile, 4) = Now
Next
End Sub

Gruß
Rudi

336 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige