Thema Datum  Von Nutzer Rating
Antwort
Rot Inhalt einer Inputbox in If, like Funktion einbauen
30.06.2022 12:20:02 Stockrookie
NotSolved
30.06.2022 14:10:49 Gast39365
Solved
30.06.2022 14:55:44 Stockrookie
NotSolved

Ansicht des Beitrags:
Von:
Stockrookie
Datum:
30.06.2022 12:20:02
Views:
124
Rating: Antwort:
  Ja
Thema:
Inhalt einer Inputbox in If, like Funktion einbauen

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!


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Inhalt einer Inputbox in If, like Funktion einbauen
30.06.2022 12:20:02 Stockrookie
NotSolved
30.06.2022 14:10:49 Gast39365
Solved
30.06.2022 14:55:44 Stockrookie
NotSolved