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 :-) |