Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA Listbox updaten ohne Userform zu schliessen
#1
Hallo ihr Profis,
ich habe ein paar Probleme mit der Erstellung eines Userforms.
Das erste und auch scheinbar entscheidende Problem ist, dass ich excel auf dem Mac nutze.
Das führt dazu, dass ich nur in excel 2011 ein Userform erstellen kann (ich habe auch die 2016 Version, aber die kann kein Userform erstellen), welches den Befehl RowCount nicht kennt.

Ich bin jetzt soweit, dass ich einen Bereich in meiner Tabelle mit einem Namen versehen habe (A1:A16 heißen jetzt NumbersDrawn) und diese möchte ich in einer Listbox anzeigen. Das ganze soll aber dynamisch sein und da komm ich nicht weiter. Der Code funktioniert zwar, aber excel friert ein und muss geschlossen werden.

Zum besseren Verständnis die Userform als Bild:
   
Drücke ich eine der Zahlen, so wird diese an letzter Stelle in meiner Tabelle eingetragen. (Das funktioniert)
Die beschrifteten Buttons machen auch, was sie sollen.
Für die ListBox (LstPerma genannt) habe ich folgenden Code:
Code:
Option Explicit

Private Sub UserForm_Initialize()
   Dim aCell As Range
   For Each aCell In Range("NumbersDrawn")
   LstPerma.AddItem (aCell.Value)
Next
End Sub
Die Anzeige funktioniert auch beim Aufruf der Userform, aber sobald ich eine weitere Zahl klicke, friert excel ein. Da muss also irgendwie ein Fehler in dem Button-Code sein.

Wie bekomme ich meinen Button dazu automatisch die Liste zu aktualisieren ohne Abzustürzen?
hier einmal der Code für die Jeweiligen Buttons (die 20 hier als Beispiel):
Code:
Private Sub NumberButton20_Click()
Dim intFirstEmptyCell As Long
With ActiveSheet
intFirstEmptyCell = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(intFirstEmptyCell, 1).Value = 20
End With
End Sub

Für jeden Tipp bin ich dankbar.
Antworten Top
#2
Tipp 1:

Lade eine Excel Beispieldatei hoch

Tipp 2; 

http://www.snb-vba.eu/VBA_Fill_combobox_listbox_en.html
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#3
Hallöchen,

ich vermute, Du klickst eine Zahl mit dem Commandbutton und nicht in der Listbox? Wenn die Listbox nur beim Start gefüllt und später nicht geändert wird, hat sie dann wohl nix mit dem Hängenbleiben zu tun.

Setze mal in den Click-Code am Anfang einen Haltepunkt und gehe den Code schrittweise durch, damit Du siehst, wann es hängen bleibt.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste