Über die Videos ist mehr sehr viel schneller ein erfolgreicher Zugang geschaffen worden als Bücher und ein VHS Kurs. Vielen Dank! Beim Nachbauen dieses Makros kommt bei mir immer der Laufzeitfehler 13; wobei wenn ich Grün und Blau "ausschalte" es funktioniert. Andere Teilnehmer haben anscheindend das selbe Problem. Habe dies auch auf unterschiedlichen PC probiert.
Danke für das Video. Frage hierzu noch: Was muss ich einstellen, dass das (ActiveX-Steuerelement) Scrollleiste auch bei Blattschutz funktioniert? Das geht bei mir nicht.
Hallo, zu --> "Wo liegt der Fehler?? vom Yannik Tillmann". Es funktioniert, wenn "TextBox..." Eingeschalten Value auf 0 gesetzt ist. Andre, danke für super Videos.
Hallo, Vielen Dank für die Videos. Du erklärst das Super. Eine kleine Anmerkung habe ich. Dieses Video befindet sich, glaube ich, in der falschen Playlist.
Wie kann ich die Scrollbar mit einem Commandbutton automatisch laufen lassen? und wenn ich negative werte in der Textbox habe, gibt er mir eine Fehlermeldung. Wie kann ich trotzdem zum Beispiel - 50 anzeigen ohne fehlermeldung wenn ich beim befehl scrollbar.min = "hausnummer" - 50 angebe
Hallo und guten Tag, wieder mal ein Super-Beispiel und verständlich erklärt. Vielen Dank dafür. mfg PeterPan P.S.: habe eine Maill an Impresums-Mail geschickt. Ist hoffentlich angekommen?
Hallo, Sorry, habe es jetzt erst gesehen! Du musst den Code etwas ergänzen: siehe unten: bei Startwerte für Textboxen füge am Anfang: Application.EnableEvents= False und am Ende: Application.EnableEvents = True hinzu und bei Sub Fertige Farbe() am Anfang: If not Application.EnableEvents Then Exit Sub Dann sollte es funktionieren. Gruss kn 'Startwerte für Textboxen festlegen Application.EnableEvents = False TextBoxRot.Value = 0 TextBoxGruen.Value = 0 TextBoxBlau.Value = 0 Application.EnableEvents = True End Sub Sub FertigeFarbe() If Not Application.EnableEvents Then Exit Sub Dim r As Integer Dim g As Integer Dim b As Integer 'Variablen die richtigen Werte zuweisen r = TextBoxRot.Value g = TextBoxGruen.Value b = TextBoxBlau.Value ImageFarbe.BackColor = RGB(r, g, b) End Sub
Über die Videos ist mehr sehr viel schneller ein erfolgreicher Zugang geschaffen worden als Bücher und ein VHS Kurs. Vielen Dank!
Beim Nachbauen dieses Makros kommt bei mir immer der Laufzeitfehler 13; wobei wenn ich Grün und Blau "ausschalte" es funktioniert. Andere Teilnehmer haben anscheindend das selbe Problem. Habe dies auch auf unterschiedlichen PC probiert.
Ich habe dasselbe Problem. Bist du bei dem Lauzeitfehler weitergekommen ?
Super...!!!! Kann es für Bewertungen sehr gut gebrauchen!
dass freut mich doch zu hören! :) Danke für Dein Feedback!
Danke für das Video. Frage hierzu noch: Was muss ich einstellen, dass das (ActiveX-Steuerelement) Scrollleiste auch bei Blattschutz funktioniert? Das geht bei mir nicht.
Hallo,
zu --> "Wo liegt der Fehler?? vom Yannik Tillmann". Es funktioniert, wenn "TextBox..." Eingeschalten Value auf 0 gesetzt ist.
Andre, danke für super Videos.
Tolle Sache!
danke Dir :)
Hallo, Vielen Dank für die Videos. Du erklärst das Super. Eine kleine Anmerkung habe ich. Dieses Video befindet sich, glaube ich, in der falschen Playlist.
Danke für Dein nettes Feedback und den Hinweis mit der Playlist :) Du hast natürlich recht!
Beste Grüße
André
Wie kann ich die Scrollbar mit einem Commandbutton automatisch laufen lassen? und wenn ich negative werte in der Textbox habe, gibt er mir eine Fehlermeldung. Wie kann ich trotzdem zum Beispiel - 50 anzeigen ohne fehlermeldung wenn ich beim befehl scrollbar.min = "hausnummer" - 50 angebe
Super.....danke
Hallo und guten Tag,
wieder mal ein Super-Beispiel und verständlich erklärt. Vielen Dank dafür.
mfg
PeterPan
P.S.: habe eine Maill an Impresums-Mail geschickt. Ist hoffentlich angekommen?
Vielen lieben dank! :)
Ich melde mich in der kommenden Woche bei Dir - habe aktuell leider viel um die Ohren.
Beste Grüße
SONNTAG OPTIMIERT!!! :)
Dass höre ich gerne!! :)
ich habe ein Problem mit dem Kurs 13 color picker. die varible g wird nicht übergeben. (laufzeitfehler)
kann mir da jemand weiterhelfen
Hallo, Sorry, habe es jetzt erst gesehen!
Du musst den Code etwas ergänzen:
siehe unten:
bei Startwerte für Textboxen füge am Anfang: Application.EnableEvents= False
und am Ende: Application.EnableEvents = True
hinzu und bei Sub Fertige Farbe() am Anfang: If not Application.EnableEvents Then Exit Sub
Dann sollte es funktionieren.
Gruss
kn
'Startwerte für Textboxen festlegen
Application.EnableEvents = False
TextBoxRot.Value = 0
TextBoxGruen.Value = 0
TextBoxBlau.Value = 0
Application.EnableEvents = True
End Sub
Sub FertigeFarbe()
If Not Application.EnableEvents Then Exit Sub
Dim r As Integer
Dim g As Integer
Dim b As Integer
'Variablen die richtigen Werte zuweisen
r = TextBoxRot.Value
g = TextBoxGruen.Value
b = TextBoxBlau.Value
ImageFarbe.BackColor = RGB(r, g, b)
End Sub