Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1012to1016
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
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeitfehler 1004

Laufzeitfehler 1004
29.09.2008 11:35:58
Jörg
Ich erhalte einen merkwürdigen Fehler, bei ug. Script. Die Zeile
"Range(Cells(intRow, 1), Cells(intRow, 2)).Select" löst den "Laufzeitfehler 1004 / Anwendungs- oder objektorientierter Fehler" aus.
Ich kann hier keinen Fehler entdecken. Woran liegt's? Gibt's eine Idee? Danke für Eure Mühe.
For k = 1 To anzahl
intRow = Int((60 * Rnd) + 1)
Range(Cells(intRow, 1), Cells(intRow, 2)).Select
Next k

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 1004
29.09.2008 11:45:21
Hajo_Zi
Hallo Jörg,
vielleich ist (60 * Rnd) + 1 über 32.767

AW: Laufzeitfehler 1004
29.09.2008 11:48:00
Jörg
Danke für Dein Interesse.
Nein, die Ganze Zahl IntRow ist immer eine ganze Zahl zwischen 0 und 60. Daran liegt es nicht.
AW: Laufzeitfehler 1004
29.09.2008 11:57:00
Hajo_Zi
Hallo Jörg,
ich habe den Code komplett gemacht.

Option Explicit
Sub Jörg()
Dim K As Long
Dim Anzahl As Long
Dim intRow  As Long
Anzahl = 100
For K = 1 To Anzahl
intRow = Int((60 * Rnd) + 1)
Range(Cells(intRow, 1), Cells(intRow, 2)).Select
Next K
End Sub


und ich konnte keinen Fehler feststellen. Wobei mir nicht klar ist warum zig zellen ausgewählt werden müssen. Ich sehe die einzelnen zellen nicht und mein Recxhner ist lam. (1,4 Ghz)
Gruß Hajo

Anzeige
AW: Laufzeitfehler 1004
29.09.2008 13:10:25
Jörg
Hm, komisch. Dein Code läuft tadellos. Meiner nicht. Woran liegt dass?
AW: Laufzeitfehler 1004
29.09.2008 13:41:11
Hajo_Zi
Hallo Jörg,
ich benutze Option Explicit, also alle Variablen müssen vor der ersten Verwendung definiert werden.
Gruß Hajo
AW: Laufzeitfehler 1004
30.09.2008 11:53:00
jörg
Vielen Dank für Deine Bemühungen, trotzdem gibt's hier ein Problem. Im Anhang das gesamte Script. Nach wie vor kommt es hier zum og. Fehler, sobald ich einen Range anspreche (...die entsprechende Stelle im Script ist Fett markiert...)

Sub CommandButton1_Click()
Dim Roemisch As Variant
Roemisch = Array("I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX", "X", "XI", "XII", " _
XIII", "XIV", "XV")
Dim workSht As Worksheet
Dim i As Integer
Dim j As Integer
Dim rwIndex As Integer
Dim anzahl As Long
Dim workShtNames()     'ein Array
Dim zeilenanzahl As Integer
'ermitteln, wieviel Vokabeln pro Blatt kopiert werden sollen
anzahl = Round(60 / (Worksheets.Count - 5))
'alle Namen der Tabellenblätter in das Array workShtNames(i) einlesen
i = 0
For Each workSht In ActiveWorkbook.Worksheets
i = i + 1
ReDim Preserve workShtNames(1 To i)
workShtNames(i) = workSht.Name
Next workSht
j = 0
For i = LBound(workShtNames) To UBound(workShtNames)
For j = 1 To 14 'Worksheets.Count
If workShtNames(i) = Roemisch(j) Then
Worksheets(workShtNames(i)).Activate
zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
rwIndex = (zeilenanzahl * Rnd) + 1
'Selektieren der Zeile
Range(Cells(rwIndex, 1), Cells(rwIndex, 2)).Select
End If
Next j
Next i
End Sub


Anzeige
AW: Laufzeitfehler 1004
30.09.2008 12:29:00
Hajo_Zi
Hallo Jörg,
auch der Code läuft ohne Fehlermitteilung.
Gruß Hajo
AW: Laufzeitfehler 1004
30.09.2008 13:37:00
jörg
Hast Du irgendeine Ahnung...? Vielleicht einen nützlichen Umweg?
AW: Laufzeitfehler 1004
29.09.2008 13:19:27
Jörg
Hm, komisch. Dein Code läuft tadellos. Meiner nicht. Woran liegt dass?

299 Forumthreads zu ähnlichen Themen

X-Achse innerhalb eines OWC10.Objektes
Marc

Guten Tag zusammen ..
da der Topic etwas limitiert ist werde ich hier versuchen mein Problem einwenig zu verdeutlichen .. folgendes stellt sich mir dar
ich versuche eine Unmenge an Daten mittels eines OWC10.Objektes innerhalb einer Userform garphisch darzustellen. Dabei werden die minut...
12.08.2008 13:39:59
Thread-ID: 1001188
3 Beiträge
Anzeige
Initialwert bei string * 10
Eddie

Hallo,
ich habe ein kleines Problem mit der Type Anweisung.
Ich definiere in der Struktur u.a.
Type TestTest teststring As String * 10 End Type Dim Test(500) As TestTest
Zu meinem erstaunen, steht in z.B. Test.teststring, bevor die Variable das erste mal beschrieben wurde, 10...
15.08.2008 11:03:00
Thread-ID: 1002107
4 Beiträge
Wenn-Dann + SVERWEIS ???
B@sti

Hallo zusammen,
ich bräuchte zu folgendem Thema eure Hilfe:
und zwar geht es um den Abgleich zweier Arbeitmappen. In der ersten Arbeitsmappe befinden sich die Infos, aus der ein Ergebnis für die zweite Arbeitsmappe ausgelesen werden soll. Hab mal ne Beispieldatei angehängt:
https://...
21.08.2008 10:54:00
Thread-ID: 1003404
4 Beiträge
Anzeige
Wenn kein Optionsfeld ausgewählt dann MsgBox
Bernhard

Hallo liebe Excel Freunde!
Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
Wie mache ich das in VBA?
Danke für Eure Hilfe
Gruss
Bernhard
09.09.2008 11:32:23
Thread-ID: 1008391
5 Beiträge
"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
zeile ermitteln aus : A10:C26
reinhardt

Hallo.
In A1 stehen Range-Werte in folgender Form: A10:C26, oder BC150:M299
Ich möchte alle Zeilen oberhalb von A10 (1 ...9) oder BC 150 (1...149) ausblenden.
Dazu brauche ich einmal Hilfe bei einer Formel, die mir den Wert 9 aus A10:C26 oder
den Wert 149 aus BC150:M299 erre...
19.09.2008 09:22:00
Thread-ID: 1010909
2 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
2
1
3
3
5
4
15
5
1
2
6
3
9
7
3
2
2
6
2
3
9
2
2
4
3