Thema Datum  Von Nutzer Rating
Antwort
Rot Userform
 08.12.2008 20:29:42 Simon
NotSolved
08.12.2008 20:31:20 Simon
NotSolved
08.12.2008 21:05:14 Simon
NotSolved

Ansicht des Beitrags:
Von:
Simon		 Datum:
08.12.2008 20:29:42		 Views:
2027		 Rating:
     
Antwort:
  Ja
Thema:
Userform
Dim intZeile As Integer
Dim intZaehler As Integer

'erster Zähler funktioniert
Private Sub CommandButton1_Click()
intZeile = 1
For intZaehler = 1 To 100 Step 1
ActiveSheet.Cells(intZeile, 3) = ActiveSheet.Cells(intZeile + 1, 2)
ActiveSheet.Cells(intZeile, 5) = ActiveSheet.Cells(intZeile + 1, 4)
ActiveSheet.Cells(intZeile, 7) = ActiveSheet.Cells(intZeile + 1, 6)


ActiveSheet.Cells(intZeile + 1, 2).Value = ""
ActiveSheet.Cells(intZeile + 1, 4).Value = ""
ActiveSheet.Cells(intZeile + 1, 6).Value = ""
intZeile = intZeile + 2
Next

For intZaehler = 2 To 50 Step 1
Rows(intZaehler).Delete
Next
End Sub



Option Explicit
Dim intZaehler1 As Integer
Dim intZaehler2 As Integer
Dim intZaehler3 As Integer
Dim intZaehler4 As Integer
Dim curRate1 As Currency
Dim curRate2 As Currency
Dim curRate3 As Currency
Dim curRate4 As Currency


Private Sub abbrechen_Click()
Unload Me
End Sub


Private Sub OK_Click()
Dim intZeile As Integer
Dim curZahlung As Currency
curZahlung = 0

'Eingabebereiche Tabellenblatt löschen
Sheets("Abschlag_Monat").Select
Range("B4:E15").Select
Selection.ClearContents
Range("B4").Select

'Werte für Mieter 1 übertragen
curZahlung = TextBox1.Value
If MO1 = True Then
intZaehler1 = 12
End If
If QU1 = True Then
intZaehler1 = 4
End If
If intZaehler1 = 2 Then
intZaehler1 = 2
End If

Select Case intZaehler1
Case 12
For intZeile = 4 To 15 Step 1
ActiveSheet.Cells(intZeile, 2).Value = curZahlung
Next intZeile
Case 4
For intZeile = 4 To 13 Step 3
ActiveSheet.Cells(intZeile, 2).Value = curZahlung
Next intZeile

Case 2
ActiveSheet.Cells(4, 2).Value = curZahlung
ActiveSheet.Cells(10, 2).Value = curZahlung
End Select


'Werte für Mieter 2 übertragen
curZahlung = TextBox2.Value
If MO2 = True Then
intZaehler1 = 12

Else
If QU2 = True Then
intZaehler1 = 4
Else
intZaehler1 = 2
End If
End If

Select Case intZaehler1
Case 12
For intZeile = 4 To 15 Step 1
ActiveSheet.Cells(intZeile, 3).Value = curZahlung
Next intZeile
Case 4
For intZeile = 4 To 13 Step 3
ActiveSheet.Cells(intZeile, 3).Value = curZahlung
Next intZeile

Case 2
ActiveSheet.Cells(4, 3).Value = curZahlung
ActiveSheet.Cells(10, 3).Value = curZahlung
End Select


'Werte für Mieter 3 übertragen
curZahlung = TextBox3.Value
If MO3 = True Then
intZaehler1 = 12

Else
If QU3 = True Then
intZaehler1 = 4
Else
intZaehler1 = 2
End If
End If

Select Case intZaehler1
Case 12
For intZeile = 4 To 15 Step 1
ActiveSheet.Cells(intZeile, 4).Value = curZahlung
Next intZeile
Case 4
For intZeile = 4 To 13 Step 3
ActiveSheet.Cells(intZeile, 4).Value = curZahlung
Next intZeile

Case 2
ActiveSheet.Cells(4, 4).Value = curZahlung
ActiveSheet.Cells(10, 4).Value = curZahlung
End Select

'Werte für Mieter 4 übertragen
curZahlung = TextBox4.Value
If MO4 = True Then
intZaehler1 = 12

Else
If QU4 = True Then
intZaehler1 = 4
Else
intZaehler1 = 2
End If
End If

Select Case intZaehler1
Case 12
For intZeile = 4 To 15 Step 1
ActiveSheet.Cells(intZeile, 5).Value = curZahlung
Next intZeile
Case 4
For intZeile = 4 To 13 Step 3
ActiveSheet.Cells(intZeile, 5).Value = curZahlung
Next intZeile

Case 2
ActiveSheet.Cells(4, 5).Value = curZahlung
ActiveSheet.Cells(10, 5).Value = curZahlung
End Select
End Sub

Bitte stehen lassen bis morgen Mittag :-)

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Userform
 08.12.2008 20:29:42 Simon
NotSolved
08.12.2008 20:31:20 Simon
NotSolved
08.12.2008 21:05:14 Simon
NotSolved