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
|