ich habe ein großes Problem und hoffe das mir einer helfen kann. Ich habe eine Tabelle zur Überwachung von Ratenzahlungen erstellt. Ein Teil der Eingaben erfolgt durch ein Userform. Nach den Eingaben möchte ich aber auch gleich den Zellinhalt (d.h. die Formel) einer anderen Zelle (in diesem Fall Zelle A3) kopieren z.B. nach A4 und bei der nächsten Eingabe wieder von A3 nach A5 usw. Für das Userform habe ich bisher folgendes Makro:
'Daten erfassen
Private Sub CommandButton1_Click()
Dim d As Date
Dim dNeu As Date
Set frm = UserForm1
Sheets("Eingabeplattform").Activate
'letzte belegte Zelle in Tabelle Rechnungen finden
Range("B65536").End(xlUp).Offset(1, 0).Select
With frm
ActiveCell.Offset(0, 0).Value = .TextBox1.Value 'Debitor
ActiveCell.Offset(0, 4).Value = .TextBox2.Value 'Datum
ActiveCell.Offset(0, 5).Value = .TextBox3.Value 'Sachbearbeiter
ActiveCell.Offset(0, 6).Value = .TextBox4.Value 'Gesamtschuld
ActiveCell.Offset(0, 7).Value = .TextBox5.Value 'Anzahl der Raten
ActiveCell.Offset(0, 8).Value = .TextBox6.Value 'erste Rate
ActiveCell.Offset(0, 9).Value = .TextBox7.Value 'letzte Rate
ActiveCell.Offset(0, -1).Value = ActiveSheet.Cells(3, 1) 'Ziffer 1
End With
Unload Me
Sheets("Eingabeplattform").Activate
UserForm1.Show
End Sub
Probleme macht mir dabei der letzte ActiveCell.Offset(0, -1).Value = ActiveSheet.Cells(3, 1) 'letzte Rate Eintrag. Statt aus der Formel die in A3 steht (=WENN(B3="";0;1)) in Zelle A4 =WENN(B4="";0;1)zu kopieren kopiert das Makro nur den Wert 1. Dies möchte ich aber nun mal nicht sondern die veränderte Formel.
Ich hoffe es kann mir einer helfen!!!!! Matthias