Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1472to1476
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
1472to1476
1472to1476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anwendungs- oder objektdefinierter Fehler

Anwendungs- oder objektdefinierter Fehler
08.02.2016 16:48:11
Ulrich
Hallo zusammen!
Was ist an diesem Makro falsch.
Bekomme Fehlermeldung "Anwendungs- oder objektdefinierter Fehler".
Private Sub suchen_Max_Click()
Dim Spalte As Integer
Dim Bereich As Range
Spalte = Range("A2").Value
Set Bereich = Range(Spalte, "7:100")
Bereich.Find(Application.Max(Bereich)).Select
End Sub

mfg Ulrich

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anwendungs- oder objektdefinierter Fehler
08.02.2016 17:21:40
Michael
Hallo Ulrich!
Ich nehme an Du willst die Zelle mit dem höchsten Wert einer Spalte ansteuern, wobei die durchsuchte Spalte in A2 angegeben wird und innerhalb der Zeilen (!) 7:100 gesucht wird?
Dann zB so:

Sub a()
Dim Spalte As Long
Dim Bereich As Range
With ActiveSheet
Spalte = .Range("A2").Value
Set Bereich = .Range(.Cells(7, Spalte), .Cells(31, Spalte))
Bereich.Find(WorksheetFunction.Max(Bereich)).Select
End With
End Sub
Bei Range-Angabe (auch Cells) immer zuerst Zeilen, dann Spalten Angeben - bei Dir ist das schon mal verdreht Range(Spalte, "7:100"), abgesehen davon, dass das mit der Zeilenangabe sowieso so nicht klappen würde.
Kommst Du damit zurecht?
LG
Michael

Anzeige
AW: Anwendungs- oder objektdefinierter Fehler
08.02.2016 17:48:50
Ulrich
Hallo Michael!
Vielen Dank für deine schnelle Hilfe.
In ("A2") steht die Spaltenzahl drin. In diesem Fall 3 für Spalte C. Es funktioniert.
Trage ich in ("A2") die 4 ein, für Spalte D dann funktioniert es nicht mehr.
Woran liegt das?
mfg Ulrich

AW: Anwendungs- oder objektdefinierter Fehler
08.02.2016 17:58:36
Michael
Hallo!
Kann ich nicht nachvollziehen. Aber beachte - in meinem Code hab ich nur bis Zeile 31 gesucht, weil ich nicht soviele Testdaten eingetragen habe.
D.h. Du müsstest diese Zeile anpassen
Set Bereich = .Range(.Cells(7, Spalte), .Cells(31, Spalte))
auf 
Set Bereich = .Range(.Cells(7, Spalte), .Cells(100, Spalte))
Passt?
LG
Michael

Anzeige
AW: Anwendungs- oder objektdefinierter Fehler
08.02.2016 18:24:12
Ulrich
Hallo Michael!
Danke für den Hinweis. Das habe ich verstanden.
Doch ich denke das Problem liegt woanders. Schau mal bei Daniel.
Ulrich

AW: Anwendungs- oder objektdefinierter Fehler
08.02.2016 17:26:05
Daniel
Hi
eine Bitte, wenn du einen Fehler bekommst, dann gib bitte auch die Zeile an, in der der Fehler auftritt.
Das vereinfacht uns die Fehlersuche, weil wir dann gleich wissen, wo wir schauen müssen.
also der Fehler wird wahrscheinlich in der Zeile Set Bereich = ... auftreten, weil dein Range-Definition hier Unsinn ist.
Vermutlich willst den Bereich auf die in A2 stehende Spalte von Zeile 7 bis Zeile 100 setzen (aber warum muss ich das vermuten, wenn du mir auch sagen könntest, was du mit diesem Makro erreichen willst?)
das geht geht so: 
Set Bereich = Range(Cells(7, Spalte), Cells(100, Spalte))
oder so 
Set Bereich = Intersect(Columns(Spalte), Range("7:100"))
oder so 
Set Bereich = Cells(7, Spalte).Resize(94, 1)
Gruß Daniel

Anzeige
AW: Anwendungs- oder objektdefinierter Fehler
08.02.2016 18:18:55
Ulrich
Hallo Daniel!
Das verstehe ich nun überhaupt nicht:
In A2 und A3 stehen die Spalten-Nummern. Trage ich in A2 und A3 die Spalten-Nr. 3 ein, funktionieren beide Makros.
Trage ich in A2 und A3 die Spalten-Nr. 4 ein, funktioniert nur Min.
Max gibt Fehlermeldung in der letzten Zeile "Bereich.Find ...".
Fehler: "Objektvariable oder With-Blockvariable nicht festgelegt"
Sub suchen_Max_Click()
Dim Spalte As Long
Dim Bereich As Range
With ActiveSheet
Spalte = .Range("A2").Value
Set Bereich = .Range(.Cells(7, Spalte), .Cells(31, Spalte))
Bereich.Find(WorksheetFunction.Max(Bereich)).Select
End With
End Sub

