Pflichtfeld in Excel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Alex,
folgender Code funktioniert, solange nur eine Zelle im Bereich ausgewählt ist. Ich komm grad nicht drauf, wie man das vernünftig abfängt ... kann bestimmt jemand anders fix korrigieren.
Da deine Eingangsfrage so unklar war, habe ich ein paar Annahmen getroffen.
ALT+F11 in den VBA-Editor, links im Explorer auf dein Tabellenblatt clicken (Tabelle1?), den Code in das große weiße Fenster kopieren, Bereich und Suchwort anpassen.
Ändert sich per Eingabe oder DropDown der Inhalt einer Zelle im überwachten Bereich, springt der Code an. Bei Änderungen per Formel passiert garnix, um das zu realisieren müsste man deine Datei und Formeln kennen.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rBereich As Range
Dim sCheckIt As String
'HIER den Bereich anpassen, zB auf P2:P1000 wenn du 999 Einträge hast!
Set rBereich = Range("P2:P20")
'HIER das Suchwort setzten!
sCheckIt = "XYP"
Set rBereich = Intersect(rBereich, Range(Target.Address))
If Not rBereich Is Nothing Then
On Error GoTo EndMe 'schmiert ab, wenn mehr als eine Zelle ausgewählt wurde
Debug.Print rBereich.Cells.Count
If rBereich.Value = sCheckIt Then
Application.EnableEvents = False
rBereich.Offset(0, 1).Select
If MsgBox("YES or NO?", vbYesNo) = 6 Then
rBereich.Offset(0, 1).Value = "YES"
Else '=7
rBereich.Offset(0, 1).Value = "NO"
End If
Application.EnableEvents = True
End If
End If
EndMe:
End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim a As Variant If Target.Column = 1 And Target.Count = 1 Then a = Application.Match(Target, Worksheets("Tabelle2").Columns(1)) If IsNumeric(a) Then Cells(Target.Row, 2) = Worksheets("Tabelle2").Cells(a, 2) If Cells(Target.Row, 2) = "Sparte3" Then Cells(Target.Row, 3) = IIf(MsgBox("Lizenz vorhanden?", vbYesNo) = vbYes, "Yes", "No") End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim a As Variant If Target.Column = 14 And Target.Count = 14 Then a = Application.Match(Target, workssheets("Product").Columns(2)) If IsNumeric(a) Then Cells(Target.Row, 16) = Worksheets("Product").Cells(a, 2) 'das Produkt ist _ in Spalte 2 und die Sparte in Spalte 4 If Cells(Target.Row, 16) = "11 - Sparte XY" Then 'Produktnamen und Sparte sind nicht numerisch.. _ .macht das was? Cells(Target.Row, 17) = IIf(MsgBox("Licence ordered?", vbYesNo) = vbYes, "Yes", "No") End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim a As Variant If Target.Column = 14 And Target.Count = 1 Then a = Application.Match(Target, Worksheets("Product").Columns(2)) 'das Produkt ist in Spalte 2 If IsNumeric(a) Then Cells(Target.Row, 16) = Worksheets("Product").Cells(a, 4) 'die Sparte in _ Spalte 4 If Cells(Target.Row, 16) = "11 - Sparte XY" Then 'Produktnamen und Sparte sind nicht numerisch.. _ _ .macht das was? Cells(Target.Row, 17) = IIf(MsgBox("Licence ordered?", vbYesNo) = vbYes, "Yes", "No") End If End If End Sub

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