Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1228to1232
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
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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!
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
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 :-?
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

306 Forumthreads zu ähnlichen 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
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
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
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
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
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
1
1
2
1
3
2
2
2
8
2
3
5
2
1
4
1
5
2
19
7
1
7
4
6
3