automatische Tabellebeschriftung abschalten
27.07.2004 14:47:16
TriaFlo
ich benutze den nachfolgenden Code um Daten aus einer Excel Tabelle in eine Andere per Doppelklick zu übernehmen. Nach der Übergabe der Daten würde ich gerne wieder in die Quelldatei zurückkehren. Leider benennt sich die Tabelle automatisch nach dem zu übergebenden Datensatz; deshalb kann ich keinen direkten Bezug mehr auf die Tabelle nehmen.
Wie stellt man das ab?
Private Sub worksheet_beforedoubleclick(ByVal Target As Range, cancel As Boolean)
Dim zeile As Long, z As Integer
Dim artikel As String, einheit As String, preis As String
Dim ersteZeile As Integer, letzteZeile As Integer
zeile = ActiveCell.Row
Kundennummer = Cells(zeile, 1)
Name = Cells(zeile, 2)
Ansprechpartner = Cells(zeile, 3)
Straße = Cells(zeile, 4)
plz = Cells(zeile, 5)
ort = Cells(zeile, 6)
Erzeugernummer = Cells(zeile, 7)
Händlernummer = Cells(zeile, 8)
Telefon = Cells(zeile, 9)
With Worksheets("Quelle")
.Activate
letzteZeile = 2
.Cells(letzteZeile, 1).Select
Do
If .Cells(letzteZeile, 1).Value = "" Then Exit Do
letzteZeile = letzteZeile + 1
Loop
.Cells(letzteZeile, 1).Value = Kundennummer
.Cells(letzteZeile, 2).Value = Name
.Cells(letzteZeile, 3).Value = Ansprechpartner
.Cells(letzteZeile, 4).Value = Straße
.Cells(letzteZeile, 5).Value = plz
.Cells(letzteZeile, 6).Value = ort
.Cells(letzteZeile, 7).Value = Erzeugernummer
.Cells(letzteZeile, 8).Value = Händlernummer
.Cells(letzteZeile, 9).Value = Telefon
.Cells(letzteZeile, 1).Select
End With
'Sheets("Auftrag").Select
End Sub