@Daniel - zur ListBox
06.08.2014 19:06:27
Frank
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 Bitte um Hilfe!
Danke!
Gruß Frank H.