Löschen wenn leer

Forumthread: Löschen wenn leer

Löschen wenn leer

05.08.2025 08:51:08

NicoHendrik

Guten Morgen,

Ich habe eine Tabelle wo gelöscht werden muss wenn Leer.

In der Spalte C9 bis C22 kann ein Artikel drinstehen.

In den Spalten M9 bis NN22 stehen die verschiedene Preise drin.

Nun hätte ich es gerne, wenn ein Artikel gelöscht wird oder ein Preis ohne Artikel eingetragen wird, der Inhalt von der Zeile gelöscht wird.

Z.B Der Artikel in C11 wird gelöscht, dann muss der Inhalt von M11 bis NN11 gelöscht werden.

Es wird ein Preis in O11 eingetragen ohne das der Artikel in D11 steht, dann muss O11 wieder gelöscht werden.

Gruß Nico

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Löschen wenn leer

05.08.2025 09:08:19

ralf_b
AW: Löschen wenn leer

05.08.2025 10:53:30

GerdL
AW: Löschen wenn leer

05.08.2025 11:10:48

NicoHendrik
AW: Löschen wenn leer

05.08.2025 09:18:29

NicoHendrik

AW: Löschen wenn leer

05.08.2025 09:08:19

ralf_b

und was sagt dein Recorder dazu?
und was ergeben deine Recherchen zum Thema?
evtl. gar nichts, weil es einfacher ist hier die Frage in der Raum zu werfen, anstatt diese Pillepalleaufgabe selbst zu lösen.
hier wäre auch ein Chatgpt oder Copilot hilfreich. Das dürfte deine VBA Kenntnisse etwas erweitern.

AW: Löschen wenn leer

05.08.2025 10:53:30

GerdL

@ ralf_b
Am eigenen Ast sollte man nicht so kräftig sägen.

Moin Nico,

die Konstellation Artikel in D und Preis in O im Verhältnis zu Artikel in C und Preis in M:NN, was O umfasst,
müsstest du erklären. Sie ist hier nicht berücksichtigt.

Private Sub Worksheet_Change(ByVal Target As Range)



    Dim Bereich As Range, Cel As Range

    

    On Error GoTo ende

    Set Bereich = Intersect(Target, Range("M9:NN22"))

    If Not Bereich Is Nothing Then

        For Each Cel In Bereich.Cells

            If Not Cel = Empty Then

                If Cells(Cel.Row, 3) = Empty Then

                    Application.EnableEvents = False

                    MsgBox "Bitte erst den Namen eintragen!"

                    Application.Undo

                 End If

            End If

        Next

    End If

    

    Set Bereich = Intersect(Target, Range("C9:C22"))

    If Not Bereich Is Nothing Then

        For Each Cel In Bereich.Cells

            If Cel = Empty Then

                    Application.EnableEvents = False

                    MsgBox "Preise für gelöschten Arktikel werden gelöscht!"

                    Range("M" & Cel.Row & ":NN" & Cel.Row).ClearContents

            End If

        Next

    End If

    

    

    

    



ende:

    Application.EnableEvents = True



End Sub

Gruß Gerd

AW: Löschen wenn leer

05.08.2025 11:10:48

NicoHendrik

Danke Gerd, ich musste nur dein Cel in Cek ändern da Cel schon benutzt wurde.

Gruß Nico

AW: Löschen wenn leer

05.08.2025 09:18:29

NicoHendrik

danke für den Tip.

Forumthread: Löschen wenn leer

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread