Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
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
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

find Methode Bereich kann nicht zugeordnet werden

Forumthread: find Methode Bereich kann nicht zugeordnet werden

find Methode Bereich kann nicht zugeordnet werden
Jonathan
Hey,
ich habe folgenden - bisher funktionierenden - Code zum Suchen eines bestimmten Wertes innerhalb eines def. Bereichs:

Set WkSh = ThisWorkbook.Sheets("Suchwerte")
With WkSh.Cells
Set rZelle = .Range(WkSh.Cells(2, 1), WkSh.Cells(ersteZelleoDaten(Sheets("Suchwerte"), 1)  _
- 1), 6).find(Me.txt_find.Value, LookAt:=xlPart, LookIn:=xlValues)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
Me.lbox_find.AddItem " "
Me.lbox_find.List(lLiBox, 0) = WkSh.Cells(rZelle.Row, 1).Value
Me.lbox_find.List(lLiBox, 1) = WkSh.Cells(rZelle.Row, 2).Value
Me.lbox_find.List(lLiBox, 2) = WkSh.Cells(rZelle.Row, 3).Value
Me.lbox_find.List(lLiBox, 3) = WkSh.Cells(rZelle.Row, 4).Value
Me.lbox_find.List(lLiBox, 4) = WkSh.Cells(rZelle.Row, 5).Value
lLiBox = lLiBox + 1
Set rZelle = .FindNext(rZelle)
Loop While Not rZelle Is Nothing And rZelle.Address  sFundst
End If
End With
Ich habe irgendwas daran geändert, weiß aber nicht mehr was - jetzt erhalte ich für Set rZelle = ... die Fehlermeldung:
Fehler beim Kompilieren:
Falsche Anzahl an Argumenten oder ungültige Zuweisung einer Eigenschaft.
Könnt Ihr mir kurz helfen, wo der Fehler liegt?
Danke Euch!
Anzeige
Cells hat keine Eigenschaft Range, ...
26.09.2011 13:17:49
Luc:-?
…Jonathan;
With WkSh.Cells: Set rZelle = .Range… — Cells ist falsch, anderenfalls muss anders umgebaut wdn.
Gruß Luc :-?
AW: find Methode Bereich kann nicht zugeordnet werden
26.09.2011 13:18:28
Rudi
Hallo,

....
Set WkSh = ThisWorkbook.Sheets("Suchwerte")
With WkSh
Set rZelle = .Range(.Cells(2, 1), .Cells(ersteZelleoDaten(WkSh, 1) - 1), 6).Find(Me. _
txt_find.Value, LookAt:=xlPart, LookIn:=xlValues)
If Not rZelle Is Nothing Then
....

Gruß
Rudi
Anzeige
AW: find Methode Bereich kann nicht zugeordnet werden
26.09.2011 13:24:00
Jonathan
Hey,
das habe ich auch gedacht - trotz Änderung des Codes erhalte ich die selbe Fehlermeldung...
der komplette Code:
26.09.2011 13:31:58
Jonathan 

