Werte in "Datenbank" schreiben und vergleichen
23.11.2018 15:59:37
Bruno
ich eine Zelle mit mehreren Werten die ich zuvor ermittelt habe vergleichen:
'Tabelle1:
For Zeile = 1 To 100
If Sheets("Tabelle1").Cells(Zeile, 1) = "X" Then KOPIERE WERT IN "DATENBANK"
Next Zeile
'In die Datenbank wurden 666, 777, EinWert geschrieben
'Tabelle2:
For Zeile2 = 1 To 100
If Sheets("Tabelle2").Cells(Zeile, 1) = "X" Then
If Sheets("Tabelle2").Cells(Zeile, 2) = AUS DATENBANKBANK Then Counter = Counter + 1
End If
In der Mappe nachlesbar:
https://www.herber.de/bbs/user/125607.xlsx
Ich hab schon mit einer Lösung gearbeitet wo ich die Werte, die ich vergleichen will, in ein Tabellenblatt geschrieben habe und dann daraus verglichen habe. Ist das auch irgendwie ohne das möglich?
Gruß Bruno