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
|