Sub LädenHinzufügen()
'---------------------------------------------------- Läden Hinzufügen -------------------
Dim WsF As WorksheetFunction
Set WsF = Application.WorksheetFunction
Dim datum As Date, datvorm As Date, letzteZeileläden As Variant, istda As Variant
Dim Tabname As String, hinzu As Variant, wert As Variant
hinzu = InputBox("Laden hinzufügen", "Laden hinzufügen")
laden = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row + 1
If hinzu = "" Then Exit Sub
wert = WsF.Match(hinzu, Range("B1:B" & laden), 0)
If WsF.IsNumber(wert) = True Then
Cells(WsF.Match(hinzu, Range("B1:B" & laden), 0), 2).Select
MsgBox (hinzu & " Ist schon vorhanden!" & vbCrLf & "Siehe makierte Zelle")
Exit Sub
End If
If WsF.IsError(wert) = True Then
MsgBox (hinzu & " wird hinzu gefügt!" & vbCrLf & "Siehe makierte Zelle")
Cells(laden, 2).Select
Cells(laden, 2) = hinzu
laden2 = Sheets("Daten").Range("D" & Rows.Count).End(xlUp).Row + 1
Sheets("Daten").Cells(laden2, 4) = hinzu
End Sub
ich habe mit dem obigen Code folgendes Problem.
ich nutze die formel Match um zu prufen ob ein wert schon vorhanden ist.
ist der wert vorhanden läuft das makro wie gewünscht.
ist ein wert jedoch nicht vorhanden, den ich aber einfügen möchte, streikt die funktion match mit
der meldung:
laufzeitfehler 1004
die Match Eigenschaften-Objektes kann nicht zugeordnet werden
Vielen Dank für Eure Hilfe und bleibt gesund
Jörg