Code Änderung
05.01.2004 18:12:24
marc
aus 'ne UserForm werden Werte ausgelesen und in 12 sheets(Monate) eingetragen.
ist eine Abfrage der sheets(januar bis dezember)ueber die TextBox2 (dort wird der aktuelle Monat als Zahl eingetragen möglich ?
marc :o)
Private Sub cmdCopy_Click()
Dim Worksheets As String
If CheckBox1 = True Then
Worksheets("jan").Activate
End If
If CheckBox2 = True Then
Worksheets("feb").Activate
End If
If CheckBox3 = True Then
Worksheets("mar").Activate
End If
If CheckBox4 = True Then
Worksheets("apr").Activate
End If
If CheckBox5 = True Then
Worksheets("may").Activate
End If
If CheckBox6 = True Then
Worksheets("jun").Activate
End If
If CheckBox7 = True Then
Worksheets("jul").Activate
End If
If CheckBox8 = True Then
Worksheets("aug").Activate
End If
If CheckBox9 = True Then
Worksheets("sep").Activate
End If
If CheckBox10 = True Then
Worksheets("oct").Activate
End If
If CheckBox11 = True Then
Worksheets("nov").Activate
End If
If CheckBox12 = True Then
Worksheets("dec").Activate
End If
z = 1
Do While Cells(z, 1) <> ""
z = z + 1
Loop
Cells(z, 1) = CInt(Me.TextBox1.Text)
Cells(z, 2) = CInt(Me.TextBox2.Text)
Cells(z, 3) = CInt(Me.TextBox3.Text)
Cells(z, 4) = CInt(Me.TextBox4.Text)
Cells(z, 5) = CInt(Me.TextBox5.Text)
Cells(z, 6) = CInt(Me.TextBox6.Text)
Cells(z, 7) = CInt(Me.TextBox7.Text)
Cells(z, 8) = CInt(Me.TextBox8.Text)
Cells(z, 9) = CInt(Me.TextBox9.Text)
Cells(z, 10) = CInt(Me.TextBox10.Text)
Cells(z, 11) = CInt(Me.TextBox11.Text)
End Sub
-------------------------------------------------------------------
Private Sub cmdBeenden_Click()
ActiveWorkbook.Save
Unload Me
Worksheets("start").Select
End Sub
-------------------------------------------------------------------
Private Sub cmdSum_Click()
Me.txtBetrag.Value = Sheets("grafik").Range("D14")
txtBetrag.Text = Format(txtBetrag.Text, "#,##0.00 ")
End Sub