Microsoft Excel

Herbers Excel/VBA-Archiv

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

Dialogfeld

    Betrifft: Dialogfeld von: Thorsten
    Geschrieben am: 26.08.2003 11:03:27

    hallo, ich habe nun folgenden code innerhalb eines VBA moduls, welches mir hilft datensätze aus einer excel datei auszulesen.
    ein enstprechendes dialogfeld existiert natürlich.
    nun möchte ich jedoch auch neue daten in die tabelle schreiben, über das gleiche dialogfeld mit hilfe eines übernahme button:
    hat jemand ne rasche idee ??
    gruss
    ThF

    Private Sub suchen_Click()
     'Application.Visible = True
     Dim c As Range
      Set c = Range("A:A").Find(Suchbegriff)
      
      If Not c Is Nothing Then   'Suchbegriff gefunden
        c.Activate
        Me.comp_part = c.Offset(0, 1)
        Me.comp_current = c.Offset(0, 2)
        Me.comp_voltage = c.Offset(0, 4)
        Me.comp_powerloss = c.Offset(0, 8)
        Me.comp_melting = c.Offset(0, 5)
        Me.comp_total = c.Offset(0, 6)
        Me.comp_bem = c.Offset(0, 9)
        ' SIBA Daten
        Me.s_part = c.Offset(0, 10)
        Me.s_current = c.Offset(0, 11)
        Me.s_voltage = c.Offset(0, 12)
        Me.s_powerloss = c.Offset(0, 13)
        Me.s_melting = c.Offset(0, 14)
        Me.s_total = c.Offset(0, 15)
      
      Else
        Me.comp_part = "Fuse not available"
        Me.comp_current = "please try again"
        Me.comp_voltage = ""
        Me.comp_powerloss = ""
        Me.comp_melting = ""
        Me.comp_total = ""
        Me.comp_bem = ""
        Me.s_part = ""
        Me.s_current = ""
        Me.s_voltage = ""
        Me.s_powerloss = ""
        Me.s_melting = ""
        Me.s_total = ""
        
        
        
      End If
    End Sub
    

      


    Betrifft: AW: Dialogfeld von: Nike
    Geschrieben am: 26.08.2003 11:07:45

    Hi,

    wenn du deine Datei mit postest,
    könnte man sie einfacher erweitern...

    Bye

    Nike


      


    Betrifft: AW: Dialogfeld von: Thorsten
    Geschrieben am: 26.08.2003 11:10:22

    hier ist die datei


      


    Betrifft: AW: Wo? ;-) von: Nike
    Geschrieben am: 26.08.2003 11:12:53

    Hi,
    häng mal den Link mit drann ;-)

    Bye

    Nike


      


    Betrifft: AW: Wo? ;-) von: Thorsten
    Geschrieben am: 26.08.2003 11:19:27

    hier


      


    Betrifft: AW: Wo? ;-) von: Nike
    Geschrieben am: 26.08.2003 11:24:55

    Hi,
    du mußt den Link der Datei
    (https://www.herber.de/irgendwas.xls),
    die du hochgeladen hast mit einfügen,
    sonst sieht man nix...

    Bye

    Nike


      


    Betrifft: AW: Wo? ;-) von: Thorsten
    Geschrieben am: 26.08.2003 11:31:36

    nun sollte es klappen
    https://www.herber.de/bbs/user/727.xls


      


    Betrifft: AW: Wo? ;-) von: Thorsten
    Geschrieben am: 26.08.2003 11:57:40

    nicht gefunden ???


      


    Betrifft: AW: Dialogfeld von: Nike
    Geschrieben am: 26.08.2003 12:34:24

    Hi,
    wenn du in VBA keine Kenntnisse hast, wirds schwer...

    Sieht mir stark aus, als ob du eine komerzielle Lösung
    eines anderen Entwicklers anpassen willst.
    Ich unterstütze nicht das Knacken von Lösungen anderer Entwickler
    mit anschließender Änderung.
    Daher werde ich hierzu nichts mehr sagen.

    Bye

    Nike


      


    Betrifft: AW: Dialogfeld von: Thorsten
    Geschrieben am: 26.08.2003 12:42:27

    ist ja nett, ist übrigens kein knacken, sondern ein guter tipp aus diesem forum !!


      


    Betrifft: AW: Dialogfeld von: Nike
    Geschrieben am: 26.08.2003 13:15:20

    Hi,
    dann war das ein Misverständnis, sorry.
    ich würde dann nen neuen Button einfügen und z.B. so einen Code verwenden:

    Private Sub CommandButton2_Click()
    With Worksheets(1)
        lngLRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Cells(lngLRow, 1) = Suchbegriff
        .Cells(lngLRow, 2) = Me.comp_part
        .Cells(lngLRow, 3) = Me.comp_current
        .Cells(lngLRow, 5) = Me.comp_voltage
        .Cells(lngLRow, 8) = Me.comp_powerloss
        .Cells(lngLRow, 6) = Me.comp_melting
        .Cells(lngLRow, 7) = Me.comp_total
        .Cells(lngLRow, 4) = Me.comp_bem
            ' SIBA Daten
        .Cells(lngLRow, 11) = Me.s_part
        .Cells(lngLRow, 12) = Me.s_current
        .Cells(lngLRow, 13) = Me.s_voltage
        .Cells(lngLRow, 14) = Me.s_powerloss
        .Cells(lngLRow, 15) = Me.s_melting
        .Cells(lngLRow, 16) = Me.s_total
        .Cells(lngLRow, 17) = Me.s_bem
    End With
    End Sub
    


    Bye

    Nike