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

Sverweis / ActiveCell.Value - Laufzeitfehler

Forumthread: Sverweis / ActiveCell.Value - Laufzeitfehler

Sverweis / ActiveCell.Value - Laufzeitfehler
25.04.2014 13:39:23
Thorben
Moinsen Kameraden,
ich brauch mal Licht ans Fahrrad.
Die ActiveCell.Value bzw. ActiveCell.Address ist immer in Spalte A (falls wichtig)
Mein Code:
Sub malnurgucken()
Dim Suchbegriff As Variant
Suchbegriff = ActiveCell.Value
For i = 1 To 35000
With ActiveSheet
If Workbooks("Datentabellen.xlsx").Sheets("Besondere Hinweise").Cells(i, 1) = Suchbegriff Then
' Ergebnis soll in MsgBox ausgegeben werden
MsgBox (Workbooks("Datentabellen.xlsx").Sheets("Besondere Hinweise").Cells(i, 2))
End If
End With
Next i
MsgBox "Suchbegriff: " & Suchbegriff & " wurde nicht gefunden"
End Sub
Ich bekomme das richtige Ergebnis aber gleich danach Laufzeitfehler 6
der Debugger hier:
If Workbooks("Datentabellen.xlsx").Sheets("Besondere Hinweise").Cells(i, 1) = Suchbegriff Then
k.A. Warum...
Für Rückmeldungen schon mal Danke.
MfG
Thorben

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sverweis / ActiveCell.Value - Laufzeitfehler
25.04.2014 14:06:05
Arthur
Hallo Thorben.
... als Vermutung: i ist nicht explizit deklariert. Wenn nun i ein Integer ist, dann sind Werte über rund 32000 nicht machbar. Dafür sollte i ein l ;o) sein, ein Long.
Sowas fehlt möglicherweise: Dim i as Long
Gruß, Arthur

