Bitte um 2 Problemlösungen
Günther
ich bin auf der Suche nach 2 Problemlösungen:
1) In Spalte A stehen Werte die immer wieder ergänzt werden.
Wenn nun ein Wert doppelt eingegeben wird, soll dieser
bereits bei der Eingabe farblich hervorgehoben werden (roter Hintergrund).
2) In Spalte H werden Wareneingänge durch ein x bestätigt.
Dies geschieht über dieses Makro (hab ich hier aus dem Forum).
Der Bezugspunkt für das x ist die Auftragsnummer in Spalte A.
Sub Wareneingang_melden()
Dim RaFound As Range
Dim LoLetzte As Long
Dim sSearch As String
Do
sSearch = InputBox("Wareneingang melden:", , "Autrags-Nummer eingeben")
If sSearch = "" Then Exit Sub
LoLetzte = IIf(IsEmpty(Range("a65536")), Range("a65536").End(xlUp).Row, 65536)
Set RaFound = Range("a1:a" & LoLetzte).Find(sSearch, Range("a" & LoLetzte), , xlPart, , _
_
xlNext)
' kompletter Vergleich und Inhalt
' Set RaFound = .Range(.Cells(2, 10), .Cells(5753, 10)).Find(ActiveSheet.Cells(I, 54), _
' .Cells(5753, 10), xlValues , xlWhole, , xlNext)
If Not RaFound Is Nothing Then
Cells(RaFound.Row, 8).Select
ActiveCell.FormulaR1C1 = "x"
Exit Do
End If
Loop
Set RaFound = Nothing
End Sub
Könnt ihr mir weiterhelfen?
Gruß Günther
Anzeige