Excel VBA Zeilenübereinstimmung

Question

Ich habe etwa 20 Spalten in Excel. Ich muss die Werte in jeder Zelle in der ersten Zeile überprüfen, um bestimmte Zeichenfolgen zu finden. Zum Beispiel A1 = "erste", B1 = "zweite" usw. Wenn die Werte nicht mit meinen gewünschten festen String-Werten übereinstimmen, sollte die Message-Box einen Fehler mit dem Spaltennamen und -wert auslösen. Kann mir bitte jemand helfen?

Ich versuche, mit den Werten der Zeile fettgedruckt übereinstimmen würde bestätigen (in rot markiert ist, nicht, dass ich diese in Excel haben). Wenn sie nicht übereinstimmen, möchte ich den Spaltennamen im Meldungsfeld anzeigen.

Answer 1

Ihre Frage war nicht sehr klar und ich kann 'Kommentare' noch nicht posten.

Nur im Dunkeln hier schießen, aber vielleicht etwas in dieser Richtung? Dies wird nicht getestet und ist kein vollständiger Code, sondern sollte Sie weiter bringen als das, was Sie bereits vorgestellt haben.

LastRow = Sheets("SheetName").Range("A" & Rows.Count).End(xlUp).Row: x = 1 

For Each c1 In Sheets("SheetName").Range("A1:A" & LastRow) 
    If c1.Value = "first" 
     x = x + 1 
     msgbox, “This is a message” 

    End If 
Next c1 

Answer 2

i habe versucht, etwas wie diese

Maß a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z, aa, ab, ac Als String

Wenn trimmen (Bereich ("A1"). Wert) <> "Name" Dann a = "Header für Spalte A ist falsch"

Wenn Trim (Bereich ("B1"). Value) <> "Typ" Dann a = "Header für Spalte B ist falsch"

MsgBox ("Der folgende Fehler (n) haben aufgetreten" & vbCrLf & vbCrLf & a & b)

i ich denke, es herausgefunden. thx