4 Listboxen prüfen
21.09.2017 21:39:26
RE
Ich komme nicht mehr weiter und brauche eure Hilfe. Ich habe 4 Listboxen mit vorgegebenen Werten.
Bevor die 4 Werte auf ein Blatt übertragen werden will ich prüfen, ob überhaupt etwas ausgewählt wurde. Das funktioniert eigentlich für alle 4, ich möchte aber, dass die MsgBox bestätigt wird und man dann zuerst eine Auswahl treffen muss, bevor man zur nächsten Listbox gelangt. Danach wird die 2te, 3te und 4te Listbox mit dem gleichen Schema kontrolliert. Wenn in der LB1 nichts drin steht und die MsgBox mit OK bestätigt wird, schliesst er direkt die Userform...
Hier mein Code:
Private Sub CMDeintragen_Click()
Application.ScreenUpdating = False
If ListTeam1.ListIndex - 1 Then
MsgBox "Team 1 auswählen!"
ElseIf ListTeam2.ListIndex - 1 Then
MsgBox "Team 2 auswählen!"
ElseIf ListGewinner.ListIndex - 1 Then
MsgBox "Gewinner auswählen!"
ElseIf ListVerlierer.ListIndex - 1 Then
MsgBox "Verlierer auswählen!"
Application.ScreenUpdating = False
End If
Sheets("Daten").Activate
Dim intErsteLeereZeile As Long
intErsteLeereZeile = ActiveSheet.Cells(Columns.Count, 1).End(xlUp).Row + 1 'Wird in Spalte _
B (Columns.count,2) an unterster Stelle eingefügt
ActiveSheet.Cells(intErsteLeereZeile, 1).Value = Me.TBDatum.Value
ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.ListTeam1.Value
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.ListTeam2.Value
ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.ListGewinner.Value
ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.ListVerlierer.Value
Unload Jass
Sheets("Donnschtig-Jass").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
ActiveWorkbook.Save
Application.ScreenUpdating = False
End Sub
Ich bin noch VBA Anfänger und würde mich über eure Hilfe freuen. Hoffe es ist verständlich erklärt :-)
Gruss,
RE