Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1484to1488
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nach BEZUG in Bereich suchen per Makro

nach BEZUG in Bereich suchen per Makro
31.03.2016 02:17:46
Gisela
Hallo,
ich will nach dem Begriff BEZUG in einem festgelegten Bereich hier O19 bis EO9992 per Makro in den Werten suchen lassen:
Sub Bezugsuchen()
Range("O19:EO9992").Select
Selection.Find(What:="BEZUG", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub
Jedoch gibt er immer einen Fehler aus, dass eine Objekt-Variable nicht gefunden wird kann. Wie/was muss ich debuggen?
Beste Grüsse
Gisela

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nach BEZUG in Bereich suchen per Makro
31.03.2016 08:20:00
EtoPHG
Hallo Gisela,
Ich nehme an, dass du nach BEZUG-Fehlern suchen möchtest. Das funktioniert so nicht, weil diese Zellen zwar #BEZUG! anzeigen, aber du kannst nicht 'textlich' danach suchen. Dies sind Fehlerwerte und das kannst du z.B. mit SpecialCells(xlCellTypeFormulas, xlErrors) bewerkstelligen.
Folgender Code in einem Tabellenblatt findet alle solchen Fehlerwerte: 
Sub Fehlerwerte()
Dim rC
On Error Resume Next
For Each rC In UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors).Cells
MsgBox "Fehler in " & rC.Address & vbCrLf & _
"Formel: " & rC.FormulaLocal
Next rC
On Error GoTo 0
End Sub
Gruess Hansueli

Anzeige
AW: nach BEZUG in Bereich suchen per Makro
31.03.2016 22:27:14
Gisela
Hallo,
nach Deinem Makro passiert rein gar nichts...

AW: nach BEZUG in Bereich suchen per Makro
01.04.2016 08:19:11
EtoPHG
Hallo Gisela,
Das ist doch super. Wenn nichts passiert, dann hat es auch keine Bezugsfehler im getesteten Tabellenblatt. Aber wenn du deine Kommunikation gerade mal auf solche Häppchen wie obiges einschränkst, bin ich an einer weiteren Diskussion des Problems nicht mehr interessiert!
Gruess Hansueli

AW: nach BEZUG in Bereich suchen per Makro
01.04.2016 22:27:05
Gisela
Hallo Hansueli,
das Problem ist, dass er trotz #BEZUG!-Fehlern in der Arbeitsmasppe diese nicht findet und nach einer gefühlten Zehntelsekunde bereits mit seinen Berechnungen fertig ist...
Gruss
Gisela

Anzeige
AW: nach BEZUG in Bereich suchen per Makro
31.03.2016 09:39:01
Fennek
Hallo Gisela,
die einfachste Form ist:

Sub Gisela()
Dim rng as range
Set rng = range("O19:EO9992").find("Beginn")
Msgbox rng.address
End sub
Falls nötig kann man noch Parameter setzen, wie lookin:=xlpart oder ähnliches. Für wiederholtes Suchen gibt es 'findnext', die Syntax kannst du guggeln.
Mfg

AW: nach BEZUG in Bereich suchen per Makro
31.03.2016 22:22:13
Gisela
Hallo Fennek
Sub AAAAAABereichmarkieren()
Dim rng As Range
Set rng = Range("O19:EO9992").Find("BEZUG")
MsgBox rng.Address
End Sub
führt wieder zum Fehler wegen fehlender Objekt-Variable...

Anzeige
AW: Suchbegriff/ What:="#REF!"
31.03.2016 18:40:38
Gerd
Hallo Gisela,
wenn du den englischen Fehlerwert nimmst, kannst du durchaus wie vorgesehen mit der Find-Methode suchen.
Dann halt noch zusätzlich Lookat:=xlwhole setzen.
Gruß Gerd

AW: Suchbegriff/ What:="#REF!"
31.03.2016 22:28:53
Gisela
?
Was meinst Du genau...

