19.12.2017, 12:21
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:
[attachment=15089]
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:
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):
Für jeden Tipp bin ich dankbar.
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:
[attachment=15089]
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 SubWie 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 SubFür jeden Tipp bin ich dankbar.