Office: VBA Code soll erst ausgeführt werden, wenn mehrere Felder NICHT leer sind

Helfe beim Thema VBA Code soll erst ausgeführt werden, wenn mehrere Felder NICHT leer sind in Sonstiges um das Problem gemeinsam zu lösen; Hallo zusammen, ich möchte, dass mein VBA Code nicht nur (wie in meinem Code) die Zelle B4 prüft, ob diese ausgefüllt ist, er soll auch noch vier... Dieses Thema im Forum "Sonstiges" wurde erstellt von Steffi H, 2. Juni 2023.

  1. VBA Code soll erst ausgeführt werden, wenn mehrere Felder NICHT leer sind


    Hallo zusammen,

    ich möchte, dass mein VBA Code nicht nur (wie in meinem Code) die Zelle B4 prüft, ob diese ausgefüllt ist, er soll auch noch vier weitere Zellen überprüfen.

    Sub NeueAbrechnung()

    If Range("B4").Value <> "" Then
    Range("S6").Value = Range("S6").Value + 1
    Range("B4,B5,K1:O1,K2:O2,O4:O5,N6:O6,N7,O7,A10:M40,O46").Select
    Range("O46").Activate
    ActiveWindow.SmallScroll Down:=-15
    Range("B4,B5,K1:O1,K2:O2,O4:O5,N6:O6,N7,A10:M40,O46,P10:P40").Select
    Range("P10").Activate
    Selection.ClearContents
    Else
    MsgBox "Bitte Abrechnung erst ausfüllen"

    End If

    End Sub

    Wie gesagt, für die eine Zelle funktioniert es, ich bekomme es nur leider nicht hin, dass er die anderen Zellen auch noch prüft. Kann mir hier jemand einen kleinen Tipp geben?

    Vielen Dank im Voraus!

    Viele Grüße
     
    Steffi H, 2. Juni 2023
    #1
  2. Doming
    Doming hat Ahnung
    Moin Steffi

    Code:
    Sub NeueAbrechnung()
    
        If Range("B4") <> "" And Range("B5") <> "" And Range("B6") <> "" And Range("B7") <> "" Then
            Range("S6") = Range("S6") + 1
            Range("B4,B5,K1:O1,K2:O2,O4:O5,N6:O6,N7,A10:M40,O46,P10:P40").Select
            Range("P10").Activate
            Selection.ClearContents
        Else
            MsgBox "Bitte Abrechnung erst ausfüllen"
        End If
    End Sub
    Ich habe Deinen Code mal etwas eingekürzt, wobei ich denke da geht noch mehr.
    Wenn Du die Zellen in der IF-Zeile anpasst, müsste der Code funktionieren.

    Gruß
    Doming
    (übrigens dürfte Deine Frage im Excel-Forum schneller zu Antworten geführt haben)
     
    Doming, 5. Juni 2023
    #2
    1 Person gefällt das.
  3. Moin Doming,

    super vielen lieben Dank! Funktioniert perfekt! :-) Auch danke für den Tipp, wo meine Frage schneller zu Antworten geführt hätte. :-)

    Einen guten Start in die neue Woche.

    VG
    Steffi
     
    Steffi H, 5. Juni 2023
    #3
  4. d'r Bastler
    d'r Bastler hat Ahnung

    VBA Code soll erst ausgeführt werden, wenn mehrere Felder NICHT leer sind

    Moin
    Frage an @Doming : Warum nicht Select Case?
    Grüße
     
    d'r Bastler, 17. November 2023
    #4
  5. Doming
    Doming hat Ahnung
    Hallo Bastler,
    ich verstehe die Frage nicht, wo sollte man in dem Code SELECT CASE sinnvoll einsetzen?
    Gruß
    Doming
     
  6. d'r Bastler
    d'r Bastler hat Ahnung
    Moin Doming,
    zB. so ...
    Code:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case ""
        Case Cells(4, 2), Cells(5, 2), Cells(6, 2), Cells(7, 2)
            Cells(19, 6) = Cells(19, 6) + 1
            MsgBox Cells(19, 6)
    End Select
    End Sub
    Und was die lange Liste einzelner Zellen betrifft: Für diese den Zellschutz entfernen, ansonsten das Blatt schützen und im Code nach On error resume next einfach allen Contents aus den bearbeitbaren Zellen mit cells.clearcontents entfernen.

    Grüße
     
    d'r Bastler, 20. November 2023
    #6
  7. Doming
    Doming hat Ahnung
    ok, ich neige mein Haupt
     
    1 Person gefällt das.
  8. d'r Bastler
    d'r Bastler hat Ahnung

    VBA Code soll erst ausgeführt werden, wenn mehrere Felder NICHT leer sind

    VBA Code soll erst ausgeführt werden, wenn mehrere Felder NICHT leer sind *;)* Kein Grund dafür! Jetzt aber zackig wieder hoch mit der Rübe!! VBA Code soll erst ausgeführt werden, wenn mehrere Felder NICHT leer sind *;)*
    Kennste das DIW-Prinzip? Du lernst von mir, Ich lerne von Dir, so lernen Wir. Finde ich gut.
    Grüße
     
    d'r Bastler, 21. November 2023
    #8
