Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1348to1352
1348to1352
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variable mehrfach durchlaufen Vergleich

Forumthread: 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

Anzeige

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
;

Forumthreads zu verwandten Themen

Durchlaufende numerierung beim kopieren bereich
Karel

Guten abend Forum,
habe letzte mal mit hilfe von euch ein bestimmtes bereich x mal Kopieren in anderes Tabelleblatt Etikett_print gemacht.
zusatz frage:
wie kan man noch eine durchlaufenden nummerierung machen beim Kopieren in Tabelleblat Etikett_print
anzahl durch eingabe in G3...
10.09.2008 20:31:33
Thread-ID: 1008914
5 Beiträge
Liste mit Kostenstellen durchlaufen u. abspeichern
Bernd

Liebe Freaks,
ich wäre Euch sehr dankbar für ein Makro, dass nachstehende Aufgabe abarbeitet:
Ich bitte um ein Makro, dass alle Gültigkeitswerte aus der Zelle C13 durchläuft und nach jeder Auswahl !A" bis "H" den Wert unter "C:\Kostenstellenblätter" abspeichert.
Mit...
25.12.2008 11:29:01
Thread-ID: 1035169
13 Beiträge
Durchlaufen von Makros verhindern
Makros

Hallo,
ich wüsste gerne, warum ein Makro einfach zwischendurch andere Makros durchläuft und würde das gerne abstellen.
So z.B. möchte ich mit einem Makro in einem Userform alle Einträge in den Feldern löschen. Ein anderes Makro pfüft, ob in einem Feld etwas steht und führt dann eine Akt...
17.01.2009 13:45:21
Thread-ID: 1040892
10 Beiträge
Zeilen durchlaufen und Wert rausholen und kopien
Loen

Hallo Excel Gemeinde,
wie kann ich denn folgende Abfrage per Makro machen:
(Das Ergebnis soll nachher in B34 stehen)
Wenn im Tabellenblatt "Deckblatt" die Zelle C34 leer ist, NICHTS machen.
Wenn im Tabellenblatt "Deckblatt" die Zelle C34 NICHT leer ist, soll dieser Eintrag (C34)...
03.02.2009 20:48:41
Thread-ID: 1046782
5 Beiträge
Spalte durchlaufen und multiplitzieren
Roland

Hi,
wie kann ich die Spalte S mit einem Makro von 5 bis 1000 durchlaufen und dabei jeden gefundenen Wert mit 5 multiplitzieren ?
Danke Roland
08.02.2009 23:55:26
Thread-ID: 1048526
5 Beiträge
Spalte mit Schleife durchlaufen und Daten ergänzen
Kai

Hi
ich möchte mit einem Makro (keine Formel) die Spalte C durchsuchen. Wenn in dieser Spalte der Text "IN" gefunden wird , soll ich der gleiche Zeile in Spalte V "Eingang" stehn, Wenn in Spalte C "OUT" gefunden wird , dann soll in V "Ausgang" stehn. Ist C leer, dann V auch leer lassen.
10.03.2009 13:20:41
Thread-ID: 1058636
8 Beiträge
Spalte durchlaufen, Doppel suchen, dann Eintrag
Mandy

Hi,
ich möchte per VBA in meinem Sheet "Ablage" die Spalte E durchsuchen. Dort sind Datensätze mit gleichen Einträgen drin. (Mehrfache) Sind aber nicht immmer untereinander und ich weis nur, mein Range geht bis 750
Überall, wo ich in E mindestens 2 gleich finde, soll in Spalte L in der...
09.04.2009 15:56:44
Thread-ID: 1068053
13 Beiträge
Arbeitsblätter durchlaufen und Inhalt sortieren
Thomas

Hallo Spezialisten,
mit folgendem Code formatiere ich alle Arbeitsbätter in einer Datei. Ich will d. Code so erweitern, dass die in allen Arbeitsblättern enthaltenen Tabellen nach Spalte A aufsteigend sortiert werden. Aber es wird nur die Tabelle im ersten Blatt sortiert. Was mache ich fal...
13.08.2009 23:17:30
Thread-ID: 1095833
3 Beiträge
Anzeige
Ständiges Durchlaufen von Makros verhindern
Makros

Hallo,
ich hatte es schon mal gesehen, kann es aber gerade nicht wiederfinden.
Welche Fuknktion verhindert, dass ständig ein Makro (by Change) durchlaufen wird.
Wäre toll, wenn mir da jemand helfen könnte.
Viele Grüße,
Larissa
30.09.2009 21:11:11
Thread-ID: 1106546
3 Beiträge
Spalten durchlaufen, wenn leer, löschen
Joachim

Hallo,
Ich möchte per Makro mein Datenbestand überprüfen: ab Zeile 20 sollen alle Zeilen überprüft werden , ob entweder die Zelle B UND Zelle L leer sind.
Wenn beide leer sind, soll diese Zeile gelöscht werden. Und weiter gehts...
Hat dazu jemand ein Beispiel ?
Dank Euch mal
03.11.2009 14:39:29
Thread-ID: 1114151
5 Beiträge
Anzeige
Speichern wird 2 mal durchlaufen, Fehlermeldung
DirkR

Hallo Excelgemeinde,
ich habe (leider) noch ein Problem und bitte um eure Hilfe.
Ich habe folgenden Code: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim DVD As String, CDFront As String, CDBack As String DVD = Sheets("DVD Cover").Cells(1, 2) MsgBox DVD...
22.03.2010 10:03:39
Thread-ID: 1147512
3 Beiträge
numberformat wird durchlaufen aber n. zugewiesen
Peter

Guten Tag
https://www.herber.de/bbs/user/71355.xls
Je nach Eingabe der Währung in Zelle J5 einer Tabelle (JPY oder CHF) sollen bestimmte Zellen anders formatiert werden. Bei einer Änderung wird nachstehender Code wirklilch durchlaufen (mit Haltepunkten überprüft), doch die Zellformate...
02.09.2010 11:45:37
Thread-ID: 1175416
13 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige