Thema Datum  Von Nutzer Rating
Antwort
Rot Zwei verschiedene Werte in gleicher Zeile suchen
14.06.2022 10:02:22 Chrisi
NotSolved
14.06.2022 11:04:34 Gast99978
NotSolved

Ansicht des Beitrags:
Von:
Chrisi
Datum:
14.06.2022 10:02:22
Views:
81
Rating: Antwort:
  Ja
Thema:
Zwei verschiedene Werte in gleicher Zeile suchen

Hallo zusammen,

ich habe eine Frage:

Ich arbeite gerade an einem Excel-Makro und bin auch schon am Ende angelangt, es fehlt mir nur noch eine Überprüfung:

Bei Start des Makros wird als erstes eine "Losnummer" eingegeben, als zweites wird eine "Rückgabenummer" eingegeben und es soll jetzt überprüft werden ob die "Rückgabenummer" zur "Losnummer" passt. (Es gibt eine Vorgabedatei womit die eingegebenen Werte überprüft werden und die zwei Nummern sind immer in der gleichen Zeile (Losnummer in Spalte A und Rückgabenummer in Spalte C).

Kann mir jemand von euch helfen wie ich das am besten machen kann?

Hier mein Code:

Sub EingabeFenster()


Dim eingabe_losnummer As String
Dim eingabe_rückmeldenummer As String
Dim c_losnummer As Range
Dim c_rückmeldenummer As Range


Worksheets("MakroStart").Range("K13:K17").Clear

'InputBox mit Dialogfeld für LosNr
eingabe_losnummer = InputBox("Bitte geben Sie eine Losnummer ein:")

'Eingabewert mit Vorgabewert vergleichen
With Worksheets("Vorgabedatei").Range("A1:A2150")
 Set c_losnummer = .Find(eingabe_losnummer, LookIn:=xlValues)
 If c_losnummer Is Nothing Then
    MsgBox ("Eingabe nicht gefunden, bitte erneut eingeben")
 Else
    If c_losnummer = eingabe_losnummer Then
        'Eingabewert in eine Zelle schreiben
        Worksheets("MakroStart").Range("K13").Value = eingabe_losnummer
        Worksheets("MakroStart").Range("K13").Interior.ColorIndex = 4
        
        
        'InputBox für Rückmeldenummer
        eingabe_rückmeldenummer = InputBox("Bitte geben Sie eine Rückmeldenummer ein:")
        
        'Eingabewert mit Vorgabe vergleichen
        With Worksheets("Vorgabedatei").Range("C1:C2150")
        Set c_rückmeldenummer = .Find(eingabe_rückmeldenummer, LookIn:=xlValues)
            If eingabe_rückmeldenummer = "" Or c_rückmeldenummer Is Nothing Then
                MsgBox ("Keine Eingabe betätigt, bitte eine Nummer eingeben")
            Else
                If c_rückmeldenummer = eingabe_rückmeldenummer Then
                    'Eingabewert in Zelle schreiben
                    Worksheets("MakroStart").Range("K14").Value = eingabe_rückmeldenummer
                    Worksheets("MakroStart").Range("K14").Interior.ColorIndex = 4
                Else
                    MsgBox ("Eingabe nicht gefunden, bitte erneut eingeben")
                End If
            End If
            
        End With
    
    Else
        MsgBox ("Eingabe nicht gefunden, bitte erneut eingeben")
    End If
    End If
End With
End Sub
 

 

 


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 Zwei verschiedene Werte in gleicher Zeile suchen
14.06.2022 10:02:22 Chrisi
NotSolved
14.06.2022 11:04:34 Gast99978
NotSolved