Userform, überträgt nicht in Zelle
24.04.2007 12:58:00
Peter
Ich habe 2 Probleme:
1.
wenn ich meine Userform öffne sind in einigen Feldern (z.B Comboboxen) von mir vorgegebene Texte enthalten.
Wenn ich in Combobox "cboGesellschaft_Konto" den Text (Grundeinstellung nach dem öffnen) "DA/Allgemeines Lewa" nicht ändere werden aus den Textboxen "txtBetrag_Gesellschaft_Konto" und "txtBetrag_MwSt" die Inhalte nicht in die dafür vorgesehenen Zellen in der vorgegebenen Spalte eingetragen. Sobalt ich ein anderes Konto in "cboGesellschaft_Konto" auswähle werden entsprechende Eintragungen aus den beiden Textboxen in die dann entsprechenden Zellen eingetragen.
Nur bei "DA/Allgemeines Lewa" funktioniert es nicht. Keine Ahnung warum!?
Teil des Codes:
Range("A:A").Find("", after:=[A6]).Activate
ActiveCell.Value = CDate(Me.txtDatum)
ActiveCell.Offset(0, 1).Value = CDate(Me.txtfaellig_zum)
ActiveCell.Offset(0, 2).Value = Me.cboArt
ActiveCell.Offset(0, 3).Value = Me.txtGegenseite
ActiveCell.Offset(0, 4).Value = Me.txtZahlungsgrund
If Me.cboGesellschaft_Konto = "DA/Allgemeines Lewa" And Me.cboAusgang_Eingang_Gesellschaft_Konto = "Ausgang" Then
ActiveCell.Offset(0, 5).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 10).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "DA/Allgemeines Lewa" And Me.cboAusgang_Eingang_Gesellschaft_Konto = "Eingang" Then
ActiveCell.Offset(0, 6).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 9).Value = CDec(Me.txtBetrag_MwSt)
End If
2.
Ich möchte das nach dem man eine neue Zeile am Ende angefügt hat die Formate aus der darüberliegenden Zeile übernommen werden. Mein Versuch funktioniert nicht. Wie muß es richtig ausehen?
Teil des Codes:
a = Cells(65536, 1).End(xlUp).Row - ActiveCell.Row + 1
For Each cell In Rows(ActiveCell.Row - 1).SpecialCells(xlCellTypeFormulas, 23)
cell.Copy Destination:=cell.Offset(1, 0).Resize(a, 1)
'For Each cell In Rows(ActiveCell.Row - 1) '.SpecialCells(xlCellTypeFormulas, 23)
'cell.AutoFill Destination:=cell.Offset(1, 0), Type:=xlFillFormats
Next
hier die ganze Datei: https://www.herber.de/bbs/user/41980.xls
Danke im Voraus
Grüße aus Berlin