Gruppe
Druck
Problem
Wie kann ich aus einer Video-Liste heraus die zugehörigen Aufkleber drucken?
ClassModule: Tabelle2
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)
Dim iRow As Integer
If Target.Column <> 2 Then Exit Sub
Cancel = True
With Worksheets("LabelDruck")
iRow = WorksheetFunction.CountA(.Columns(1)) + 1
If iRow > 12 Then Exit Sub
.Cells(iRow, 1).Value = Target.Offset(0, -1).Value
.Cells(iRow, 2).Value = Target.Value
.Cells(iRow, 3).Value = Target.Offset(0, 3).Value
.Cells(iRow, 4).Value = Target.Offset(0, 4).Value
End With
End Sub
ClassModule: Tabelle3
Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
If Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Target.Column <> 1 Then Exit Sub
If Target.Row > 12 Then Exit Sub
With Worksheets("Videoliste")
var = Application.Match(Target.Value, .Columns(1), 0)
If Not IsError(var) Then
Target.Offset(0, 1).Value = .Cells(var, 2).Value
Target.Offset(0, 2).Value = .Cells(var, 5).Value
Target.Offset(0, 3).Value = .Cells(var, 6).Value
End If
End With
End Sub