Daten aus Private Sub eines User-Forms ausgeben

08/10/2007 - 09:48 von Daniel Fellner | Report spam
Hallo NG,

ich hab mal wieder ein Problem mit dem Daten ausgeben. Ich will in
einem UserForm erfasste Daten über eine Private Sub hinter dem OK-
Butto in ein Tabellenblatt ausgeben. Was ist an folgendem Listing
falsch

Private Sub OKSaegen_Click()



Dim MAA As Double 'Anzahl der Mitarbeiter
Dim MASS As Double 'Mitarbeiterstundensatz
Dim ASS As Double 'Ausbringung je Stunde Sàgerei



ThisWorkbook.Worksheets(4).Cells(2, 2).Value Saegerei_kalkulieren.Ausbringung_saegerei.Value
ThisWorkbook.Worksheets(4).Cells(3, 2).Value Saegerei_kalkulieren.Ruesten_Saege.Value
ThisWorkbook.Worksheets(4).Cells(1, 5).Value Saegerei_kalkulieren.Anzahl_MA_Saegerei.Value


Unload Me

Gruß

Daniel
 

Lesen sie die antworten

#1 stefan onken
08/10/2007 - 10:14 | Warnen spam
hallo Daniel,
was passiert denn bzw passiert nicht? Gibt es eine Fehlermeldung?

Gruß
stefan

On 8 Okt., 09:48, Daniel Fellner wrote:
Hallo NG,

ich hab mal wieder ein Problem mit dem Daten ausgeben. Ich will in
einem UserForm erfasste Daten über eine Private Sub hinter dem OK-
Butto in ein Tabellenblatt ausgeben. Was ist an folgendem Listing
falsch

Private Sub OKSaegen_Click()

Dim MAA As Double 'Anzahl der Mitarbeiter
Dim MASS As Double 'Mitarbeiterstundensatz
Dim ASS As Double 'Ausbringung je Stunde Sàgerei

ThisWorkbook.Worksheets(4).Cells(2, 2).Value > Saegerei_kalkulieren.Ausbringung_saegerei.Value
ThisWorkbook.Worksheets(4).Cells(3, 2).Value > Saegerei_kalkulieren.Ruesten_Saege.Value
ThisWorkbook.Worksheets(4).Cells(1, 5).Value > Saegerei_kalkulieren.Anzahl_MA_Saegerei.Value

Unload Me

Gruß

Daniel

Ähnliche fragen