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

Methode Range für das Objekt_Global schlägt fehl

Forumthread: 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

Anzeige

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

Anzeige
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
;

Forumthreads zu verwandten Themen

DIM zusammenfassen
Wolfgang

Hallo,
gibt es eine Möglichkeit, den untenstehenden Auszug irgendwie zusammenzufassen z.B. Dim tempText(): tempText40() As String? - Ich bekomme das irgendwie nicht hin. Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang
Dim tempText() As String, tempText1() As St...
15.09.2008 10:59:06
Thread-ID: 1009712
13 Beiträge
@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

Ein schönes Wochenende zuvor wünschend!
Aufgabenstellung:
Ich möchte in einer Zelle einen Wert schreiben, was ein Makro auslösen soll. In einer Zweiten soll dadurch automatisch eine Umrechenformel einfügt werden. Auf diese Weise kann man (trivial, nur als Beispiel) bei der Bedienung ein...
06.03.2009 15:21:33
Thread-ID: 1057353
7 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
VBA: Range eindimensionell an Funktion übergeben
axel_k

Hi,
ich möchte aus einer Tabelle Werte aus einer Spalte in eine Funktion einlesen: Function bla(daten) End Function
Wenn ich das tue, liegt daten als (n,1)-Matrix zweidimensional vor.
Kann ich daten irgendwie so einlesen, dass ich einen eindimensionalen Vektor (daten(n)) erhalte?...
31.05.2010 12:02:47
Thread-ID: 1159570
7 Beiträge
Private Sub Worksheet_Change(ByVal Target As Range
ing.grohn

Hallo Forum,
Worksheet_Change ist eine wunderbare Sache! (wenn sie funktioniert)
Also:
ich arbeite in einem Blatt mit: Private Sub Worksheet_Change(ByVal Target As Range)
funktioniert alles super. Nur manchmal tut das nicht!!!!
Excel beenden, neu starten, alles klar und funk...
17.06.2010 09:43:52
Thread-ID: 1162378
11 Beiträge
"dim [Variable] as new word.application" HILFE!!
Stefan

Hallo Miteinander,
könnt Ihr mir weiterhelfen? In Excel-VBA kann ich irgendwie nicht mit anderen Office-Programmen arbeiten. Wenn ich die Variable "wApp" als neue Word-Applikation dimme, bekomme ich eine Fehlermeldung: "Benutzerdifinierter Typ nicht definiert" Was mache ich hier falsch? Kann...
29.04.2002 10:18:15
Thread-ID: 117062
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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