Berechnung wenn
29.06.2006 09:42:45
Michael
Ich finde keine Lösung für mein Problem.
Also ich habe eine Offene Posten Liste erstellt. Eintragungen sind nur per Formular möglich. (siehe unten)
Ab Zeile M6 soll eine Berechnung vorgenommen werden, wenn ein WERT in G6 vorhanden ist. Und zwar G6 - H6 - I6
Ich habe das Problem derzeit mit einer Formel im Tabellenblatt gelöst. Das Problem hierbei ist jedoch das die Tabelle ohne jeden Eintrag schon 5 MB groß ist.
Private Sub ButtonErfassen_Click()
ActiveSheet.Unprotect ("Passwort") 'Blattschutz aufheben
Sheets("Offene Posten Liste").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select 'letzte belegte Zelle in Tabelle Rechnungen finden
Set frm = RechnungErfassen
With frm
ActiveCell.Offset(0, 0).Value = .TextBoxName.Value
ActiveCell.Offset(0, 3).Value = .TextBoxReDatum.Value
ActiveCell.Offset(0, 4).Value = .TextBoxReNummer.Value
ActiveCell.Offset(0, 6).Value = CSng(TextBoxBetrag.Value)
ActiveCell.Offset(0, 15).Value = .TextBoxNotizen.Value
If .TextBoxErsteZahlung.Value = True Then
ActiveCell.Offset(0, 7).Value = CSng(TextBoxErsteZahlung.Value)
Else
ActiveCell.Offset(0, 7).Value = ""
End If
If .OptionButton1.Value = True Then
ActiveCell.Offset(0, 2).Value = "Factura"
Exit Sub
Else
ActiveCell.Offset(0, 2).Value = "Presupuesto"
End If
If .OptionButton3.Value = True Then
ActiveCell.Offset(0, 5).Value = "C1"
Else
ActiveCell.Offset(0, 5).Value = "C1"
End If
If .OptionButton5.Value = True Then
ActiveCell.Offset(0, 13).Value = "PENDIENTE"
Else
ActiveCell.Offset(0, 13).Value = "Pagado"
End If
End With
Range("A:A").Find("").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, Password:="Passwort" 'Blatt schützen
Unload RechnungErfassen 'Formular wieder ausblenden'
End Sub
Vielen Dank schonmal im vorraus
Gruß Michael