Thema:

VBA Code soll erst ausgeführt werden, wenn mehrere Felder NICHT leer sind

Die Seite wird geladen...
  1. VBA Code soll erst ausgeführt werden, wenn mehrere Felder NICHT leer sind - Similar Threads - VBA Code ausgeführt

  2. Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.)

    in Microsoft Excel Hilfe
    Excel VBA - Code Hilfe (Spalten, Werte kopieren etc.): Hallo, ich benötige Hilfe für ein Problem, welches ich leider selbst schwerlich als Anfänger nicht lösen kann: Ich möchte von dem Tabellenblatt "Tabelle1" aus den Zellen B8:B14, K8:K14, B18:B25,...
  3. VBA Code " Zeilenhöhe bei Verb. Zellen Funktioniert fasst"

    in Microsoft Excel Hilfe
    VBA Code " Zeilenhöhe bei Verb. Zellen Funktioniert fasst": Hallo Leute dieser Code für Zellenhöhe bei Verbundenen Zellen Funktioniert fast. Ich habe ein Code von jemand anderem bekommen der nicht in einem Forum ist. Ich kann gerade diese Person nicht...
  4. PDF mit Namen,Datum speichern im Zielordner

    in Microsoft Excel Hilfe
    PDF mit Namen,Datum speichern im Zielordner: Hallo, habe das Problem den Namen in Zelle D2, Vorname in Zelle D5 , das Datum steht in der Zelle B 10 und soll beim speichern so angezeigt werden (Max Mustermann 2023 Oktober) wie und wo muß ich...
  5. Datentabelle per VBA Makro durch Kopieren und Einfügen einer Kopfzeile aufteilen

    in Microsoft Excel Hilfe
    Datentabelle per VBA Makro durch Kopieren und Einfügen einer Kopfzeile aufteilen: Hallo Zusammen, mein erster Beitrag hier, also schon mal Sorry im Voraus, wenn unvollständig beschrieben *:)* Ich habe das Forum schon nach einem brauchbaren Lösungsansatz durchsucht, bin aber...
  6. VBA-Code in kopierter Mappe wird in Originalmappe ausgeführt

    in Microsoft Excel Hilfe
    VBA-Code in kopierter Mappe wird in Originalmappe ausgeführt: Hallo Ich erstelle mir einen Jahreskalender, indem ich die Originaldatei kopiere, alle Einträge in der Kopie lösche und den Kalender incl. Feiertage neu erstelle. Das passiert komplett mittels...
  7. VBA Code nicht vollständig ausgeführt

    in Microsoft Excel Hilfe
    VBA Code nicht vollständig ausgeführt: Hallo Zusammen Ich habe einen Code erstellt der eine Liste in Excel importiert und dann alle Zeilen löscht, welche in der Spalte C entweder "Ersatz" oder "Unfall" enthalten. Wenn ich den Code...
  8. VBA Code wird nicht ausgeführt

    in Microsoft Excel Hilfe
    VBA Code wird nicht ausgeführt: Ciao zusammen, ich habe da ein Problem mit einem Code der nicht ausgeführt wird. Das komische jedoch dabei ist, dass der Code für alle Ligen gleich aufgebaut ist und sich nur der Name des Blattes...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden