Startseite
  Über...
  Archiv
  Gästebuch
  Kontakt
 

  Abonnieren
 



  Letztes Feedback



http://myblog.de/netline

Gratis bloggen bei
myblog.de





usfIndex


Private Sub cboWerkstoffName_Change()

    Me.cboWerkstoffNr = Tabelle1.Cells(Me.cboWerkstoffName.ListIndex + 2, 1)
   
End Sub

Private Sub cboWerkstoffNr_Change()

    Me.cboWerkstoffName = Tabelle1.Cells(Me.cboWerkstoffNr.ListIndex + 2, 2)
   
End Sub

Private Sub cmdBerechnen_Click()

Dim lngZeile As Single
    lngZeile = 2
   
        If Me.cboWerkstoffNr = "" And Me.cboWerkstoffName = "" Then                      'Sobald die cboWerkstoffNr und die cboWerkstoffName leer sind...
            MsgBox ("Bitte geben Sie eine Werkstoffnummer oder den Werkstoff Namen an!" '...wird eine Messagebox ausgegeben.
        ElseIf Me.txtVolumen = "" Then                                                     'Sobald das txtVolumen Leer ist,...
            MsgBox ("Bitte geben Sie das Volumen an!"                                   '...wird eine Messagebox ausgegeben.
        ElseIf Me.txtVolumen = "" Then                                                   'Sobald das txtVolumen leer ist,...
            MsgBox ("Bitte geben Sie das Volumen an !"                                  '...wird eine Messagebox ausgegeben.
        Else
            Me.txtGewicht = Val(Replace(Replace(Me.txtVolumen, ".", "", ",", ".") * (Tabelle1.Cells(lngZeile, 4) / 1000)
        End If
       
        Do
            If Tabelle3.Cells(lngZeile, 1) = "" Then
                Tabelle3.Cells(lngZeile, 1) = usfIndex.cboWerkstoffNr
                Tabelle3.Cells(lngZeile, 2) = usfIndex.cboWerkstoffName
                Tabelle3.Cells(lngZeile, 3) = usfVolumen.txtParameter1
                Tabelle3.Cells(lngZeile, 4) = usfVolumen.txtParameter2
                Tabelle3.Cells(lngZeile, 5) = usfVolumen.txtParameter3
                Tabelle3.Cells(lngZeile, 6) = usfVolumen.txtParameter4
                Tabelle3.Cells(lngZeile, 7) = usfVolumen.txtParameter5
                Tabelle3.Cells(lngZeile, 8) = usfIndex.txtVolumen
                Tabelle3.Cells(lngZeile, 9) = usfIndex.txtGewicht
        Exit Do
            Else
                Tabelle3.Range("A2".EntireRow.Insert
            End If
        Loop
End Sub

Private Sub cmdEnde_Click()
   
    End 'Beendet das Programm
   
End Sub

Private Sub cmdGeometrie_Click()
   
    usfIndex.Hide   'setzt die Aktuelle Userform in den Hintergrund und...
    usfVolumen.Show '...öffnet die Userform Volumen
   
End Sub

Private Sub txtGewicht_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Me.txtGewicht = Format(Me.txtGewicht, "#,##.00"
   
End Sub

Private Sub txtVolumen_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Me.txtVolumen = Format(Me.txtVolumen, "#,##0.00"
   
End Sub

Private Sub UserForm_Activate()

    Dim lngZeile As Long                                                'Hier erfolgt die Dimensionierung von Lng Zeile As Long
        lngZeile = 2

        Do
            If Tabelle1.Cells(lngZeile, 1) = "" Then                    'Sobald er eine Leere Zeile in dem Tabellenblatt1 spalte 1 sieht soll er die Schleife schließen.
           
        Exit Do
            Else
                Me.cboWerkstoffNr.AddItem Tabelle1.Cells(lngZeile, 1)   'Speichert die Daten in der Ersten Spalte in die cbo WerkstoffNr sodass alle aktuell in der Userform erfassten Daten aufgeführt sind.
                Me.cboWerkstoffName.AddItem Tabelle1.Cells(lngZeile, 2) 'Speichert die aktuellen Daten in der Zweiten Spalte in die cbo WerkstoffName, sodass alle aktuellen Daten aus der Excel tabelle erfasst sind.
                lngZeile = lngZeile + 1
               
            End If
        Loop
End Sub


16.5.16 07:13
 


Werbung


bisher 0 Kommentar(e)     TrackBack-URL

Name:
Email:
Website:
E-Mail bei weiteren Kommentaren
Informationen speichern (Cookie)



 Smileys einfügen



Verantwortlich für die Inhalte ist der Autor. Dein kostenloses Blog bei myblog.de! Datenschutzerklärung
Werbung