AW: Sverweis / ActiveCell.Value - Laufzeitfehler
25.04.2014 14:34:48
Thorben
Hallo Arthur,
Dank schonmal!
Frei nach try and error:
Option Explicit
+ Dim Suchbegriff as Long
+ Dim Suchbegriff as Variant
+ Dim Suchbegriff as Interger
+ Dim i as Long
+ Dim i as Variant
+ Dim i as Interger
Egal wie ich es kombiniere = Laufzeitfehler 6
Ich muss aber min 35000 Zeilen durchlaufen.
Gesucht werden Zahlen die aber auch in Combo mit Buchstaben, Zeichen etc. stehen können.
Der klassiche Sverweis klappt:
"=IFERROR(VLOOKUP(INDIRECT(CELL(""Adresse"")),'[Datentabellen.xlsx]Besondere Hinweise'!C[-2]:C[-1],2,FALSE),"""")"
Ist aber so nicht für mich zu handeln.
Ich brauche es in VBA per MsgBox...
Noch welche Ideen ?
MfG
Thorben

Anzeige
AW: Sverweis / ActiveCell.Value - Laufzeitfehler
25.04.2014 14:48:04
Rudi
Hallo,
wenn Suchbegriff nur 1x vorkommt: 
Sub malnurgucken()
Dim Suchbegriff As Variant, i As Variant
Suchbegriff = ActiveCell.Value
With Workbooks("Datentabellen.xlsx").Sheets("Besondere Hinweise")
i = Application.Match(Suchbegriff, .Columns(1), 0)
If Not IsError(i) Then
MsgBox .Cells(i, 2)
Else
MsgBox "Suchbegriff: " & Suchbegriff & " wurde nicht gefunden"
End If
End With
End Sub

Gruß
Rudi

Anzeige
Juhuu Rudi, danke !!!
25.04.2014 14:56:32
Thorben
Rudi / Thorben
jupp das isses! Suchbegriff kommt nur 1x vor (vergessen zu erwähnen)
Danke und Gruß
Thorben
;

Forumthreads zu verwandten Themen

Wieso für Trim() Verweis auf PDFMaker.xla nötig?
Hans

Hallo,
mein VBA Programm bricht bei der Zeile:
If Len(Trim(Sheets(iSheetDest).Cells(n + nDestZ, nDestS))) Mod 2 = 1
mit dem Fehler ab "Fehler beim Kompilieren: Project oder Bibliothek nicht gefunden"
Wenn ich in den Verweisen die 'PDFMaker.xla' aufnehmen, funktioniert das Progr...
29.08.2008 10:27:00
Thread-ID: 1005716
3 Beiträge
Sverweis auf darüberliegende Zelle
Matthias

Hallo,
ich suche eine Formelergänzung für den sverweis, damit dich den darüberliegenden Wert aus
Spalte X widergeben kann.
z.B.
Er sucht in Spalte A nach dem Wert "x" und gibt mir den Wert aus Spalte B "17.10.2008" zurück
von jetzt an soll er mir aber den darüberliegenden We...
24.11.2008 11:22:54
Thread-ID: 1027230
3 Beiträge
Msgbox : JA / NEIN auf Englisch
TomTom

Hi,
ich habe auf meiner Userform eine MsgBox:
a = MsgBox("geht das auch auf Englisch ?", vbYesNo, "Frage")
If a = vbYes Then ....
Wenn die ausgeführt wird,stehen auf den Buttons Ja und Nein. Kann man das auch auf Englisch ausgeben (Yes/No) ?
Gruss
Tom
28.11.2008 09:36:00
Thread-ID: 1028583
3 Beiträge
Fehlen eines VERWEIS (f.BrowseFolder) auffangen
Franz

Hallo Profis!
Eine ergänzende Frage zu I"InitialFolder" etwas da unten:
ich wollte die Funktion noch absichern aber der "On Error Goto" streikt obwohl ich bewusst den Verweis deaktiviert habe. Was mache ich falsch oder kriegst man dies anders hin?
Function BrowseFolder(Optional...
10.01.2009 17:27:29
Thread-ID: 1038487
3 Beiträge
Anzeige
SVerweis - Zugriff auf ext. Tabellen ->Datei gross
sk

Hallo zusammen,
ich habe eine Preislistendatei die ich anhand von externen Tabellen mit SVerweis aktualisiere.
Ich suche anhand der der hinterlegten Artikelnummer in meiner Datei per SVerweis im jeweiligen
Datenbankextrakt der Artikelstammdaten(12MB) und Artikelpreise(1.5MB) die pas...
26.01.2009 14:43:35
Thread-ID: 1043902
3 Beiträge
SVERWEIS greift auf die Tabellen, die nicht gibt
Sophie

Hallo liebe Excel Experten!
Ich habe eine ziemlich unheimliche Sache: folgendes SVERWEIS Formel greift auf die Tabellen, die in der Datei gar nicht gibt bzw. die ich nicht finden kann.
=SVERWEIS(Tabelle_Rohdaten[[#Diese Zeile];[WE_ID]]; Tabelle_Datenbank_V20_fe[[WE_ID]:[SummevonME...
29.01.2009 09:35:00
Thread-ID: 1044816
8 Beiträge
Sverweis auf mehere Werte
Excellent

Hallo,
stehe mal wieder vor einem Problem und bräuchte Eure Hilfe.
Ich habe 2 Tabellenblätter:
Blatt1:
Nummer gesucht: Bezeichnungen aus Blatt2
1................ x,y,z
3................ v,m
5................ ......
19.06.2009 10:15:26
Thread-ID: 1082805
6 Beiträge
SVERWEIS auf externe Arbeitsmappe
BuStue

Hallo Leute kann mir vielleicht jemand helfen?
Ich erhalte bei folgender Formel eine Fehlermeldung auf das Laufwerk.
=Wenn(ISTNV(SVERWEIS(C2;'H:\PREISE 2009\ELC_08\[EDE.xls]Tabelle1'EAN;1;Falsch));"";SVERWEIS(C2; 'H:\PREISE 2009\ELC_08\[EDE.xls]Tabelle' EAN;1;Falsch))
Für Eure...
10.08.2009 12:59:00
Thread-ID: 1094691
4 Beiträge
Hyperlink - TextToDisplay verweis auf Zelle
Andreas

hallo zusammen
diesen code habe ich aus einem makro mit welchem ein inhaltsverzeichnis erstellt wird. nun möchte ich aber anstelle des blattnamens jeweils den wert aus der zelle c14 als text bei «TextToDisplay». ist das möglich? wie müsste die eingabe «wbVerz.Sheets(i).Name» abgeändert werd...
30.09.2009 07:58:20
Thread-ID: 1106316
3 Beiträge
SVERWEIS - variabler Formelaufbau
Loewelutz

Liebe Ex(cel)perten,
bei der Erstellung einer Vorlage für Sportveranstaltungen habe ich Probleme. Da mit der Vorlage viele unerfahrene Anwender arbeiten, bin ich bemüht, den Aufbau und die Handhabung so einfach wie möglich zu gestalten und die Berechnungen weitgehend zu automatisieren.
...
10.12.2009 01:13:13
Thread-ID: 1122604
5 Beiträge
sverweis auf externe Tabelle
Josef B
Hallo MarkusVersuche es so:
=SVERWEIS(A5;INDIREKT("'C:\aufmass\["&F5&".xls]Tabelle1'!$A$6:$C$19");3;FALSCH)mfg josef
15.04.2002 21:31:37
Thread-ID: 113536
2 Beiträge
sverweis auf einen Teil der Suchspalte
Silvi

Hallo liebe Excelprofis!
Kann mir jemand sagen, ob es eine Möglichkeit gibt, wenn ich in der Suchspalte der Matrix eines sverweises nur einen Teil abfragen möchte? Ich möchte es ohne Hilfsspalte hinkriegen, deshalb diese Frage.
=SVERWEIS(A1;LINKS(Tabelle1!A1:A100;4);7;0) geht natürlich...
09.02.2010 09:27:28
Thread-ID: 1136888
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige