aus zwei verschiedenen Tabellen möchte ich mir bei Übereinstimmung die Werte in einer neuen Tabelle ausgeben lassen.
Auslesen klapp - Nur beim Vergleich der Variablen 27 mit 1 hänge ich, denn die 27 müsste mehrfach für die Prüfung durchlaufen werden. Nur die schleife bekomme ich nicht hin.
Wäre super, wenn mir da jemand auf die Sprünge helfen könnte. Hab leider auf die Schnelle keine Beispieldatei.
Sheets("Entfernung").Activate
Dim Data As Variant
ENF = ActiveWorkbook.Name
Range("a2").Select
For DAT = 0 To Z - 2
If QVar(DAT, 27) QVar(DAT, 1) Then GoTo Data
If QVar(DAT, 27) = QVar(DAT, 1) Then
ActiveCell.Value = "'" & QVar(DAT, 1)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 2)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 3)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 4)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 5)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 6)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 7)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = "'" & QVar(DAT, 8) 'länge"
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = "'" & QVar(DAT, 9) 'Breite"
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 10)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 11)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 12)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 13)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 14)
ActiveCell.Offset(0, 2).Activate
'Daten aus T_FN
ActiveCell.Value = QVar(DAT, 21)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 22)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 23)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 24)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = "'" & QVar(DAT, 25)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = "'" & QVar(DAT, 26)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 27)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 28)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 29)
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = QVar(DAT, 30)
ActiveCell.Offset(0, -10).Activate
ActiveCell.Value = "=ACOS(SIN(RC[-7]*PI()/180)*SIN(RC[5]*PI()/180)+COS(RC[-7]*PI()/180)*COS(RC[5]*PI()/180)*COS((RC[6]*PI()/180)-(RC[-6]*PI()/180)))*6367.4445"
ActiveCell.Offset(1, -14).Activate
End If
Data:
Next DAT
End Sub