Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Videokassettenaufkleber drucken

Gruppe

Bereich

Problem

Wie kann ich aus einer Video-Liste heraus die zugehörigen Aufkleber drucken?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Bereich