cmbauswahl an ausgew. P. Multipage übergeben No Go
FrankA
Zu meinem Problem:
Im "UF_Start" habe ich eine Textbox integrieren die den Wert der Kegelbahngebühr beinhaltet,
welches an die mit dem Datum in ein Tabellenblatt ich nenne es mal "Daten erfassen" übermittelt wird.
Spaltenanordnung "Daten erfassen"
B = Datum > wie aus der Combobox1 des UF_Start " letzte Kegeln war am:"
C = Einnahmen > berechnet durch "SUMMEWENN(AlleDaten!A:A;B3;AlleDaten!W:W)"
D = Gebühr > hier soll der Wert des letzt gewählten Datum stehen
E = Gesamt > Einnahme minus Gebühr minus sonstige Ausgaben
Der Ansatz wo einfügen im Code scheitert bis jetzt
aus einem vorherigen Thread von mir
https://www.herber.de/bbs/user/69922.xls
mit den angesprochenen Änderungswünschen
https://www.herber.de/bbs/user/72873.xlsm
Hier mal der Code:
#####################################
Private wks As Worksheet
Private Sub CommandButton1_Click()
Dim iI As Long, Zeile As Long
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Bitte ein Datum in Combobox wählen"
Exit Sub
End If
Zeile = ZeileTitel
With Me.ListBox1
For iI = 0 To .ListCount - 1
If .Selected(iI) = True Then
Zeile = Zeile + 1
wks.Cells(Zeile, 1) = CDate(Me.ComboBox1)
wks.Cells(Zeile, 2) = .List(iI, 0)
wks.Cells(Zeile, 3) = True
End If
Next
For iI = 0 To .ListCount - 1
If .Selected(iI) = False Then
If .List(iI, 0) = "" Or Left(.List(iI, 0), 4) = "Gast" Then
'nur Stammkegler mit False kennzeichnen
Else
Zeile = Zeile + 1
wks.Cells(Zeile, 1) = CDate(Me.ComboBox1)
wks.Cells(Zeile, 2) = .List(iI, 0)
wks.Cells(Zeile, 3) = False
End If
End If
Next
End With
Unload Me
If Me.CheckBox_Koenigspartie = True Then
UF_Koenigspartie.Show
Else
UF_Eingabe.Show
End If
End Sub
Private Sub UserForm_Initialize()
Set wks = Worksheets("Eingabeliste")
Dim iI As Long, Zeile As Long
'alle Stammkegler mit True kennzeichnen
With Application.Range("Auswahl.Kegler")
For iI = 0 To Me.ListBox1.ListCount - 1 - 4 '2 freie Werte + 2 Gäste
Me.ListBox1.Selected(iI) = True
Next
End With
End Sub
################Ende Code#####################
P.S. diverse Helfende "Oberschlumpf und fcs" haben sich hier schon in der Vergangenheit dran gemacht
bitte an Euch, kann Sie/Er mir helfen
Anzeige