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

Commandbutton*Suchen*

    Betrifft: Commandbutton*Suchen* von: petra
    Geschrieben am: 06.10.2003 09:56:08

    Hallo Forum..
    Ich habe wieder ein Problem…und zwar habe ich eine Userform, die mir Daten aus eine Excel-Tabelle sucht und und in einzelne textfelder(txtmenge, txtpumpverlust)einfügt, wenn dort ein X in Spalte „i“ steht.
    Jetzt soll mir, wenn dort kein X steht, eine 0 in die textfelder von der userform einsetzen…
    Wie geht das?
    Danke im Voraus
    Petra
    Hier ist ein Teil vom Quellcode…

    CommandButton

    Private Sub cmdDaten_Click()
    Dim L, A, B, X, Cell As Integer
    On Error Resume Next
    Cell = Cells.Find(What:="X", After:=ActiveCell, MatchCase:=False).Offset(1, -3).Activate
        If Cell = True Then
            Application.CutCopyMode = False
            Selection.Copy
            txtMenge1 = ActiveCell
        If Cell = True Then
            ActiveCell.Offset(, 2).Activate
            Selection.Copy
            txtPumpverlust1 = ActiveCell
        End If
        End If
    End Sub