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