Hallo,
folgendes Problem:
möchte nach der ersten Abfrage..."ob ein Rückenschild angelegt werden soll"....eine weitere Abfrage einfügen, die mir die Auswahl überlässt, in welche Tabelle des Zielbjektes, (das insgesamt 5 Tabellen enthält), folgende Befehle und Daten des Programms übertragen werden.
Momentan werden die Daten in die dritte Tabelle des Zielobjektes übertragen.
Ich hätte gerne die Auswahl ob dritte oder vierte Tabelle erreicht werden soll.
danke im voraus und ich hoffe ich konnte das Problem enigermaßen deutlich beschreiben.
If Target.Column = 2 Then
ANSW = MsgBox("Möchten Sie ein Rückenschild anlegen?", vbQuestion + vbYesNo, " Rückenschild anlegen")
If ANSW = 7 Then Exit Sub ' 7 steht für Nein
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
For lngCol = 1 To 17 Step 4
x3WB.Sheets(3).Activate
If x3WB.Sheets(3).Cells(2, lngCol) = "" Then
x3WB.Sheets(3).Cells(2, lngCol) = Target.Offset(0, -1) & "/" & Target
x3WB.Sheets(3).Cells(4, lngCol) = Target.Offset(0, 2)
x3WB.Sheets(3).Cells(5, lngCol) = Target.Offset(0, 9)
x3WB.Sheets(3).Cells(6, lngCol) = Target.Offset(0, 10)
x3WB.Sheets(3).Cells(3, lngCol) = Target.Offset(0, 3)
x3WB.Sheets(3).Cells(7, lngCol) = Target.Offset(0, 11)
GoTo weiter2
End If
Next lngCol
weiter2:
answDurchlauf = MsgBox("Weitere Rückenschilder hinzufügen?", vbYesNo + vbQuestion, " Anzahl Durchläufe...")
If answDurchlauf = 6 Then ' 6 steht für Ja
Quelle.Activate
Exit Sub
End If
End If
|