Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1200to1204
1200to1204
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Warum geht nicht "Call ComboBox1_KeyUp(39,0)"?

Forumthread: Warum geht nicht "Call ComboBox1_KeyUp(39,0)"?

Warum geht nicht "Call ComboBox1_KeyUp(39,0)"?
Martin
Hallo liebe Excelfreunde,
ich würde gerne ein Ereignis-Makro einer ComboBox ("ComboBox1_KeyUp") bewusst auslösen. Leider _ klappt das nicht, obwohl ich für die Argumente "ByVal KeyCode As MSForms.ReturnInteger" mit der Zahl 39 und für "ByVal Shift As Integer" mit der Zahl 0 gültige Werte angegeben habe: 

Call ComboBox1_KeyUp(39, 0)

Ich erhalte stets die Fehlermeldung "Fehler beim Kompilieren - Typen unverträglich"
Hat von euch vielleicht jemand eine Idee wie ich das hinbekomme?
Viele Grüße
Martin
Anzeige
Das dürfte der falsche Weg sein, man kann...
01.03.2011 18:38:30
Luc:-?
…das besser machen, Martin!
Außerdem, wo sitzt denn die Combobox, gibt's noch mehr mit diesem Namen etc…
Man kann eine Ereignisprozedur ggf durch Direktstart auslösen (für Testzwecke!), aber ob auch diese, musst du mal überprüfen. So, wie du das vorhast, ist das aber schlechter Pgmierstil. Denn, wenn du von woanders her kommst, stimmen evtl interne Bezüge nicht mehr. Wenn so etwas nicht bloß für Testzwecke, sondern regulär erfolgen soll, schreibt man eine normale Prozedur, die sowohl direkt als auch von der Ereignisproz aufgerufen wdn kann.
Gruß Luc :-?
Anzeige
AW: Das dürfte der falsche Weg sein, man kann...
01.03.2011 18:55:43
Martin
Hallo Luc,
vielen Dank für deine Antwort. Du hast recht, ich schreibe eine normale Prozedur, die auch vom Ereignisprozess aufgerufen wird. Das ist der einfachste und sauberste Weg.
Auch wenn es jetzt nicht mehr von Relevanz ist, interessiert mich die Fehlerursache von "Call ComboBox1_KeyUp(39, 0)" noch immer.
Viele Grüße
Martin
Anzeige
AW: Das dürfte der falsche Weg sein, man kann...
01.03.2011 19:18:33
Reinhard
Hallo Martin,
ich hab mal getestet. In VB5.0 klappt das problemlos.
In Vba fand ich keinen Dreh.
Auch nicht mit sowas
Dim a as MSForms.ReturnInteger
A=100
Call ...(a,0)
oder sowas
Range("A1")=100
set a=range("A1")
Call....
Und dieses mag der Debugger auch nicht:
Private Sub ComboBox1_KeyUp(ByVal KeyCode As Integer, ByVal Shift As Integer
Irgendwie habe ich den unbestätigten Eindruck, es hängt am Typ ReturnInteger, denn in Vb ist es nur Integer und da klappts ja.
Vielleicht *wildrumrat* steckt die Lösung schon im "Return", also eine wiedergegebener Wert, vielleicht kann man den nicht so einfach selbst setzen *mutmaß*
Frage noch offen.
Gruß
Reinhard
Anzeige
Bin ja gespannt, ob jemand den Grund findet ...
01.03.2011 19:34:01
Martin
Hallo Reinhard,
ich bin dir dankbar, dass du dich damit beschäftigt hast. Ich hatte ja auch viel herumprobiert und habe ebenfalls keine Möglichkeit gefunden. Ich denke auch, dass es an dem "ReturnInteger" liegt.
Viele Grüße
Martin
;

Forumthreads zu verwandten 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
Hilffeeee: Laufzeitfehler 1004
Tanya

Hallo,
ich habe eine Makro, die mehrere Diagramme aktualisiert.
codeabschnitt:
Sheets("Druck-stat").Select
ActiveChart.SeriesCollection(1).XValues = "=Mitteldaten!R9C2:R" & hilfs & "C2"
ActiveChart.SeriesCollection(1).Values = "=Mitteldaten!R9C5:R" & hilfs &...
14.08.2008 15:35:58
Thread-ID: 1001894
2 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
MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 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
Anzeige
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
Tabellenblattnahme, Beitrag 1008-1012 21.09.08
Werner

Hallo Daniel,
Deine Hilfe mit den Code:
Private Sub Worksheet_Change _ (ByVal Target As Range) If Target.Address = "$D$12" Then TabelleXXX.Name = Range("D12").Value End If End Sub
hat Super funktioniert, nochmals Danke!!
Nun habe ich aber noch ein weiteres Problem, ich habe...
24.09.2008 22:57:34
Thread-ID: 1012192
4 Beiträge
Laufzeitfehler 1004
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ü...
29.09.2008 11:35:58
Thread-ID: 1013056
10 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige