Guten Morgen zusammen....;-)
ich konnte mein Problemchen schon fast selbst lösen...ein kleiner Fehler noch....Index außerhalb des gültigen Bereichs...:-(
Kann mir von Euch jemand sagen, wie ich diesen Fehler abstellen kann....???
hier der eingefügte Code....
.Cells(64, 5) = vntin(1, 7) & ", " & vntin(1, 5) & " " & vntin(1, 6) ' trägt den Ort vom BV zur Entfernungsberechnung ein
With Sheets("Mitarbeiter")
i = .Cells(lzeile, 1)
For i = 1 To 11
If Sheets("Interner Auftrag").TextBox11.Text = Sheets("Mitarbeiter").Cells(i, 1) Then
Worksheets("Interner Auftrag").Cells(64, 2) = Worksheets("Mitarbeiter").Cells(i, 2)
End If
Next i
End With
With Sheets("Checkliste")
' trägt die Daten in die Tabelle Durchführungsbestätigung
.Cells(12, 6) = Cells(ActiveCell.Row, 1) ' gibt die interne Nummer zurück
|