AW: Wert aus Zelle übernehmen
11.12.2007 17:29:12
Peter
Hallo Peter,
das ist so nicht richtig, es wird immer ans Ende der Tabelle kopiert.
Es ist halt so das Blatt "MwSt" nicht genauso viel Zeile und auch nicht alle Nummern in Spalte A hat wie Blatt "Cashflow". Wenn aber eine Zeile (Zahlung) ins Blatt "MwSt" übernommen wird, dann muss die Nummer in Spalte A identisch sein.
Ich stelle mal den ganzen Code rein, vielleicht kannst du mir dann helfen.
Private Sub cmdOK_Click()
Dim cell As Range
Dim a As Long
Dim lbMsg As Byte
SpeedUp (True)
ActiveSheet.Unprotect Password:="Peter"
Dim nz As Integer, rngZ As Range
nz = Cells(Rows.Count, 1).End(xlUp).Row + 1
For Each rngZ In Rows(nz - 1).SpecialCells(xlCellTypeFormulas)
rngZ.Copy
Cells(nz, rngZ.Column).PasteSpecial Paste:=xlPasteFormulas
Next
Application.CutCopyMode = False
'Application.CutCopyMode = False
'Cells(nz, 1).Select
'Dim nz As Integer
'nz = Cells(Rows.Count, 1).End(xlUp).Row + 1
'Rows(nz - 1).Copy
'Cells(nz, 1).PasteSpecial Paste:=xlPasteFormats
Cells(nz, 1).Value = Cells(nz - 1, 1) + 1
Cells(nz, 2).Value = CDate(Me.txtDatum)
Cells(nz, 3).Value = CDate(Me.txtfaellig_zum)
Cells(nz, 4).Value = Me.cboArt
If Me.cboArt = "-" Or Me.cboArt = "-a" Then
Cells(nz, 5).Value = Me.txtGegenseite + " - " + Me.cboGesellschaft_Konto
Else
Cells(nz, 5).Value = Me.cboGesellschaft_Konto + " - " + Me.txtGegenseite
End If
Cells(nz, 6).Value = Me.txtZahlungsgrund
'Ohne Wechselkurs
'Konten und Zellbezüge für Zahlungsausgang bei Zahlungsart - oder -a (extern)
If Me.cboArt = "-" Or Me.cboArt = "-a" Then
If Me.cboGesellschaft_Konto = "DA al LEWA" Then
Cells(nz, 17).Value = (CDec(Me.txtBetrag_Gesellschaft_Konto) + CDec(Me.txtBetrag_MwSt)) * _
-1
End If
If Me.cboGesellschaft_Konto = "AW tr(Land) EURO" Then
Cells(nz, 78).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
End If
End If
Unload Me
Range("A7:CM2000").Sort Key1:=Range("B7"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
' ActiveSheet.Columns(2).Find(CDate(Me.txtDatum)).Select
ActiveSheet.Protect Password:="Peter"
'bis hier war das Blatt "Cashflow" aktiv
Worksheets("MwSt").Activate
ActiveSheet.Unprotect Password:="Peter"
' Dim nz As Integer, rngZ As Range
nz = Cells(Rows.Count, 1).End(xlUp).Row + 1
For Each rngZ In Rows(nz - 1).SpecialCells(xlCellTypeFormulas)
rngZ.Copy
Cells(nz, rngZ.Column).PasteSpecial Paste:=xlPasteFormulas
Next
Application.CutCopyMode = False
'Application.CutCopyMode = False
'Cells(nz, 1).Select
'Dim nz As Integer
'nz = Cells(Rows.Count, 1).End(xlUp).Row + 1
'Rows(nz - 1).Copy
'Cells(nz, 1).PasteSpecial Paste:=xlPasteFormats
'hier ist wohl mein Problem
Cells(nz, 1).Value = Worksheets("Cashflow").Cells(nz, 1).Value
Cells(nz, 2).Value = CDate(Me.txtDatum)
Cells(nz, 3).Value = CDate(Me.txtfaellig_zum)
Cells(nz, 4).Value = Me.cboArt
If Me.cboArt = "-" Or Me.cboArt = "-a" Then
Cells(nz, 5).Value = Me.txtGegenseite + " - " + Me.cboGesellschaft_Konto
Else
Cells(nz, 5).Value = Me.cboGesellschaft_Konto + " - " + Me.txtGegenseite
End If
Cells(nz, 6).Value = Me.txtZahlungsgrund
'Ohne Wechselkurs
'Konten und Zellbezüge für Zahlungsausgang bei Zahlungsart - oder -a (extern)
If Me.cboArt = "-" Or Me.cboArt = "-a" Then
If Me.cboGesellschaft_Konto = "DA al LEWA" Then
Cells(nz, 8).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "AW tr(Land) LEWA" Then
Cells(nz, 31).Value = CDec(Me.txtBetrag_MwSt) * -1
End If
End If
Unload Me
Range("A7:CM2000").Sort Key1:=Range("B7"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
' ActiveSheet.Columns(2).Find(CDate(Me.txtDatum)).Select
ActiveSheet.Protect Password:="Peter"
Worksheets("Cashflow").Activate
SpeedUp (False)
End Sub
Danke
Peter