Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Command button fixieren

Forumthread: Command button fixieren

Command button fixieren
07.12.2024 17:21:30
Peter_Gebhardt
Guten Tag
Ich versuche mich gerade an einem VBA Projekt für die Firma und hoffe hier Hilfe zu finden.
Wir schicken defekte Sachen an einen Hersteller zur Reparatur.
Hierzu habe ich bereits ein VBA Programm geschrieben dass über die Kundennummer die Anschrift des Kunden in eine Userform schreibt.
Danach wird der Artikel und die Art der Reperatur ausgewählt.
Mit dem Button "Drucken" wird dann ein Reperaturlieferschein erstellt.
Gleichzeitig wird der Auftrag in eine Liste geschrieben.
Von der Userform kann mit einem CB in die Liste gesprungen werden.
Dort gibt es die CB "Drucken" und "Zurück".
Leider verschieben sich die CB Drucken und zurück beim befüllen der Liste.
Ich würde gerne die CB`s am unteren Ende der Liste fixieren - entweder über Fenster teilen oder anders?
Wichtig ist dass die Liste fortgeschriben wird und die CB unterhalb der Liste bleiben sollen und nicht überschrieben werden dürfen

Kann mir hier jemand helfen?
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Command button fixieren
07.12.2024 18:37:22
daniel
Schwierig.
Ein "untere Zeile fixieren" gibt es nicht
Ich würde die obere Zeile fixieren und dir die Buttons platzieren.

Gruß Daniel
AW: Command button fixieren
07.12.2024 20:40:31
Alwin Weisangler
Hallo Peter,

anbei ein Beispiel wie man es machen kann. Lege einen neuen Eintrag an oder entferne den/die letzten Eintrag/Einträge.
https://www.herber.de/bbs/user/174164.xlsm

Gruß Uwe
Anzeige
AW: Command button fixieren
09.12.2024 01:39:51
Piet
Hallo

im Internet habe ich dazu diesen Code gefunden. Hier wird in Spalte D die LastZell gesucht.
Die Button werden damit um 1 Zeile tiefer gesetzt. Den genauen Range musst du anpassen.
Es empfiehlt sich die Button durch ein zweites Makro in eine Anfangsosition zurückzusetzen.

mfg Piet

Sub Button_verschieben()

lz1 = Cells(Rows.Count, "D").End(xlUp).Row + 1 'oder 2,3
ActiveSheet.Shapes(1).Top = Cells(lz1, "D").Top
ActiveSheet.Shapes(1).Left = Cells(lz1, "D").Left
End Sub
Anzeige
AW: Command button fixieren
09.12.2024 02:00:19
Piet
Hallo

hier noch ein Code wie du an den Index oder Shapes Namen kommst.

mfg piet
Sub Button_prüfen()

MsgBox Selection.Index & " " & Selection.Name
End Sub
AW: Command button fixieren
08.12.2024 15:10:07
Peter_Gebhardt
Hallo Uwe
Vielen Dank - genauso wollte ich es haben. Ich bekomme es nur nicht in mein Projekt - da kennt er den CB ( bei mir heisst das Makro dort "zurück")nicht?
Ich habe jetzt schon mit ein paar Namen rumprobiert bekomme es aber nicht hin.
Kannst du mir noch sagen welche Parameter ich anpassen muss?

Danek und Gruß
Anzeige
AW: Command button fixieren
08.12.2024 23:51:46
Alwin Weisangler
Hallo,

keine Ahnung was alles geändert werden muss, da ich deine Datei nicht kenne.
Mein Beispiel setzt den .Top Wert eines ActiveX Steuerelements "CommanButton1" bei Änderungen im Tabellenblatt neu.
Es wird dabei der Top Wert der letzten beschriebenen Zelle aus Spalte A des Tabellenblattes herangezogen und dazu ein Wert (+20) addiert, um den Commandbutton unterhalb der letzten beschrieben Zeile zu platzieren.
Wenn dir dies nicht weiterhilft, lade deine Datei anonymisiert mit dem was du hast hoch.

Gruß Uwe
Anzeige
AW: Command button fixieren
09.12.2024 19:39:40
Peter_Gebhardt
Hallo Uwe
Ich habe die Datei jetzt hochgeladen.
https://www.herber.de/bbs/user/174205.xlsm

Wahrscheinlich ein ganz einfacher Fehler aber ich komme einfach nicht darauf.

Danke für die Geduld!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18