Sub suchen_Min_Click()
Dim Spalte As Long
Dim Bereich As Range
With ActiveSheet
Spalte = .Range("A3").Value
Set Bereich = .Range(.Cells(7, Spalte), .Cells(31, Spalte))
Bereich.Find(WorksheetFunction.Min(Bereich)).Select
End With
End Sub

mfg Ulrich

Anzeige
AW: Anwendungs- oder objektdefinierter Fehler
08.02.2016 18:41:23
Daniel
Hi
wie gesagt, ohne Beispieldatei nicht nachvollziehbar.
probier mal alternativ das hier für Max (für min dann analog):
Dim Spalte As Long
Dim Bereich As Range
With ActiveSheet
Spalte = .Range("A2").Value
Set Bereich = .Range(.Cells(7, Spalte), .Cells(100, Spalte))
End With
With WorksheetFunction
Bereich.Cells(.Match(.Max(Bereich), Bereich, 0), 1).Select
End With
Bei Zahlenwerten ist das Worksheetfunction.Match zum Ermitteln der relativen Zeilennummer manchmal zuverlässiger als das .Find
btw, wieseo durchsuchst du plötzlich nur bis Zeile 31 und nicht mehr bis Zeile 100 wie vorher?
Hat sich deine Datei in der Zwischenzeit geändert?
gruß Daniel

Anzeige
AW: Anwendungs- oder objektdefinierter Fehler (erl
08.02.2016 18:56:46
Ulrich
Mensch Daniel!
Jetzt funktioniert es.
Das war es gewesen.
Vielen Dank für eure promte Hilfe.
mfg Ulrich

305 Forumthreads zu ähnlichen Themen

Inputbox Schriftart oder Farbe verändern
Gunter

Hallo Zusammen,
ich habe eine Inputbox, über die eine Passwortabfrage gesteuert wird. Leider ist das Passwort im Eingabefeld zu sehen. Ist es möglich den Text z.B. in der Schriftart "Wingdings" zu formatieren, oder
die Schriftfarbe in weiss, damit das Passwort nicht mehr zu sehen ist?
28.08.2008 15:32:00
Thread-ID: 1005474
7 Beiträge
Anzeige
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
Zugriff auf Access-DB über DAO oder ADO
Armin

Hallo,
ich hätte eine allgemeine Frage zum Zugriff auf Access-Datenbanken.
Welche Zugriffsmethode auf eine Access-DB würdet Ihr generell empfehlen: ADO oder DAO?
Gibt es in der Praxis Vor- oder Nachteile für die eine oder andere Zugriffsweise?
Vielen Dank für Euere Meinungen und...
03.09.2008 14:28:55
Thread-ID: 1007110
2 Beiträge
Anzeige
PIVOTDATENZUORDNEN mit zwei Kriterien
Andi

Hallo Experten,
Ich versuch zurzeit eine Auswertung aus einer Pivot Tabelle zu erstellen, komm jedoch nicht weiter da ich zwei Kriterien in der X-achse und eins in der Y-achse berücksichtigen muss. Das heisst ich kann nicht einfach X-Achse und Y-achse mit der Pivot-tabelle abgleichen, sonde...
14.10.2008 12:16:00
Thread-ID: 1016295
5 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Schaltflächen oder Image Beispiele
Walter

Hallo Zusammen,
erst mal ALLEN ein gesundes neues Jahr !!!
Ich such Schaltflächen oder Image Beispiele, hatte mal in Google gesucht, leider
nichts gefunden,
vielleicht hat jemand eine Beispielmappe,
mfg Walter
01.01.2009 13:10:00
Thread-ID: 1036231
9 Beiträge
Excel-Bug oder was?
Andreas

Hallo,
Haben seit gestern folgendes Problem, welches auch schon zu
"Schäden" geführt hat. Sonst hätte ich es ja auch nicht bemerkt.
Excel-Problem nach Update von MS Office Kompatibilitätspack 2007
Wenn eine Exceldatei *.xls (2003) über Extras - Schutz - Arbeitsmappe schützen
...
16.01.2009 12:09:00
Thread-ID: 1040524
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
6
5
5
1
5
4
5
6
8
2
11
2
2
3
8
4
7
3
15
3
16
5
4
2
1