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
1344to1348
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
1344to1348
1344to1348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Methode Range für das Objekt_Global schlägt fehl

Methode Range für das Objekt_Global schlägt fehl
20.01.2014 10:14:29
Howard

Hallo,
hat jemand eine Erklärung warum bei folgendem, recht einfachen Script die Fehlermeldung kommt, daß die Methode Range für das Objekt_Global fehlgeschlagen ist?
Geld markiert ist die erste Zeile nach Do:
If Range("12Shots!N68") .......
Sub Shot1()
Do
If Range("12Shots!N68") > 0 And Range("12Shots!N69") > 0 And Range("12Shots!N70") > 0 Then
Randomize Timer
Range("12Shots!O110") = Range("12Shots!N68")
Range("12Shots!R110") = Range("12Shots!N69")
Range("12Shots!U110") = Range("12Shots!N70")
Range("12Shots!X110") = Int(49 * Rnd) + 1
Range("12Shots!AA110") = Int(49 * Rnd) + 1
Range("12Shots!AD110") = Int(49 * Rnd) + 1
ElseIf Range("12Shots!N68") > 0 And Range("12Shots!N69") > 0 And Range("12Shots!N70") = 0  _
Then
Randomize Timer
Range("12Shots!O110") = Range("12Shots!N68")
Range("12Shots!R110") = Range("12Shots!N69")
Range("12Shots!U110") = Int(49 * Rnd) + 1
Range("12Shots!X110") = Int(49 * Rnd) + 1
Range("12Shots!AA110") = Int(49 * Rnd) + 1
Range("12Shots!AD110") = Int(49 * Rnd) + 1
ElseIf Range("12Shots!N68") > 0 And Range("12Shots!N69") = 0 And Range("12Shots!N70") = 0  _
Then
Randomize Timer
Range("12Shots!O110") = Range("12Shots!N68")
Range("12Shots!R110") = Int(49 * Rnd) + 1
Range("12Shots!U110") = Int(49 * Rnd) + 1
Range("12Shots!X110") = Int(49 * Rnd) + 1
Range("12Shots!AA110") = Int(49 * Rnd) + 1
Range("12Shots!AD110") = Int(49 * Rnd) + 1
Else
Randomize Timer
Range("12Shots!O110") = Int(49 * Rnd) + 1
Range("12Shots!R110") = Int(49 * Rnd) + 1
Range("12Shots!U110") = Int(49 * Rnd) + 1
Range("12Shots!X110") = Int(49 * Rnd) + 1
Range("12Shots!AA110") = Int(49 * Rnd) + 1
Range("12Shots!AD110") = Int(49 * Rnd) + 1
End If
Range("12Shots!N123").Calculate
Loop Until Range("12Shots!N123") = "OKAY"
Range("Berechnungen!E30").Value = Range("12Shots!O109")
Range("Berechnungen!F30").Value = Range("12Shots!R109")
Range("Berechnungen!G30").Value = Range("12Shots!U109")
Range("Berechnungen!H30").Value = Range("12Shots!X109")
Range("Berechnungen!I30").Value = Range("12Shots!AA109")
Range("Berechnungen!J30").Value = Range("12Shots!AD109")
Range("12Shots!AA39").Value = Range("12Shots!O109")
Range("12Shots!AD39").Value = Range("12Shots!R109")
Range("12Shots!AG39").Value = Range("12Shots!U109")
Range("12Shots!AJ39").Value = Range("12Shots!X109")
Range("12Shots!AM39").Value = Range("12Shots!AA109")
Range("12Shots!AP39").Value = Range("12Shots!AD109")
End Sub
Gruß
Howard

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

