|
Hallo,
Folgendes Problem:
Hab in einer Spalte Nummern stehen und möchte per Doppelklick auf eine dieser Nummern in ein anderes worksheet wechseln.
In diesem Zuge sollen auch weitere Daten, die in der Zeile dieser Nummer stehen, mit übernommen werden.
Danach sollte mit einer Auswahl (ja oder nein in einer Message Box)
wieder auf das Hauptblatt zurückgewechselt werden und der Vorgang erneut ausgeführt werden, wenn ich eine weiter Nummer per Doppelklick wähle.
Insgesamt sollte der Vorgang 5 mal wiederholt werden.
Folgend mein bisher geschafftes Programm:
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
ANSW = MsgBox("Möchten Sie ein Rückenschild anlegen?", vbQuestion + vbYesNo, " Rückenschild anlegen")
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)
Dim j As String
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) Die Daten die per Doppelklick mit übernommen werden stehen alle in der selben Zeile aber jeweils um 4 Spalten weiter
.Cells(6, 1) = Target.Offset(0, 10) rechts!!!!
.Cells(3, 1) = Target.Offset(0, 3)
.Cells(7, 1) = Target.Offset(0, 11)
End With
End If
---------------------
Was mir entsprechen fehlt ist die Schleife dass der Vorgang entsprechen wiederholt wird und die richtigen Daten übertragen werden.
Danke im Voraus und um baldige Hilfe.
Mfg
|