Hi zusammen,
ich habe nun einen Snatz. Allerdings funktioniert meine For Each Schleife nicht, welche prüfen soll ob sich ein sich der gewählte Hauptgrund bereits in der Worksheet befindet. Damit dann nur noch der Grund 2 (Also Auswahl der zweiten Combobox in die nächste freie Zeile eingefügt wird:
Private Sub btnGrundUebernahme_Click()
Dim Zelle As Range
Dim Bereich As Range
Dim intLeerPos As Integer
Dim Grund2 As String
Dim Grund1 As String
Dim lngLast As Long
lngLast = Cells(Rows.Count, 1).End(xlUp).Row + 1
Set Bereich = ThisWorkbook.Worksheets("QM-Bericht").Range("A25, A29, A33")
Grund1 = frmQMB.cmbGrund1QMB.Value
Grund2 = frmQMB.cmbGrund2QMB.Value
intLeerPos = InStr(Grund2, " ")
For Each Zelle In Bereich
If Left(Zelle.Value, 1) = Left(Grund1, 1) Then
Zelle.Offset(lngLast, 2).Value = Mid(Grund2, InStr(Grund2, " ") + 1)
Zelle.Offset(lngLast, 1).Value = Left(Grund2, 3)
End If
Next Zelle
If Range("A25").Value = "x" Then
Range("A25").Value = Left(Grund1, 1)
Range("A25").Offset(0, 1).Value = Mid(Grund1, InStr(Grund1, " ") + 1)
Range("A25").Offset(1, 0).Value = Left(Grund2, 3)
Range("A25").Offset(1, 1).Value = Mid(Grund2, InStr(Grund2, " ") + 1)
ElseIf Range("A25").Value <> "x" And Range("A29").Value = "x" Then
Range("A29").Value = Left(Grund1, 1)
Range("A29").Offset(0, 1).Value = Mid(Grund1, InStr(Grund1, " ") + 1)
Range("A29").Offset(1, 0).Value = Left(Grund2, 3)
Range("A29").Offset(1, 1).Value = Mid(Grund2, InStr(Grund2, " ") + 1)
ElseIf Range("A25").Value <> "x" And Range("A29").Value <> "x" And Range("A33").Value = "x" Then
Range("A33").Value = Left(Grund1, 1)
Range("A33").Offset(0, 1).Value = Mid(Grund1, InStr(Grund1, " ") + 1)
Range("A33").Offset(1, 0).Value = Left(Grund2, 3)
Range("A33").Offset(1, 1).Value = Mid(Grund2, InStr(Grund2, " ") + 1)
Else
MsgBox "Sie haben die Anzahl möglicher Hauptgründe erreicht!"
End If
End Sub
Ich hoffe jemand kann mir weiter helfen.
LG Bobby
|