Betreff
Datum
Anwender
Anzeige
AW: Methode Range für das Objekt_Global schlägt fehl
20.01.2014 10:22:42
Rudi
Hallo, 
Sub aaaa()
With Sheets("12Shots")
Do
If .Range("N68") > 0 And .Range("N69") > 0 And .Range("N70") > 0 Then
Randomize Timer
.Range("O110") = .Range("N68")
.Range("R110") = .Range("N69")
.Range("U110") = .Range("N70")
.Range("X110") = Int(49 * Rnd) + 1
.Range("AA110") = Int(49 * Rnd) + 1
.Range("AD110") = Int(49 * Rnd) + 1
ElseIf .Range("N68") > 0 And .Range("N69") > 0 And .Range("N70") = 0 Then
Randomize Timer
.Range("O110") = .Range("N68")
.Range("R110") = .Range("N69")
.Range("U110") = Int(49 * Rnd) + 1
.Range("X110") = Int(49 * Rnd) + 1
.Range("AA110") = Int(49 * Rnd) + 1
.Range("AD110") = Int(49 * Rnd) + 1
ElseIf .Range("N68") > 0 And .Range("N69") = 0 And .Range("N70") = 0 Then
Randomize Timer
.Range("O110") = .Range("N68")
.Range("R110") = Int(49 * Rnd) + 1
.Range("U110") = Int(49 * Rnd) + 1
.Range("X110") = Int(49 * Rnd) + 1
.Range("AA110") = Int(49 * Rnd) + 1
.Range("AD110") = Int(49 * Rnd) + 1
Else
Randomize Timer
.Range("O110") = Int(49 * Rnd) + 1
.Range("R110") = Int(49 * Rnd) + 1
.Range("U110") = Int(49 * Rnd) + 1
.Range("X110") = Int(49 * Rnd) + 1
.Range("AA110") = Int(49 * Rnd) + 1
.Range("AD110") = Int(49 * Rnd) + 1
End If
.Range("N123").Calculate
Loop Until .Range("N123") = "OKAY"
Range("Berechnungen!E30").Value = .Range("O109")
Range("Berechnungen!F30").Value = .Range("R109")
Range("Berechnungen!G30").Value = .Range("U109")
Range("Berechnungen!H30").Value = .Range("X109")
Range("Berechnungen!I30").Value = .Range("AA109")
Range("Berechnungen!J30").Value = .Range("AD109")
.Range("AA39").Value = .Range("O109")
.Range("AD39").Value = .Range("R109")
.Range("AG39").Value = .Range("U109")
.Range("AJ39").Value = .Range("X109")
.Range("AM39").Value = .Range("AA109")
.Range("AP39").Value = .Range("AD109")
End With
End Sub

Gruß
Rudi

Anzeige
AW: Methode Range für das Objekt_Global schlägt fehl
20.01.2014 12:51:52
Howard
Hallo,
jetzt ist die Zeile With Sheets("12Shots") gelb markiert und es kommt die Fehlermeldung:
Laufzeitfehler 9 - Index ist außerhalb des gültigen Bereichs
Irgendwo ist da noch der Wurm drin.
Gruß
Howard

AW: Methode Range für das Objekt_Global schlägt fehl
20.01.2014 13:34:45
Stefan
Hallo Howard,
dann heißt das Tabellenblatt nicht 12Shots oder es ist ein Leerzeichen am Tabellennamen angehängt "12Shots "
Gruß Stefan

AW: Methode Range für das Objekt_Global schlägt fehl
20.01.2014 13:41:29
Howard
Hallo Stefan,
daran hat´s tatsächlich gelegen. Beim Benennen des Tabellenblattes hab ich tatsächlich zwischen
12 und Shots versehentlich eine Leerstelle gehabt. Danke für den Hinweis. Da hätte ich ja noch
stundenlang suchen können und hätte den Fehler nicht gefunden.
Gruß
Howard
Anzeige

98 Forumthreads zu ähnlichen Themen

Dim Zelle As Range, Farbe As Long
sockel939

