Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

@Daniel - zur ListBox

Betrifft: @Daniel - zur ListBox von: Frank H.
Geschrieben am: 06.08.2014 19:06:27

Hallo Daniel oder alle Anderen!

Also dein Code funzt bestens, aber nun setzt er mir nicht den Focus auf die TextBox2.

Private Sub cmdBeträge_Click()

Application.ScreenUpdating = False

If TextBox1 = "" Then
    MsgBox "Bitte aus dem Listenfeld den gewünscchten Eintrag auswählen!"
    Exit Sub
End If

Dim c, m As Byte
Dim y As Integer

c = 2
m = cbJahr.ListIndex * 12 + cbMonat.ListIndex + 1
y = c + m

lng = frmFixkosten.ListBox1.Column(2)

If TextBox2 = "" Then
    Sheets("Daten_Fixkosten").Cells(lng, y) = ""
Else
    Sheets("Daten_Fixkosten").Cells(lng, y) = CDbl(TextBox2)
End If

Sheets("Daten_Fixkosten").Cells(34, y).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-31]C:R[-2]C)"
   Sheets("Daten_Fixkosten").Cells(35, y).Select
   
If ListBox1.ListIndex < (ListBox1.ListCount - 1) Then
    ListBox1.ListIndex = ListBox1.ListIndex + 1
End If

TextBox3 = Sheets("Daten_Fixkosten").Cells(34, y).Text

lng_A = Label6.Width
Label6.Width = 0
DoEvents
lng_Z = 1000
For i = 1 To lng_Z
With Label6
.Width = i / lng_Z * lng_A
.TextAlign = fmTextAlignCenter
.BackColor = RGB(0, 0, 256)
.Font.Bold = True
.Caption = Int(i / 10) & "%"
DoEvents
End With
Next

TextBox2.SetFocus

Application.ScreenUpdating = True

End Sub
Was mache ich falsch?

Bitte um Hilfe!

Danke!

Gruß Frank H.

  

Betrifft: AW: @Daniel - zur ListBox von: Werner
Geschrieben am: 06.08.2014 19:19:24

Hallo Frank,

setz den Focus erst mal in Textbox1 und dann in Textbox2. Das hat bei mir schon mal geholfen. Excel hat da wohl ab und an so seine Probleme.

Werner


  

Betrifft: AW: @Daniel - zur ListBox von: Frank H.
Geschrieben am: 06.08.2014 19:24:36

Hallo Werner!

Klappt. Danke!

Gruß Frank H.


  

Betrifft: AW: @Daniel - zur ListBox von: Daniel
Geschrieben am: 06.08.2014 19:20:48

keine Ahnung.
ohne die Datei und die Userform macht es wenig sinn, das zu testen.
Der Befehl Textbox2.SetFocus ist per se richtig und funktioniert bei mir auch.
Schon mal im Einzelstep getestet um zu schauen, ob der Code auch diesen Befehl ausführt?
Gruß Daniel


  

Betrifft: AW: @Daniel - zur ListBox von: Frank H.
Geschrieben am: 06.08.2014 19:25:57

Hallo Daniel!

Werners Tipp hat gefunzt, warum auch immer!

Gruß Frank H.!


 

Beiträge aus den Excel-Beispielen zum Thema "@Daniel - zur ListBox"