Hallo liebe Community folgend ein kleiner Ausschnitt meines VBA Codes:

With OPListe
    
    For i = 2 To ffrow
     myval = Cells(i, Betrag)
     
        If .Cells(i, Referenzschlüssel) Like "E14*" And Sgn(myval) = 1 Then
        Zwischen.Cells(i, 1).Value = myval          'extra tabellenblatt, um einzelne werte zu übertragen und anschließend die summe zu ziehen -> nach jeder Bearbeitung blatt clearen
      
        End If
        
    Next i
    
End With

Soweit so gut. Ich möchte allerdings die "E14*" durch eine Eingabe mit der Inputbox ersetzen, um den Code allgemeingültiger zu machen -> Also soll man individuell auch z.B. E40 in die InputBox eingeben können.

'BU = InputBox("Gib hier bitte die erste BU ein. z.B. E14")

Dazu habe ich die Variable BU mit der Eingabe der Inputbox belegt. Nun frage ich mich, wie ich die Variable BU in die If, like Funktion einbaue. Dabei zu beachten ist, dass E14 in die Inputbox eingegeben werden soll während in der Likefunktion "E14*" stehen muss, da gegebenenfalls Ziffern oder Buchstaben nachfolgen könnten.

Ich hatte das so probiert (hat natürlich nicht geklappt):

With OPListe
    
    For i = 2 To ffrow
    myval = Cells(i, Betrag)
     
        If .Cells(i, Referenzschlüssel) Like "BU*" And Sgn(myval) = 1 Then
        
            Zwischen.Cells(i, 1).Value = myval          'extra tabellenblatt, um einzelne werte zu übertragen und anschließend die summe zu ziehen -> nach jeder Bearbeitung blatt clearen
        
       
        End If
        
    Next i
    
End With

Ich würde mich unglaublich über Hilfe freuen!