Private Sub find()
Dim WkSh      As Worksheet
Dim rZelle    As Range
Dim sFundst   As String
Dim lLiBox    As Long
If Me.txt_find.Value = "" Then
MsgBox "Bitte hinterlegen sie einen Suchbegriff", _
48, "   Hinweis für " & Application.UserName
Me.lbox_find.SetFocus
Exit Sub
Else
Me.lbox_find.Clear
End If
Set WkSh = ThisWorkbook.Sheets("Suchwerte")
With WkSh
Set rZelle = .Range(.Cells(2, 1), .Cells(ersteZelleoDaten(Sheets("Suchwerte"), 1) - 1), 6) _
.find(Me.txt_find.Value, LookAt:=xlPart, LookIn:=xlValues)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
Me.lbox_find.AddItem " "
Me.lbox_find.List(lLiBox, 0) = WkSh.Cells(rZelle.Row, 1).Value
Me.lbox_find.List(lLiBox, 1) = WkSh.Cells(rZelle.Row, 2).Value
Me.lbox_find.List(lLiBox, 2) = WkSh.Cells(rZelle.Row, 3).Value
Me.lbox_find.List(lLiBox, 3) = WkSh.Cells(rZelle.Row, 4).Value
Me.lbox_find.List(lLiBox, 4) = WkSh.Cells(rZelle.Row, 5).Value
lLiBox = lLiBox + 1
Set rZelle = .Cells.FindNext(rZelle)
Loop While Not rZelle Is Nothing And rZelle.Address  sFundst
End If
End With
If lLiBox = 0 Then
MsgBox "Zum Suchbegriff  """ & Me.txt_find.Value & """  wurde nichts " & _
"passendes gefunden.", _
48, "   Hinweis für " & Application.UserName
With Me.txt_find
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Else
Me.lbox_find.ListIndex = 0
Me.lbox_find.SetFocus
End If
End Sub

Anzeige
Warum so eine gemischte Form aus benannten ...
26.09.2011 13:35:38
Luc:-?
…und unbenannten Find-Parametern, Leute?
Und was ist/macht ersteZelleoDaten(WkSh, 1)? Sieht doch sehr merkwürdig aus, da WkSh doch ein Worksheet sein soll!
Luc :-?
AW: Warum so eine gemischte Form aus benannten ...
26.09.2011 13:41:37
Jonathan
Was meinst du mit benannten und unbenannten find-Parametern?

Function ersteZelleoDaten(ByRef sh As Worksheet, ByVal Col As Long)
Dim intCounter As Integer
With sh
intCounter = [DatenUB].Row
Do Until .Cells(intCounter, Col).Value = ""
intCounter = intCounter + 1
If intCounter > 100000 Then
Exit Do
End If
Loop
ersteZelleoDaten = intCounter
End With
End Function

Anzeige
Na toll, 'ne udF, macht's nicht gerade ...
26.09.2011 13:57:19
Luc:-?
…übersichtlicher, Jonathan!
So kann ersteZelleoDaten maximal 100001 sein Neue Frage: Was ist [DatenUB]? Vermute, ein benannter Bereich bzw eine Variable für den Namen desselben. Das ist ohnehin ungünstig, weil langsames Uralt-Pgmier-Relikt → Range("DatenUB") bzw Range(DatenUB) (nur falls DatenUB eine Globalvariable für den Namen ist — ich arbeite idR so!) wäre besser. Klärt das Problem aber kaum.
benannter Parameter (Bsp): name:=wert
Gruß Luc :-?
Anzeige
habs gelöst
26.09.2011 14:01:07
Jonathan
Hey,
danke für die Erklärung!
Werde es entsprechend anpassen; mein Problem hat sich durch Änderung des Bereichs auf 

Set rZelle = .Range("A2:F" & ersteZelleoDaten(Sheets("Suchwerte"), 1, 2) - 1).find(Me.txt_find.Value, LookAt:=xlPart, LookIn:=xlValues)

gelöst!
Danke!
Anzeige
Bitte sehr! Gruß owT
27.09.2011 00:33:50
Luc:-?
:-?
AW: Warum so eine gemischte Form aus benannten ...
26.09.2011 13:45:22
Jonathan
Hey,
wenn ich folgenden Teil separiere, erhalte ich nach wie vor die Fehlermeldung:

Sub testaa()
Dim rZelle As Range
MsgBox ersteZelleoDaten(Sheets("Suchwerte"), 1, 2) - 1
Set WkSh = ThisWorkbook.Sheets("Suchwerte")
With WkSh
Set rZelle = .Range(.Cells(2, 1), .Cells(ersteZelleoDaten(Sheets("Suchwerte"), 1, 2) - 1), 6)
End With
End Sub

Die Funktion habe ich angepasst:

Function ersteZelleoDaten(ByRef sh As Worksheet, ByVal Col As Long, ByVal ersZei As Long)
Dim intCounter As Integer
With sh
intCounter = ersZei
Do Until .Cells(intCounter, Col).Value = ""
intCounter = intCounter + 1
If intCounter > 100000 Then
Exit Do
End If
Loop
ersteZelleoDaten = intCounter
End With
End Function

Anzeige
;

Forumthreads zu verwandten Themen

Die Arbeitsmappe kann nicht geschlossen werden!
Andreas

Die Arbeitsmappe kann nicht geschlossen werden, da sie von einer anderen
Arbeitsmappe verwendet wird!"
Diese Meldung bekomme ich in Excel 2007, wenn ich in meinem VBA- Code
"workbooks.close" verwende.
Es sind aber keine weiteren Mappen geöffnet, kann mir da jemand weiterhelfen?<...
13.08.2008 20:56:05
Thread-ID: 1001659
2 Beiträge
XML Datei kann nicht geöffnet werden
Josef

Guten Morgen!
Ich wollte mit folgendem code (gefunden in der Recherche) eine xml Datei aus einem Arbeitsblatt erstellen:
Sub Erzeuge_xml() Dim Original As String Dim Kopie As String Dim t As Integer If Len(Dir("H:\Statistik HVB", vbDirectory)) = 0 Then 'Prüfe ob Verzeichniss vorhanden...
18.11.2008 07:44:00
Thread-ID: 1025458
2 Beiträge
Anzeige
Pivottable kann in 2003 nicht bearbeitet werden
Ralf

Hallo,
ein Kunde von mir arbeitet seit einiger Zeit mit Excel 2007 und erstellt
umfangreiche PivotTables.
Da einige Mitarbeiter aber noch mit Excel 2003 arbeiten, müssen diesen die Dateien
im 2003-Format zur Verfügung gestellt werden. Dabei wurde festgestellt, dass die
Pivot...
08.01.2009 19:08:36
Thread-ID: 1038015
3 Beiträge
Fehlermeldung "Objekt kann nicht entladen werden"
Nik

Hallo.
Bin am Verzweifeln.
Mein excel ist im VB-Editor offen und ich versuche, das Projekt zu speichern.
Es kommt immer wieder die Fehlermeldung, dass ich excel nicht speichern kann.
Im VB-Editor versuche ich, die Userform frmStart zu schließen.
Es kommt die Fehlermeldung La...
24.02.2009 13:59:02
Thread-ID: 1053502
2 Beiträge
Anzeige
Datei öffnet nicht mehr!!
Andreas

Hallo Forum,
habe eine Excel-Datei erstellt und kann sie jetzt nicht mehr öffnen.
Beim Versuch sie zu öffnen startet excel und unten links kommt auch der kleine "ladebalken".
Doch dann gehts nicht weiter.
Kann man mir helfen, oder ist die arbeit hin?
Gruß Andreas
06.07.2009 22:25:21
Thread-ID: 1086797
4 Beiträge
Solver - Makro aufgezeichnet, lässt sich nicht abs
u_hoernchen

habe über Makro Aufzeichnen die Benutzung des Solvers aufgezeichnet. Der Code sieht dann aus wie folgt.
SolverOk SetCell:="$K$39", MaxMinVal:=3, ValueOf:="0", ByChange:="$K$16"
SolverSolve
Beim Abspielen hängt er sich dann allerdings bei "SolverOK" auf und sagt "Sub oder Function n...
20.07.2009 13:09:09
Thread-ID: 1089960
3 Beiträge
Geöffnete Datei wird nicht angezeigt...
Ruediger

Hallo zusammen,
ich habe eine Datei - mit einigen Verknüpfungen auf eine andere Datei - versuchen wollen zu öffnen. Ich werde auf gefragt, ob ich aktualisieren will oder nicht. Drücke ich aktualisieren als auch nicht aktualisieren, wird die Datei zwar geöffnet, aber nicht angezeigt.
Wo...
22.07.2009 17:02:42
Thread-ID: 1090605
3 Beiträge
Anzeige
Datei lässt sich nicht öffnen
einfachf

Hallo Zusammen ich schreibe gerade an einem Macro.
Dazu soll aus einer bestehenden datei eine andere Datei geöffnet werden.
Leider funzt das nicht und ich weiß nicht warum.
Hier mein Code.
Dim EX As Excel.Application
Dim WB As Workbook
Dim WS As Worksheet
Set EX = Cr...
06.08.2009 12:12:10
Thread-ID: 1094009
3 Beiträge
Zahlen werden nicht erkannt
Emanuel

Hallo,
ich habe ein Problem mit einer fremden Excel-Datei. Ich kann in Spalte G (bzw. H - war ein Selbstversuch) keine Summen bilden. Anscheinend wird diese Spalte nicht als Zahlenspalte erkannt auch nach Formatierung etc.
Könnt Ihr mir da weiterhelfen?
Viele Grüsse Emanuel
Link...
02.09.2009 11:32:24
Thread-ID: 1100009
9 Beiträge
Anzeige
Copy kann nicht ausgeführt werden
Heinz

Liebe Excelfreunde,
ich schlage mich schon lange mit folgendem Problem herum:
Ich habe einige Wertungsroutinen für einen Triathlon-Cup geschrieben. Da gibt es Einzel-, Gesamt- und Altersklassenwertungen. Das Ganze läuft einige Zeit. Bei der letzten (Altersklassen) Wertung gibt es plötzl...
08.10.2009 17:24:53
Thread-ID: 1108209
3 Beiträge
Zahlen werden nicht als Zahlen erkannt
Wolfango

Und noch ein Problem Phänomen:
ich habe hier Datenmaterial in Excel, welches aus einem anderen EDV-system stammt.
https://www.herber.de/bbs/user/66024.xls
Excel interpretiert die Zahlen als Text (erkennbar an der linksbündigkeit, da hilft auch kein anderes Zahlenformat) und somit la...
18.11.2009 15:57:43
Thread-ID: 1118359
4 Beiträge
Zahlen werden nicht als Zahlen erkannt
Wolfango

Und noch ein Problem Phänomen:
ich habe hier Datenmaterial in Excel, welches aus einem anderen EDV-system stammt.
https://www.herber.de/bbs/user/66024.xls
Excel interpretiert die Zahlen als Text (erkennbar an der linksbündigkeit, da hilft auch kein anderes Zahlenformat) und somit la...
18.11.2009 16:04:17
Thread-ID: 1118360
6 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