Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Userform
Screenshot zu Userform	Userform-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema TextBox
Screenshot zu TextBox	TextBox-Seite mit Beispielarbeitsmappe aufrufen

Zelleninhalte suchen

• Zelleninhalte suchen von Master Schlumpf vom 22.09.2014 20:32:26
• AW: Zelleninhalte suchen - von Crazy Tom am 22.09.2014 21:22:32

Betrifft: Zelleninhalte suchen von: Master Schlumpf
Geschrieben am: 22.09.2014 20:32:26

Hallo zusammen,

ich möchte mittels Excel VBA ein Programm erstellen, welches die in einer Userform geschreibenen Daten in bestimmte Zellen einer Excel Arbeitsmappe schreibt. Wie zum Beispiel: Datum, Mitarbeiter, Uhrzeit, ...
Das ist erst einmal kein Problem.

Jetzt möchte ich, dass man in einem weiteren Userform nach bestimmten Werten suchen kann und dann der ganze Datensatz angezeigt wird. Also wenn man z.B. nach einem Datum sucht, soll der Inhalt der ganzen Reihe mit angezeigt werden. Ist dies möglich? Wenn ja wie?

Vielen Dank für Eure Hilfe.
Beste Grüße
Alex

Betrifft: AW: Zelleninhalte suchen von: Crazy Tom
Geschrieben am: 22.09.2014 21:22:32

Hallo

hier wird in Tabelle1 in Spalte A nach dem Datum aus Textbox1 gesucht
und die TextBoxen 2 bis 6 werden aus den Spalten B bis F gefüllt

Option Explicit

Private Sub CommandButton1_Click()
    Dim suchergebnis As Range
    Dim lngLetzte As Long
    Dim intSpalte As Integer
    With Sheets("Tabelle1")
        lngLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
        Set suchergebnis = .Range("A1:A" & lngLetzte).Find(CDate(TextBox1), LookIn:=xlValues,  _
lookat:=xlWhole)
            If Not suchergebnis Is Nothing Then
                For intSpalte = 2 To 6
                    Controls("Textbox" & intSpalte) = suchergebnis.Offset(0, intSpalte - 1)
                Next
            End If
    End With
End Sub

MfG Tom

Beiträge aus den Excel-Beispielen zum Thema "Zelleninhalte suchen"