Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Zelleninhalte suchen

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"