Msg_box_wenn_Text

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim btl As Range Dim Treffer As Range Dim Text As String If Target.Column = 4 Then Set btl = Range("Bautteilliste 1") Set Treffer = btl.Find(what:=Target.Value, MatchCase:=False) If Not Treffer Is Nothing Then Text = Treffer.Offset(0, 1).Value If Text "" And Cells(Target.Row, 3) = "" Then MsgBox "Bitte in Zelle ""C" & Target.Row & """ noch eine Eingabe: " & Text, vbCritical, "!" GoTo Ende End If End If End If Ende: End Sub

Code: [Cc] Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Treffer As Range Dim Text As String If Target.Column = 4 Then Set Treffer = Range("Bauteilliste_1").Find(What:=Target.Value, _ LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True) If Not Treffer Is Nothing Then Text = Treffer.Offset(0, -1).Value If Text <> "" And IsEmpty(Target.Offset(0, -1).Value) Then MsgBox "Bitte in Zelle ""C" & Target.Row & _ """ noch eine Eingabe: " & Text, vbCritical, "!" Target.Offset(0, -1).Select End If Set Treffer = Nothing End If End If End Sub

Hallo zusammen,
Es fehlt nicht mehr viel:
_ das Coding soll reagieren, wenn eine Zelle sich ändert. Also muss das Coding in der Codepane der Tabelle sein, nicht in einem Modul.
_ es soll nicht die Zelle, wo man ankommt, sondern die die gerade verlassen wurde, geprüft werden.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static ZelleDavor As Range
On Error Resume Next
If ZelleDavor.Column = 4 Then Eintrag_prüfen ZelleDavor
Set ZelleDavor = Target
End Sub
Private Sub Eintrag_prüfen(ByVal Target As Range)
Dim btl As Range
Dim Treffer As Range
Dim Text As String
If Target.Column = 4 Then
Set btl = Range("Bauteilliste_1")
Set Treffer = btl.Find(what:=Target.Value, MatchCase:=False)
If Not Treffer Is Nothing Then
Text = Treffer.Offset(0, -1).Value
If Text  "" And Cells(Target.Row, 3) = "" Then
MsgBox "Bitte in Zelle ""C" & Target.Row & """ für """ & Target.Value & """" & vbCr & "noch eine Eingabe: " & Text, vbCritical, "!"
GoTo Ende
End If
End If
End If
Ende:
End Sub

Oder als Datei:
https://www.herber.de/bbs/user/145982.xlsm
Sollten der Wunsch entstehen, die Einträge nicht Links sondern rechts vom Bauteilliste_1 zu lagern, müsste man die beiden Offset(0, -1) in Offset (0, 1) ändern.
VG
Yal

Hallo Gerd,
im Sinne von "Rendite" ist es ja fraglich. Im Sinne der Wissenserweiterung und der Nebeneffekte, würde ich auf alle Fälle ja sagen. Na, zugegeben: nicht ganz unparteiisch. Meinerseits habe ich spass daran. Ich helfe nicht nur, um die Leute zu helfen, sondern weil Sudoku zu langweilig ist.
Die Begrifflichkeit muss man nicht alle lernen. Man muss nur wissen, was man googeln muss (mein "Find" ist übrigens unvollständig. Schau dir den von Nepumuk, um es zu ergänzen. Es liegt daran, dass ich ausnahmsweise nicht mit Makro-Recorder gearbeitet habe, sondern es selber eingetippt. Mache ich bei "Suchen" eigentlich nie).
Danach ist nur die Frage: wie lang muss ich noch mitlaufen? Welche Risiken habe ich, wenn anderen "schneller" laufen? Hat man ein besondere Kompetenz, die einem zum Spitzenspieler macht, oder braucht man "Brücken-Kompetenz", die einem vielseitig einsetzbar macht?
Bei jungen Kollegen, die sich jegliche "digitale Vertiefung" versperren, mache ich üblicherweise keine grosse Karrierenprognose (BWL-Umfeld). Die Arbeit-Welt findet kaum ohne Computer statt. Nicht jeder muss sie programmieren können, aber ein Fahrt durch die Wüste macht man eben lieber mit jemandem, der die Mechanik des gefahrenen Autos gut versteht...
VG
Yal

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread