Anzeige
Archiv - Navigation
1348to1352
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Variable mehrfach durchlaufen Vergleich

Variable mehrfach durchlaufen Vergleich
16.02.2014 11:22:54
bernie
Hallo Gemeinde,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variable mehrfach durchlaufen Vergleich
18.02.2014 14:21:23
fcs
Hallo Bernie,
wenn ich es richtig verstanden habe, dann müsste es etwa wie folgt aussehen. Allerdings nicht mit Activate / Activecell, sondern mit Variablen für Zeile und Spalte, die das Eintragen der Werte und Formeln steuern.
Gruß
Franz
  Sheets("Entfernung").Activate
ENF = ActiveWorkbook.Name
Range("a2").Select
Zeile = 1
For DAT = 0 To Z - 2
For DAT27 = 0 To Z - 2
If Qvar(DAT27, 27) = Qvar(DAT, 1) Then
Zeile = Zeile + 1
For Spalte = 1 To 25
Select Case Spalte
Case 1 To 14
SpalteQVar = Spalte
Select Case Spalte
Case 1, 8, 9 'xxx, länge",Breite"
Cells(Zeile, Spalte).Value = "'" & Qvar(DAT, SpalteQVar)
Case 2 To 7, 10 To 14
Cells(Zeile, Spalte).Value = Qvar(DAT, SpalteQVar)
End Select
Case 15 'Formel
Case 16 To 25 'Daten aus T_FN
SpalteQVar = Spalte + 5
Select Case Spalte
Case 20, 21
Cells(Zeile, Spalte).Value = "'" & Qvar(DAT27, SpalteQVar)
Case 16 To 19, 22 To 25
Cells(Zeile, Spalte).Value = Qvar(DAT27, SpalteQVar)
End Select
End Select
Next Spalte
Cells(Zeile, 15).FormulaR1C1 = _
"=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"
End If
Next DAT27
Next DAT
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige