Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1988to1992
1988to1992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Buttons auf Userform mit wander, wenn Userform Größe anders

Forumthread: Buttons auf Userform mit wander, wenn Userform Größe anders

Buttons auf Userform mit wander, wenn Userform Größe anders
13.09.2024 09:25:25
Dieter(Drummer)
Guten Morgen an alle ...

Auf einer Userform mit ListBox sind 2 CommandButtons.
Auf UserForm: Button1 Klick, vergrößert ListBox1.
Auf UserForm: Button2 Klick, verkleinert ListBox1.

Ich suche eine Variante, die die Userform1 im gleichen Verhältnis der Vergrößerung der ListBox, ebenfalls die UserForm1auch vergrößert. das gleich ebenfalls bei Verkleinerung der ListBox, auch im Verhältnis die Userform verkleinern.
Ebenfalls sollen bei Veränderung der Userform auch die 2 Buttons mit wandern.

Ich habe bisher keine Lösung dafür gefunden und bitte um Hilfe.

Mit Gruß, Dieter(Drummer)

Testdatei:
https://www.herber.de/bbs/user/172187.xlsm
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Buttons auf Userform mit wander, wenn Userform Größe anders
13.09.2024 09:44:25
daniel
Hi
verwende diese Rechenmethode, nachdem du der Listbox den neuen .Height-Wert zugewiesen hast 

Userform1.Heigth = Listbox1.Top + Listbox1.Height + CommandButton1.Heigth + Abstand_Button-ListBox + Abstand_Button-UserformRand

Commandbutton1.Top = Listbox1.Top + Listbox1.Height + Abstand_Button-Listbox

Commandbutton2.Top = Listbox1.Top + Listbox1.Height + Abstand_Button-Listbox


für die Texte Abstan_... musst du natürlich die von dir gewünschten Abstandswerte als Zahl einsetzen.

das musst du natürlich in beiden Buttons ausführen.

Gruß Daniel
Anzeige
AW: Buttons auf Userform mit wander, wenn Userform Größe anders
13.09.2024 12:56:44
snb
Oder: 

Private Sub CommandButton1_Click()

    Zoom = 120

End Sub



Private Sub CommandButton2_Click()

     Zoom = 80

End Sub

AW: Buttons auf Userform mit wander, wenn Userform Größe anders
13.09.2024 14:54:42
Dieter(Drummer)
Danke snb für Rückmeldung und Code.

Werde es gerne ausprobieren.

Gruß,
Dieter(Drummer)
Anzeige
AW: Buttons auf Userform mit wander, wenn Userform Größe anders
13.09.2024 10:02:11
Dieter(Drummer)
Danke Daniel für Rückmeldung und Code.

Leider zeigt mir bei Klick auf Button ein Fehler: Fehler beim Kompilieren, Methode oder Datenobjekt nicht gefunden, und "Height" wird gelb markiert.
Betrifft im Code: Height (Fett markiert).

Was habe ich falsch?

Gruß, Dieter(Drummer)

So habe ich die ButtonCodes jetzt: 
Private Sub CommandButton1_Click()

ListBox1.Height = 165

UserForm1.Heigth = ListBox1.Top + ListBox1.Height + CommandButton1.Heigth + Abstand_Button - ListBox + Abstand_Button - UserformRand

CommandButton1.Top = ListBox1.Top + ListBox1.Height + Abstand_Button - ListBox

CommandButton2.Top = ListBox1.Top + ListBox1.Height + Abstand_Button - ListBox

End Sub


Private Sub CommandButton2_Click()

ListBox1.Height = 100

UserForm1.Heigth = ListBox1.Top + ListBox1.Height + CommandButton2.Heigth + Abstand_Button - ListBox + Abstand_Button - UserformRand

CommandButton1.Top = ListBox1.Top + ListBox1.Height + Abstand_Button - ListBox

CommandButton2.Top = ListBox1.Top + ListBox1.Height + Abstand_Button - ListBox

'UserForm1.Height = 175

End Sub





Anzeige
AW: Buttons auf Userform mit wander, wenn Userform Größe anders
13.09.2024 10:29:59
daniel
ich kann leider nicht sehen, was du fett gemachte hast.
das wird durch die Code-Formatierung weggemacht.
kopiere solche Beispielcodes nicht einfach aus dem Internet, sondern schreibe sie selber und nutze dabei die Intellisense um Rechtschreibfehler zu vermeiden

und dann habe ich mich vielleicht unglücklich ausgegrückt: "Abstand_Button-ListBox" und "Abstand_Button-Userform" sind keine Berechnungen, die VBA so ausführen soll, sondern anstelle dieser musst du die Abstandswerte einsetzen, die du an dieser Stelle haben willst.
der Commandbutton soll ja sicherlich direkt an die Listbox drangeklatscht werden, sondern einen bestimmten Abstand haben, also eigentlich:

Userform1.Heigth = Listbox1.Top + Listbox1.Height + CommandButton1.Heigth + 10 + 10

die Zahlen können natürlich auch anders sein.



Anzeige
AW: Buttons auf Userform mit wander, wenn Userform Größe anders
13.09.2024 11:31:07
Dieter(Drummer)
Danke Daniel,

werde alles probieren und daraus hoffentlich lernen :-).

Gruß, Dieter(Drummer)
Du musst das...
13.09.2024 10:33:42
Case
Moin, :-)

... "Height" richtig schreiben. ;-)

Probiere es mal so: ;-) 

Private Sub CommandButton1_Click()

    ListBox1.Height = 165

    UserForm1.Height = ListBox1.Top + ListBox1.Height + CommandButton1.Height + 50

    CommandButton1.Top = ListBox1.Top + ListBox1.Height + 10

    CommandButton2.Top = ListBox1.Top + ListBox1.Height + 10

End Sub



Private Sub CommandButton2_Click()

    ListBox1.Height = 100

    UserForm1.Height = ListBox1.Top + ListBox1.Height + CommandButton1.Height + 50

    CommandButton1.Top = ListBox1.Top + ListBox1.Height + 10

    CommandButton2.Top = ListBox1.Top + ListBox1.Height + 10

End Sub


Servus
Case
Anzeige
AW: Du musst das...
13.09.2024 10:49:22
Dieter(Drummer)
Danke Case für den Hinweis und den Code.

Klappt perfekt!

Danke und Gruß,
Dieter(Drummer)

Forumthreads zu verwandten Themen

Button auf Sheet mit Funktion aus Userform
Macro

Hi,
ich habe eine Sheet, wo beim starten eine Userfoem aufgeht. Auf der Userform hat es Buttons drauf mit verschiedenen Funktionen.
Nun habe ich einen Button direkt auf meinem Sheet und möchte von da aus eine Funktion aus der Userform aufrufen. Das habe ich mit :
Call UserForm1.Comm...
24.11.2008 09:16:13
Thread-ID: 1027197
4 Beiträge
Diagramme in UserForm mit Button blättern
Fred

Hallo zusammen
Ich habe eine Tabelle mit ca 30 Diagrammen. Und lasse mir eines Davon in einer UF anzeigen. Ich würde jetzt gerne aber alle Diagramme in der UF nacheinander in der UF anzeigen lassen, indem ich über einen Button dasnächste Diagramm anwähle. Leider weis ich nicht wie ich das b...
03.01.2009 21:08:19
Thread-ID: 1036638
2 Beiträge
Eingabe über userform mit optionbuttons
Stefan

Hallo zusammen,
vielleicht hat von Euch jemand eine Idee. Ich habe eine Tabelle mit 7 Spalten. In diesen stehen Mailadressen für verschiedene Themengebiete drinnen. Zusätzlich gibt es eine 8.Spalte für 4 verschiedene Bereiche.
Ich habe jetzt über jeder Spalte einen Button eingebaut, der...
27.04.2011 18:00:25
Thread-ID: 1212070
7 Beiträge
Optionsbuttons mit und ohne Userform
Marlon

Guten Morgen,
ich hab ein paar grundlegende Fragen zu Optionsbuttons auf einem Sheet:
[Hintergrund: Ich möchte Rahmen mit Optionsbuttons auf dem Sheet plazieren. Einer soll als Vorauswahl aktiviert sein.]
- Wie spreche ich aus VBA Optionsbuttons an, wenn sie nicht in einer Userform...
09.11.2011 09:38:12
Thread-ID: 1237123
5 Beiträge
userform frame1 mit 2optionbutton abfragen!
Lisa

Hallo zusammen, ich habe in meiner Userform1 ein Frame mit 2 Optionbutton
OptionButton1.Caption = "ja"
OptionButton2.Caption = "nein"
einer der beiden muss zwingend betätigt werden !
Dazu müsste also der Wert geprüft werden!
ich habe es so versucht, dann kommt aber immer die...
06.12.2011 14:49:23
Thread-ID: 1240854
3 Beiträge
Anzeige
UserForm mit Cmd-Buttons und Tabellenbearbeitung
V

Hallo,
ich habe eine Frage und hoffe auf Eure Unterstützung. Vorab aber erst einmal einen Dank an jeden, der mir zu helfen versucht!!!
Hier die Fakten:
Status: Ich habe ein normales Excel-Tabellenblatt. Zudem habe ich eine UserForm erstellt, auf der sich bisher ein Command-Button b...
04.06.2014 18:45:44
Thread-ID: 1364668
6 Beiträge
Anzeige
Button soll einen Pfad mit dem Buttonnamen öffnen
Claudia

Hallo zusammen,
habe schon länger gesucht, konnte zu meinem Problem allerdings nichts finden. Hoffe ihr könnt mir helfen:
Ich erstelle über eine Schleife mehrere Buttons, denen dann jeweils über einen Wert in einer Zelle ein Name und Caption zugeordnet wird. Dem Button soll dann außerde...
29.04.2015 14:08:06
Thread-ID: 1423765
2 Beiträge
VBA - Aus Userform andere Mappe öffnen
Tim

Hallo zusammen,
lange Zeit bin ich nun schon leser eurer tollen Tipps. Jetzt ist aber die Zeit gekommen um mal um Rat zu fragen.
Ich habe eine Userform in der unsere Mitarbeiter Daten eingeben. Wenn die Dateneingabe erfolgreich war, werden diese Daten in ein Tabellenblatt eingefügt, als...
09.03.2016 02:23:07
Thread-ID: 1480787
3 Beiträge
VBA, Userform und weitere Tabelle aufrufen/bearb.
Franz

Hallo Zusammen,
mit Freude verfolge ich die letzten zwei Wochen die Beiträge der Community hier und mir wurde durch verschiedene Beiträge schon oft weitergeholfen.
Nun habe ich aber ein spezielles Problem, das ich entweder nicht "googlegerecht" formulieren kann oder es einfach noch kei...
12.02.2019 10:18:31
Thread-ID: 1674975
2 Beiträge
Bildanzeige auf UserForm mit Radio Button
NewUser032019

Hallo Zusammen,
folgendes Szenario/Problem:
Ich habe auf einer UserForm ca. 20 verschiedene OptionButtons
Jeder OptionButton steht für ein Produkt
Auf der selben UserForm gibt es noch ein Anzeige Frame
Ich möchte nun das je nach gewähltem OptionButton das passende Bild im An...
12.03.2019 12:28:28
Thread-ID: 1680785
8 Beiträge
[VBA] UserForm Click-Event für dyn. erz. Button
Nils

Hallo Leute,
ich habe eine Userform dynamisch mit Buttons bestückt. Je nachdem wie groß ein Array ist, werden 1 bis x Buttons erstellt.
Wie kann ich den Click-Event eines solchen Buttons definieren?
19.03.2019 16:47:00
Thread-ID: 1682182
2 Beiträge
Dynamische Userform mit CommandButtons
Gábor

Hi Excel-Progger,heut bräuchte ich mal eure wieder eure Hilfe ....Ich würde gern Makros für dynamische Buttons in einem Userform ausführen. Problem : Ich möchte nicht per VBA-Steuerung jedes CommandButton_Click Ereignis einfügen.Gibt es eine andere Möglichkeit, bevor ich versuche eine Extra Ere...
08.02.2003 16:01:02
Thread-ID: 216062
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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