var
Harald
mit folgendem Makro suche ich in der Tabelle ob die Artikelnummer in Spalte 2 schon vorhanden ist
wenn ja wird die Menge des gleichen Artikel aufsummiert code 2, wenn nicht wird der artikel unten angehängt code 1 .
Jetzt möchte ich aber selber entscheiden ob der Artikel aufsummiert oder am Ende angehängt wird,
dazu müsste ich jetzt
var auf Fehler 2042 setzen können.
var = Application.Match("xxx", .Columns(2), 0)
Select Case MsgBox("Ja = Gleiche Artikel werden zusammengeführt " _
& vbCrLf & "Nein = Wie in Vorlage wird eingefügt" _
, vbYesNoCancel Or vbQuestion Or vbDefaultButton2, "Gleiche Artikel zusammenführen")
Case vbYes
var = var ' hier bleibt alles beim alten
Case vbNo
var = Error 'var wird auf Fehler 2024 gesetzt geht aber so nicht
End Select
If IsError(var) Then
Code 1
else
Code 2
end if
mit freundlichem Gruß
Harald