Hallo liebe Leute,

hab eine Frage: Undzwar habe 2 Tabellen.

Eine Tabelle mit ner Bezeichnung und ne andere mit IDS

In der 2 Tabellen steht in der 1. Spalte die Bezeichnung und in der 2. Spalte die zugehörige ID.

Wenn ich korrekte Bezeichnungen habe, werden die korrekten Ids dazu in einer Ergebnistabelle abgespeichert.

Also dazu hab ich kein Problem.

Aber wenn die Bezeichnung in der Tabelle 1 falsch ist oder gar keine Bezeichnung steht und er mit der vergleichstabelle vergleicht und keine übereinstimmung findet, soll ne Meldung kommen, bzw Angeben, in welcher zelle dieser bezeichnungsfehler ist also nicht den Wert der Zelle ausgeben sondern die Adresse der Zelle

Könnt ihr mir dabei helfen bitte?

Mein Code:

 
'Hier werden bestimmte Zellen aus der Eingangstabelle mit Zellen aus anderen Tabellen verglichen, deren Ergebnis wird
'dann in die Ergebnistabelle abgespeichert.

Private Sub Befüllen(spalte1 As Integer, spalte2 As Integer, vergleichstabelle As Worksheet)
   
    With Eingangstabelle
        lZeile1 = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
   
    With vergleichstabelle
        lZeile2 = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
   
        i = 3
    While i <= lZeile1
        For j = 2 To lZeile2
            If Eingangstabelle.Cells(i, spalte1).Value = vergleichstabelle.Cells(j, spalte2).Value Then
                Ergebnistabelle.Cells(i - 2, spalte1).Value = vergleichstabelle.Cells(j, spalte2 + 1).Value
              
            Exit For
            End If
        Next
            i = i + 1
      Wend
      With Eingangstabelle
        lZeile1 = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
   
    With vergleichstabelle
        lZeile2 = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
  
End Sub

Hauptprogramm: Hier wird Sub Befüllen aufgerufen und somit einzelne Zellen befüllt und CSV Datei erstellt mit einer abschließenden Meldung

Sub ASCII_Import_Jahreswechsel()

   Befüllen 7, 1, ActiveWorkbook.Worksheets(2)
   Befüllen 8, 1, ActiveWorkbook.Worksheets(2)
   Befüllen 9, 2, ActiveWorkbook.Worksheets(3)
   Befüllen 10, 2, ActiveWorkbook.Worksheets(3)
   Befüllen 12, 1, ActiveWorkbook.Worksheets(4)
   Befüllen 20, 1, ActiveWorkbook.Worksheets(5)
   Befüllen 34, 1, ActiveWorkbook.Worksheets(6)
     
 
End Sub

danke für eure Hilfe