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!
|