Registriert seit: 29.09.2016
Version(en): 2007/2010/ 365
11.11.2021, 00:10
(Dieser Beitrag wurde zuletzt bearbeitet: 11.11.2021, 00:11 von DietmarD.)
Hallo zusammen,
ich möchte diesen Code um einen weitern " Set rng = Intersect(Target, Range erweitern,
er soll die Zellen X5:X60 ansprechen und soll mir wenn dort ein bestimmter Begriff steht, in Zelle W "Beleg drucken" ausgeben.
Da es sich bei den Begriffen um Kundennamen handelt, sollte "Beleg drucken" bei 4 verschieden Kunden die in X5:X60 stehen in W ausgegeben werden.
Ich bin für jede Hilfe dankbar.
Code: Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim Zelle As Range
Dim intIndex As Integer
Dim rng As Range
Set Bereich = Range("B5:z60")
Set rng = Intersect(Target, Range("D5:D60"))
If rng Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each Zelle In rng
Select Case Zelle.Value
' falls es unterschiedlicher Text wäre
'Rechts links
Case "2069692": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case Else: intIndex = -4142: 'Zelle.Offset(0, 19).Value = "" ' Spalte W leeren
End Select
If Zelle.Value <> "" Then
Zelle.Offset(0, 21).Value = "SM4"
Else
Zelle.Offset(0, 21).Value = "" ' Spalte Y leeren
End If
'Zelle.Offset(0, 19).Value = "Dein Text für Alle" 'hier bei immer gleichem Text
Bereich.Rows(Zelle.Row - 4).Interior.ColorIndex = intIndex
Next
Application.EnableEvents = True
End Sub
Gruß
Dietmar
Damit das Mögliche entsteht, muß immer wieder das Unmögliche versucht werden.
Registriert seit: 12.03.2016
Version(en): Excel 2003
11.11.2021, 00:39
(Dieser Beitrag wurde zuletzt bearbeitet: 11.11.2021, 00:44 von Gast 123.)
Hallo
am einfachsten hinter der 1. For Next Schleife eine zweite installieren. Vorher mit Set den geänderten Range zuweisen.
Bitte den Warnhinweis beachten und NICHT Exit Sub nach Set verwenden. Dann würden die Events nicht mehr auf True gesetzt!
mfg Gast 123
Code: Set rng = Intersect(Target, Range("X5:X60"))
'** NICHT Exit Sub verwenden wegen EnableEvents = True
If Not rng Is Nothing Then
For Each Zelle In rng
If Zelle.Value = "xxx" Then
Cells(Zelle.rox, "W") = "Beleg drucken"
End If
Next
End If
Upps wir haben heute den 11.11. um 11:11 fängt die närrische Zeit wieder an. Na dann, Prost ...
Registriert seit: 29.09.2016
Version(en): 2007/2010/ 365
Hallo Gast 123,
vielen Dank für deine Hilfe. Habe jetzt versucht deinen Code einzubauen,
funktioniert nicht weil ich nicht weiß wo der Code genau gesetzt werden muss.
Kannst du mir hier noch mal unter die Arme greifen.
Gruß
Dietmar
Damit das Mögliche entsteht, muß immer wieder das Unmögliche versucht werden.
Registriert seit: 12.03.2016
Version(en): Excel 2003
11.11.2021, 10:44
(Dieser Beitrag wurde zuletzt bearbeitet: 11.11.2021, 10:47 von Gast 123.)
Hallo
Sorry, mein Fehler. Man setzt als Ratgeber oft unbewusst voraus das der andere sich mit VBA gut auskennt. Also:
Den VBA Editor Öffnen, und dann die beiden Tabellen Bank und Kasse anklicken. Dort gehört der Code hinein! Nicht in ein Modul!
Bei der Eingabe wird das Target Ereignis aktiviert, und das Makro prüft in welche Spalte eingegeben wird. Nur bei Betrag wird gebucht!
Ich mache aber keine Prüfung ob der Betrag schon einmal eingegeben wurde. Der Aufwand war mir zuviel.
mfg Gasdt 123
Nachtrag wenn du das Kontenblatt sperren willst, damit keiner versehentlich Daten löscht, kann man das einbauen. Wenn du den PC alleine bedienst ist das nicht notwendig.
Registriert seit: 12.03.2016
Version(en): Excel 2003
Hallo
moch mal gganz rosses Sorry. Diese Nachricht war für den anderen Thread "Kassenbuch" bestimmt!! Nicht aufgepasst.
Hier jetzt dein geänderter Code Die zweite For Next steht hinter der ersten Original For Next Schleife. Die erste Schleife ist unverändert!!
Schau bitte mal ob es mit dieser Version klappt. Würde mich freuen.
mfg Gast 123
Code: Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim Zelle As Range
Dim intIndex As Integer
Dim rng As Range
Set Bereich = Range("B5:z60")
Set rng = Intersect(Target, Range("D5:D60"))
If rng Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each Zelle In rng
Select Case Zelle.Value
' falls es unterschiedlicher Text wäre
'Rechts links
Case "2069692": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case Else: intIndex = -4142: 'Zelle.Offset(0, 19).Value = "" ' Spalte W leeren
End Select
If Zelle.Value <> "" Then
Zelle.Offset(0, 21).Value = "SM4"
Else
Zelle.Offset(0, 21).Value = "" ' Spalte Y leeren
End If
'Zelle.Offset(0, 19).Value = "Dein Text für Alle" 'hier bei immer gleichem Text
Bereich.Rows(Zelle.Row - 4).Interior.ColorIndex = intIndex
Next
Set rng = Intersect(Target, Range("X5:X60"))
'** NICHT Exit Sub verwenden wegen EnableEvents = True
If Not rng Is Nothing Then
For Each Zelle In rng
If Zelle.Value = "xxx" Then
Cells(Zelle.rox, "W") = "Beleg drucken"
End If
Next
End If
Application.EnableEvents = True
End Sub
Registriert seit: 29.09.2016
Version(en): 2007/2010/ 365
Hallo Gast 123,
vielen Dank für deine Mühe.
Du hast recht, VBA ist nicht meine Stärke.
Den Code habe ich in meiner Datei an der Stelle eingefügt, wie es in deinem Beispiel gut erklärt ist, ich bekomme keine Fehlermeldung aber in Zelle W kommt nicht mein gewünschtes Ergebnis "Beleg drucken" wenn in zelle X xxx steht.
Ich habe auch versucht den geposteten Code in eine neue Datei einzufügen, auch das funktioniert nicht mit dem gewünschten Ergebnis.
Gruß
Dietmar
Damit das Mögliche entsteht, muß immer wieder das Unmögliche versucht werden.
Registriert seit: 12.03.2016
Version(en): Excel 2003
Hallo
ja, ja, wenn man Codes nicht praktisch testet übersieht man dumme kleine Flüchtigkeitsfehler. Mit ein Bischen VBA hättest du es sofort gesehen
Ändere bitte Cells(Zelle.rox, "W") = "Beleg drucken" um in Cells(Zelle.Row, "W") = "Beleg drucken"
Frage, steht in der Spalte wirklich "xxx2 als Text, oder steht da ein Text??? GGf. diese Zeile ändern, den richtigen Text eingeben If Zelle.Value = "xxx" Then
mfg Gast 123
Registriert seit: 29.09.2016
Version(en): 2007/2010/ 365
Hallo Gast 123,
danke für deine Antwort.
Ich habe den Code in row geändert und den Text "xxx" in einer Zelle von x5:x60 eingegeben, der gewünschte Text "Beleg drucken" in der dazugehörigen Zelle W bleibt allerdings aus. Mit anderen Worten, funktioniert leider noch nicht.
Gruß
Dietmar
Damit das Mögliche entsteht, muß immer wieder das Unmögliche versucht werden.
Registriert seit: 12.03.2016
Version(en): Excel 2003
Hallo
kannst du mit bitte noch mal deinen ganzen Code hochladen, damit ich ihn bei mir in einer Beispieldatei durchlaufen lassen kann.
Wäre doch gelacht wenn wir den Fehler nicht finden. Oder eine Beispieldatei hochladen.
mfg Gast 123
Registriert seit: 29.09.2016
Version(en): 2007/2010/ 365
Hallo Gast 123,
der genaue Code sieht so aus, im unteren Teil habe ich deinen Vorschlag um 3 Weitere Begriffe erweitert und eingefügt, wenn einer dieser Begriffe in der Spalte x steht soll in der Spalte w "Beleg drucken" erscheinen.
Die Datei ist 2,78 MB groß der Code befindet sich im Tabellenblatt SM4
Der Link ist ein Portal wo die Datei heruntergeladen werden kannt.
https://www.swisstransfer.com/d/589804aa...6cc4ed05a3
Danke für deine Geduld mit mir
Code: Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim Zelle As Range
Dim intIndex As Integer
Dim rng As Range
Set Bereich = Range("B5:z60")
Set rng = Intersect(Target, Range("D5:D60"))
If rng Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each Zelle In rng
Select Case Zelle.Value
' falls es unterschiedlicher Text wäre
'Rechts links
Case "2069692": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2068694": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2069693": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2061538": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2061536": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2070577": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2073630": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2079335": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2060109": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2068440": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2067661": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2066453": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2072135": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2065663": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2073641": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2073627": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2073140": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2074487": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2073642": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2073644": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2081273": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
Case "2072030": intIndex = 6: Zelle.Offset(0, 19).Value = "links rechts Markierung"
'KZ48
Case "2066150": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2068006": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2068007": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2068008": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2068009": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2069288": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2069289": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2069351": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2069352": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2069947": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2070379": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2070598": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2070599": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2070623": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2070627": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2071522": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2071617": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2071618": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2071619": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2071620": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2071621": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2071622": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2071636": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2071782": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2071830": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2072503": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2072504": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2073969": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2073972": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2074563": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2075364": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2076374": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2076815": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2077936": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2078006": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2078007": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2078213": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2078265": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2078266": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2078317": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2078377": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2078531": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2078646": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2078882": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2079639": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2079640": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2079703": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2079881": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2080309": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2081008": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2072507": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2072506": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2069353": intIndex = 6: Zelle.Offset(0, 19).Value = "Autoreflex nur Rohglas mit KZ48 verwenden"
Case "2079689": intIndex = 6: Zelle.Offset(0, 19).Value = "Super-Autoreflex nur Rohglas mit KZ45 verwenden"
Case "2075086": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075524": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075525": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075527": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075528": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075529": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075530": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075531": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075532": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075533": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075534": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075537": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075540": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075541": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075542": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075543": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075545": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075547": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075548": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2075555": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2076253": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2077595": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2077653": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2077812": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2077864": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2078112": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2079199": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2079712": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2079713": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2079715": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2079716": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
Case "2084793": intIndex = 3: Zelle.Offset(0, 19).Value = "Mat. 2079712 verwenden KZ91"
Case "2074158": intIndex = 3: Zelle.Offset(0, 19).Value = "Mat. 2079713 verwenden KZ91"
Case "2074275": intIndex = 3: Zelle.Offset(0, 19).Value = "Mat. 2079715 verwenden KZ91"
Case "2079187": intIndex = 3: Zelle.Offset(0, 19).Value = "Mat. 2079716 verwenden KZ91"
Case "2085516": intIndex = 6: Zelle.Offset(0, 19).Value = "Carlex KZ91 verwenden"
'orange Paletten
Case "2077050": intIndex = 0: Zelle.Offset(0, -2).Value = "Tampere (YF)": Zelle.Offset(0, 19).Value = "nur hohe orange Palette möglich"
Case "2075410": intIndex = 0: Zelle.Offset(0, -2).Value = "Tampere (YF)": Zelle.Offset(0, 19).Value = "nur hohe orange Palette möglich"
Case "2068610": intIndex = 0: Zelle.Offset(0, -2).Value = "Tampere (YF)": Zelle.Offset(0, 19).Value = "nur orange Palette möglich"
Case "2077973": intIndex = 0: Zelle.Offset(0, -2).Value = "Solar (YS)": Zelle.Offset(0, 19).Value = "Solar Palette"
Case "2073773": intIndex = 0: Zelle.Offset(0, -2).Value = "Tampere (YF)": Zelle.Offset(0, 19).Value = "nur orange Palette möglich"
Case Else: intIndex = -4142: 'Zelle.Offset(0, 19).Value = "" ' Spalte W leeren
End Select
If Zelle.Value <> "" Then
Zelle.Offset(0, 21).Value = "SM4"
Else
Zelle.Offset(0, 21).Value = "" ' Spalte Y leeren
End If
'Zelle.Offset(0, 19).Value = "Dein Text für Alle" 'hier bei immer gleichem Text
Bereich.Rows(Zelle.Row - 4).Interior.ColorIndex = intIndex
Next
'Dein Code
Set rng = Intersect(Target, Range("X5:X60"))
'** NICHT Exit Sub verwenden wegen EnableEvents = True
If Not rng Is Nothing Then
For Each Zelle In rng
If Zelle.Value = "Aken" Then
Cells(Zelle.Row, "W") = "Beleg drucken"
End If
If Zelle.Value = "Witten" Then
Cells(Zelle.Row, "W") = "Beleg drucken"
End If
If Zelle.Value = "AGP" Then
Cells(Zelle.Row, "W") = "Beleg drucken"
End If
If Zelle.Value = "Guardian" Then
Cells(Zelle.Row, "W") = "Beleg drucken"
End If
Next
End If
Application.EnableEvents = True
End Sub
Gruß
Dietmar
Damit das Mögliche entsteht, muß immer wieder das Unmögliche versucht werden.
|