Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
360to364
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
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

suchen finden eintragen

suchen finden eintragen
11.01.2004 22:14:58
Daniel B.
Hallo EXCEL/VBA Freunde
habe da folgendes Problem
ich will Spalte 1 (mit den Werten 1 - 100) mit der Spalten 2 (z.b 1 - 100) ohne die Werte 50 60 70 75 vergleichen. Die Werte die mir in Spalte 2 fehlen sollen in Spalte 3 aufgelistet werden. Mit folgendem VBA Code gibt es mir beim zweiten nicht gefunden Wert einen Laufzeitfehler 91.

Sub suchen()
Sheets("Touren").Select
Range("b16").Select
zweite_Tour:
i = ActiveCell
Start:
Sheets("Arbeitsplan").Select
Range("c34:c100").Select
On Error GoTo ende:
Selection.Find(What:=i, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False).Select
GoTo weitersuchen
Eintrag:
Range("c1").Select
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Value = i
weitersuchen:
Sheets("Touren").Select
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then Exit Sub
GoTo zweite_Tour:
ende:
GoTo Start:
End Sub

Kann mir jemand weiter Helfen

DANKE DANKE

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Das ist ja mal ein Disco-Code...
11.01.2004 22:34:21
Boris
Hi Daniel,
...der muss ja Flackern bis zum Abwinken...
Ohne den Code weiter zu studieren (denn die ganzen Goto und Sprungmarken machen einen kirre), nur bezogen auf deine Beschreibung und auf Spalten A und B (Zeile 1:100)
Option Explicit

Sub ohne_disco()
Dim C As Range, L As Long
L = 1
For Each C In Range("A1:A100")
If Range("B:B").Find(C) Is Nothing And (C <> 50 Or C <> 60 Or C <> 70 Or C > 75) Then
Cells(L, 3) = C
L = L + 1
End If
Next C
End Sub

Grüße Boris
Alle "Or" noch durch "And" tauschen und...
12.01.2004 09:02:11
Boris
...die Klammern weg:
...And C <> 50 Or C <> 60 Or C <> 70 Or C <> 75
So is dann richtig.
Boris
Anzeige
?!? Was ist das?
12.01.2004 09:12:03
Boris
Ich hatte doch die richtige Zeile reinkopiert?!?
Nun ja - nochmal:
And C <> 50 And C <> 60 And C <> 70 And C <> 75

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige