Adressen in verschied. Tabellen eintragen
23.01.2006 08:38:59
Christiane
nach ewigen suchen hänge ich leider im Moment fest.....vielleicht hat jemand eine Antwort für mich.
Und zwar:
Ich habe eine Excel-Mappe, darin sind die Tabellenblätter
"Rechnung", "Abschlagsrechnung" "Schlußrechnung" und "Kundenliste".
Bisher habe ich es so gebastelt, das ich in der Kundenliste mir einen Kunden
aussuche und mit RightClick es mir die Daten ins Tabellenblatt "Rechnung" übernommen hat.
Jetzt sind aber noch die beiden anderen Tabellenblätter dazu gekommen,
da funktioniert es leider nicht.
Wie kann ich es machen, das es mir die Kundendaten ins jeweilige benötigte
Blatt überträgt (oder in alle drei.....das wäre auch nicht so wild)?
Hier ist mal der Code, der im Tabellenblatt "Kundenliste" steht:
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
End Sub