Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bitte um 2 Problemlösungen

Forumthread: Bitte um 2 Problemlösungen

Bitte um 2 Problemlösungen
Günther
Hallo zusammen,
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
Ist nun bereits ein „x“ gesetzt worden, soll ein Hinweis erscheinen wie z.B. „Wareneingang bereits vorhanden“.
Könnt ihr mir weiterhelfen?
Gruß Günther
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
zu 1
02.03.2010 08:10:11
Reinhard
Hallo Günther,

bed. Formatierung:
Formel ist:
=ZÄHLENWENN(A:A;A1)>1

Gruß
Reinhard
AW: Bitte um 2 Problemlösungen
02.03.2010 08:19:33
Hajo_Zi
Hallo Günter,
Du träst keine Formerl ein.
If Cells(RaFound.Row, 8)="x" Then
Msbox "Wareneingang bereits vorhanden“
Else
Cells(RaFound.Row, 8)= "x"
end if
Hinweise zu select usw.

Anzeige
zu 2
02.03.2010 08:25:17
Reinhard
Hallo Günther,
Option Explicit
Sub Wareneingang_melden()
Dim RaFound As Range, LoLetzte As Long, sSearch As String
Do
sSearch = InputBox("Wareneingang melden:", , "Autrags-Nummer eingeben")
If sSearch = "" Then Exit Sub
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) _
Set RaFound = Range("a1:a" & LoLetzte).Find(sSearch, , lookat:=xlPart)
If Not RaFound Is Nothing Then
If Cells(RaFound.Row, 8) = "x" Then
MsgBox "WE schon vorhanden"
Else
Cells(RaFound.Row, 8) = "x"
End If
Exit Do
End If
Loop
Set RaFound = Nothing
End Sub

Gruß
Reinhard
Anzeige
AW: Bitte um 2 Problemlösungen
02.03.2010 11:04:42
Günther
Vielen Dank für die schnellen Antworten.
Funktioniert einwandfrei.
Gruß Günther
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige