Gruppe
Ereignis
Bereich
BeforeDoubleClick
Thema
Über Doppelklick aus Preisliste in Bestellformular einfügen
Problem
Durch Doppelklick auf eine Preislistenposition soll diese in ein Bestellformular übernommen werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
StandardModule: basMain
Sub Loeschen()
Worksheets("Bestellung").Range("A11:F" & Rows.Count).ClearContents
End Sub
Sub Kopieren()
Dim objButton As Button
ActiveSheet.Copy
ActiveSheet.Unprotect
ActiveSheet.Buttons.Delete
Range("A9") = "Email: buero-pc-bedarf@t-online.de"
ActiveSheet.Protect
End Sub
ClassModule: Tabelle2
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)
Dim iRowL As Integer, iRow As Integer, iCounter As Integer
Cancel = True
iRow = Target.Row
If iRow < 8 Then GoTo ErrorHandler
If IsEmpty(Cells(iRow, 1)) Then GoTo ErrorHandler
With Worksheets("Bestellung")
iRowL = .Cells(Rows.Count, 1).End(xlUp).Row + 1
For iCounter = 1 To 4
.Cells(iRowL, iCounter) = Cells(iRow, iCounter)
Next iCounter
.Cells(iRowL, 5).Value = 0
.Cells(iRowL, 6).FormulaR1C1 = "=sum(RC[-2]*RC[-1])"
.Range("B8") = Date
End With
End
ErrorHandler:
MsgBox "Sie müssen einen Artikel doppelklicken"
End Sub