ich bräuchte bitte nochmal Hilfe......stehe irgendwie auf dem Schlauch und komme nicht weiter. Bin dabei eine Fakturierungsmappe in Excel zu machen.
Die Arbeitsmappe besteht aus "Rechnung" "Abschlagsrechnung" "Schlußrechnung"
"Kundenliste" und diverse Materillisten.
Ich habe nun in der Kundenliste folgenden VBA-Code:
Private Sub Worksheet_Activate()
Application.EditDirectlyInCell = True
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Call Adresse_eintragen
Cancel = True
End Sub
Sub Adresse_eintragen()
Dim Zeile As Long
Zeile = ActiveCell.Row
With Worksheets("Rechnung")
.Range("A14") = Cells(Zeile, 1) 'Name1
.Range("A15") = Cells(Zeile, 2) 'Name2
.Range("A16") = Cells(Zeile, 3) 'Straße
.Range("A18") = Cells(Zeile, 4) & " " & Cells(Zeile, 5) 'Ort
.Range("F21") = Cells(Zeile, 6) 'Lief.-Nr.
.Range("F28") = Cells(Zeile, 7) & " " & Cells(Zeile, 8) 'USt
.Select
End With
With Worksheets("Abschlagsrechnung")
.Range("A14") = Cells(Zeile, 1) 'Name1
.Range("A15") = Cells(Zeile, 2) 'Name2
.Range("A16") = Cells(Zeile, 3) 'Straße
.Range("A18") = Cells(Zeile, 4) & " " & Cells(Zeile, 5) 'Ort
.Range("F21") = Cells(Zeile, 6) 'Lief.-Nr.
.Range("F28") = Cells(Zeile, 7) & " " & Cells(Zeile, 8) 'USt
End With
With Worksheets("Schlußrechnung")
.Range("A14") = Cells(Zeile, 1) 'Name1
.Range("A15") = Cells(Zeile, 2) 'Name2
.Range("A16") = Cells(Zeile, 3) 'Straße
.Range("A18") = Cells(Zeile, 4) & " " & Cells(Zeile, 5) 'Ort
.Range("F21") = Cells(Zeile, 6) 'Lief.-Nr.
.Range("F28") = Cells(Zeile, 7) & " " & Cells(Zeile, 8) 'USt
End With
End Sub
Nun meine Frage:
Jetzt ist es so, wenn ich in der Kundenliste mir einen bestimmten Kunden herausgesucht habe und mit RightClick übernehme, übernimmt es mir die Kundendaten in alle 3 Rechnungsblätter (also in Rechnung, Abschlagsrechnung u.
Schlußrechnung).
Wie kann ich es machen, das mir die Kundendaten nur in das eine von mir gewünschte Rechnungsblatt übernimmt. Vielleicht irgendwie in dem Blatt wo der
Cursor zuletzt stand. Ich hab nur keine Ahnung wie man das umsetzen kann.