ddd

Jetzt schaut des ganze so aus

er schreibt mir jetzt alle fünf vorgefertigten Spalten im Worksheet mit den gleichen Daten voll sobald ich den ersten Doppelklick auf eine Nummer gemacht habe.

   
    If Target.Column = 2 Then
  
   
       Const strDATEI3PFAD As String = "+++++++++++"
       Const strDATEI3NAME As String = "-------"
       Dim x3WB As Excel.Workbook
       Dim boVorhanden As Boolean
       Dim FreieZeile As Long
       Dim ANSW As Long
       Dim Durchlauf As Integer
       Dim Laufzahl As Integer
       Dim j As String
    
       ANSW = MsgBox("Möchten Sie ein Rückenschild anlegen?", vbQuestion + vbYesNo, " Rückenschild anlegen")
      
       Durchlauf = MsgBox(" Mehr als einenDurchlauf starten?", vbYesNo + vbQuestion, " Anzahl Durchläufe...")
       
    If ANSW = 7 Then Exit Sub
          boVorhanden = False
          
           For Each x3WB In Application.Workbooks
          
           If UCase(x3WB.Name) = UCase(strDATEI3NAME) Then
                boVorhanden = True
           Exit For
       End If
        Next
           If boVorhanden = False Then
           Set x3WB = Workbooks.Open(strDATEI3PFAD)
          
           Else
               Set x3WB = Workbooks(strDATEI3NAME)
    End If
         
         
 With x3WB.Sheets(3)
   
     j = Format(Date, "YYYY")

     .Cells(1, 1) = j
     .Cells(1, 3) = Target
     .Cells(4, 1) = Target.Offset(0, 2)
     .Cells(5, 1) = Target.Offset(0, 9)
     .Cells(6, 1) = Target.Offset(0, 10)
     .Cells(3, 1) = Target.Offset(0, 3)
     .Cells(7, 1) = Target.Offset(0, 11)
    
    
    If Durchlauf = 6 Then
 
     For Laufzahl = 5 To 17 Step 4
 
  .Cells(1, Laufzahl) = j
  .Cells(1, Laufzahl + 3) = Target
  .Cells(4, Laufzahl) = Target.Offset(0, 2)
  .Cells(5, Laufzahl) = Target.Offset(0, 9)
  .Cells(6, Laufzahl) = Target.Offset(0, 10)
  .Cells(3, Laufzahl) = Target.Offset(0, 3)
  .Cells(7, Laufzahl) = Target.Offset(0, 11)
 
    Next Laufzahl

  End If

End With

End If