Hallo,
es gibt bestimmt noch einfachere Lösungen.
Aber so könnte es auch funktionieren.
Gruß
fedjo
Sub Eingabe()
Dim ein As String, einMsg As String
Dim a As Range
ein = InputBox("Tabelle1")
If Len(ein) = 0 Then
einMsg = "Keinen Suchbegriff eingegeben!"
Else
With Worksheets("Tabelle1").Range("A1:Z10")
Set a = .Find(ein, LookIn:=xlValues, lookat:=xlWhole)
If Not a Is Nothing Then
einMsg = "Artikel -- " & ein & " -- bereits vorhanden"
Else
For Each zelle In _
Range("A1:A10,B1:B10,C1:C10,D1:D10,E1:E10,F1:F10,G1:G10,H1:H10,I1:I10,J1:J10,K1:K10,L1:L10,M1:M10,N1:N10,O1:O10,P1:P10,Q1:Q10,R1:R10,R1:R10,S1:S10,T1:BT10,U1:U10,V1:V10,W1:W10,X1:X10,Y1:Y10,Z1:Z10") _
.Cells
If zelle.Value = "" Then
zelle.Value = ein
Exit For
End If
Next zelle
End If
End With
End If
If Len(einMsg) > 0 Then MsgBox einMsg, vbExclamation, "ENDE"
End Sub