Hallo,
sagt mal wie bekomme ich den code dazu nicht die Zellenfarbe zu ändern sondern die Schriftfarbe.
Habe mal statt Interior , Font eingetragen dann bleibt er aber Hängen.
Dim Zelle As Range
Dim Farbe As Long
For Each Zelle In Range("m2:m1000")
Select Case Zelle.Value...
21.08.2008 10:04:00
Thread-ID: 1003376
5 Beiträge
Anzeige
@Nepumuk - mehrdimensionale ArraySortierung in ASP
Martin

Hallo Nepumuk,
ich bin bereits seit 2001 Mitglied und regelmäßiger Besucher hier im Forum. Allerdings stelle ich heute ausnahmsweise einmal eine "Nicht-Excel"-Frage. Ich beschäftige mich neben Excel VBA auch mit ASP (Active Server Pages), die ebenfalls auf Visual Basic basieren. Auch mit AS...
11.01.2009 14:10:00
Thread-ID: 1038651
9 Beiträge
Funktion Range asl Rückgabewert?
Horst

Hey !
Ich habe gelesen das ich nur in einer Funktion eine Wertrückgabe definieren kann?
Ich habe aber nur String, Boolean, Integer usw. als mögliche Rückgabewerte gefunden
kann ich auch einen Weterbereich (Range) oder sogar ein ganzes WorkSheet zurückgeben?
Also wie z.B.
-...
30.01.2009 08:20:00
Thread-ID: 1045279
4 Beiträge
Anzeige
Worksheet_Change(ByVal Target As Range)
Axel


Hallo Könner,
mal wieder an einem Punkt angekommen, wo ich echt nicht weiß, ob die PCs was Magisches können.
Das Makro unten ist prima gelaufen. Und dann mal wieder nicht. Jetzt gerade mal wieder nicht, daher mein Hilferuf. Als mir das das erste Mal passiert ist, habe ich den ganze...
13.03.2009 12:08:19
Thread-ID: 1059821
5 Beiträge
Probleme Worksheet_Change(ByVal Target As Range)
Ron

Hallo Leute,
habe mir vor einigen Wochen hier im Forum von Daniel helfen lassen und wollte nun den von ihm geposteten Script ein wenig auf meine Bedürfnisse umschreiben. Leider bin ich wohl zu blöd...
Es wäre Klasse, wenn mir jemand helfen könnte!
Ausgangslage:
Ich möchte in ein...
28.04.2009 04:06:20
Thread-ID: 1071514
4 Beiträge
Set rngOld = ActiveCell in Row ändern möglich?
Karsten

Hallo,
ich möchte einen Befehl abändern.
Dim rngOld As Range
Set rngOld = ActiveCell
Range("a10").Select
rngOld.Select
End Sub
Er soll jetzt so ausgeführt werden, dass nicht die alte Zelle sondern in der alten Zeile die Zelle in der 10 Spalte angesteuert wird. Geht...
27.07.2009 17:08:37
Thread-ID: 1091676
11 Beiträge
Range zusammenfassen (Code abkürzen)?
Florian

Guten Morgen Excel-Volk!
Habe eine Frage bzgl. Ranges: habe oft verschiedene, nichtzusammenhängende Bereiche, die gleich formatiert werden sollen, z.B.
With .Range(.Cells(8, 2), .Cells(8, 45))
.[FORMAT]
End With
With .Range(.Cells(17, 2), .Cells(17, 45))
.[gleiches FORM...
05.02.2010 07:54:34
Thread-ID: 1135993
3 Beiträge
Eindimensionales Array mit Range("A1:B40000") bild
Peter

Hallo Forum
In den Spalten A und B sind je 40.000 Werte und ich möchte die Unikate in Spalte D ausweisen.
Wie bekomme ich den Range("A1:B40000") in ein eindimensionales Array eingelesen.
Bisher kopiere ich die Spalten untereinander (bis 65536 Zeilen) und lese die Werte dann ein... <...
16.05.2010 13:39:12
Thread-ID: 1157244
5 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
4
12
8
3
6
4
3
10
2
4
6
10
3
2
5
2
2
9
4
2
3
7
1
1
3