AW: Suchbegriff/ What:="#REF!"
31.03.2016 23:04:05
Gerd
Aha Gisela, schwieriger Fall? 
Sub Bezugsuchen2()
Dim Zelle As Range
Set Zelle = Range("O19:EO9992").Find(What:="#REF!", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not Zelle Is Nothing Then Zelle.Activate
End Sub

Gruß Gerd

Anzeige
AW: Suchbegriff/ What:="#REF!"
01.04.2016 03:10:10
Gisela
Hallo Gerd,
jetzt erscheint folgende Fehlermeldung:
Typenkonflikt (Fehler 13)...

AW: Suchbegriff/ What:="#REF!"
01.04.2016 07:19:42
Gerd
Hallo Gisela, o.K.,
das liegt aber an dem von dir übernommenen Argument After:=ActiveCell .
Diese muss im Bereich sein. 
Sub Bezugsuchen3()
Dim Zelle As Range
Range("O19").Activate
Set Zelle = Range("O19:EO9992").Find(What:="#REF!", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not Zelle Is Nothing Then Zelle.Activate
End Sub

Gruß Gerd

Anzeige
AW: Suchbegriff/ What:="#REF!"
01.04.2016 22:52:09
Gisela
Hallo Gerd,
klappt jetzt hervorragend, vielen Dank!
Noch eine Frage:
Wenn er keinen Fehler findet, ist ja anschliessend O19 markiert, ich habe versucht RANGE("B1").SELECT als letzte Zeile dem Makro hizuzufügen, was dann bei nicht vorhandenem #BEZUG! auch funktioniert,sobald aber ein Bezugsfehler vorhanden ist, gibt er eine Fehlermeldung aus. Wie kann ich dieses Problem vermeiden?
VG
Gisela

AW: Suchbegriff/ What:="#REF!"
01.04.2016 22:58:38
Gisela
Hallo Gerd,
ich habe das Problem jetzt dadurch gelöst, dass ich die RANGE("B1").SELECT-Zeile einfach vor die Zeile IF NOT... geschoben habe...
Nochmals vielen Dank!
VG
Gisela
Anzeige

300 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
In mehrspaltiger ListBox Einträge in Spalte zählen
Josef

Hallo!
Mit "Label140.Caption = ListBox9.ListCount" kann ich die eingetragenen Zeilen in einer Listbox zählen und in einem Label eintragen lassen.
Ist es möglich, in einer merhspaltigen ListBox Einträge in einer Spalte z.B. Spalte 8 zu zählen.?
Wenn ja, wie würde hier bitte eine VBA...
26.08.2008 12:10:10
Thread-ID: 1004750
4 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
Vergleichen mit Funktion WENN
Uwe

Hallo liebe Forummitglieder,
ich habe ein Problem mit vergleichen von Zahlen.
Ich habe schon selbst probiert, aber das haut hinten und vorne nicht hin.
=WENN(ODER(B10=1;"100")WENN(B10=2;"200")WENN(B10=3;"300")WENN(B10=4;"400"))
Ich möchte wenn in B10 1 steht 100, bei 2 200, bei...
01.10.2008 08:25:00
Thread-ID: 1013514
9 Beiträge
Wert der letzten befüllten Zelle in Bereich
Bibo

Hallo EXCEL-Freunde,
ich habe bei excelformeln.de bei Beate Schmitz und Aladin Akyurek abgekupfert und ermittle mit der genauso kurzen wie eleganten Formel =VERWEIS(9^99;A1:F1) oder =VERWEIS(9^99;C1:C10) die letzten Zahlen in den angegebenen Bereichen.
Das klappt auch wunderbar, soweit...
12.10.2008 15:32:39
Thread-ID: 1015865
5 Beiträge
Such in Spalte Ergebnis in listbox
Markus

Hallo zusammen,
hab wieder mal ein Problem.
Hab ne Userform mit mehreren Textboxen und einer Listbox
In Textbox1 steht mein Suchtext das makro sucht nun im angegebenen Arbeitsblatt nach dem Text und
schreibt mir alle Daten aus der Gefundenen Zeile in Textboxen.
Hab nun fest...
14.10.2008 11:24:35
Thread-ID: 1016271
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
3
4
4
3
3
8
4
2
4
4
3
2
5
3
2
8
13
10
4
5
4
2
3