Thema Datum  Von Nutzer Rating
Antwort
Rot Schleife für folgenden Code
 06.03.2016 21:46:37 Marina
Solved
07.03.2016 06:55:47 Gast1948
NotSolved
07.03.2016 08:21:33 Gast99530
NotSolved

Ansicht des Beitrags:
Von:
Marina		 Datum:
06.03.2016 21:46:37		 Views:
3101		 Rating:
     
Antwort:
 Nein
Thema:
Schleife für folgenden Code
Hallo, ich bin ein absoluter VBA-Neuling, habe es aber geschafft, eine Aktion zu erstellen, die tatsächlich auch funtioniert. Leider nur bei einer Zeile. In meinem Fall in der Zeile 45. Die nachfolgenden Zeilen bis 63 sollen genauso behandelt werden. Kann mir jemand helfen? Die Kriterien: Wenn Spalte G geändert wird soll geprüft werden, ob in Spalte A etwas eingetragen ist. Wenn ja, und die Spalten D und E sind leer, dann öffnet sich eine Messagebox mit der Auswahl ja/nein. Wenn ja, dann soll Spalte E mit einem "X" gefüllt werden (Spalte D soll leer sein). Wenn nein, dann soll das "X" in Spalte D (Spalte E bleibt leer). Ist Spalte A leer, passiert nichts. Mein Code sieht folgendermassen aus: (Sorry, das mit dem Code-Button im Text-Editor sagt mir gar nichts) ________________________________________________________________________________________________________________ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 7 And Tab1.Range("A45").Value <> "" Then If MsgBox("Eines der beiden Pflichtfelder -vorhanden- oder -liefern- ist nicht ausgefüllt. Soll der Artikel geliefert werden?", vbYesNo + vbQuestion) = vbYes Then Range("E45").Select ActiveCell = "x" Range("D45").ClearContents Range("G45").Select Else: Range("D45").Select ActiveCell = "x" Range("E45").ClearContents Range("G45").Select End If End If End Sub ________________________________________________________________________________________________________________ Ich würde mich sehr freuen, wenn mir jemand helfen könnte. Vielen liebe Dank! Marina

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Schleife für folgenden Code
 06.03.2016 21:46:37 Marina
Solved
07.03.2016 06:55:47 Gast1948
NotSolved
07.03.2016 08:21:33 Gast99530
NotSolved