Excel Code & Abfrage

Hallo Ian,
danke für Deine Hilfe.
Leider hat mir der Translator das Leben nicht erleichtert.

Ich habe eine Lösung bekommen und das Problem wurde gelöst.

Danke
<br />

Hallo Claus,
<br />grundsätzlich "Ja", nur bitte verrate mir wie dann der Code & die Abfrage in der Spalte A bestehen bleiben.
<br />Es sollen ja nur die Einträge in der Tabelle gelöscht werden.
<br />Grüße
<br />

Wir verwenden einen Übersetzungsdienst, um unsere Benutzer zu unterstützen. Bitte entschuldigen Sie grammatikalische Fehler.
<br />

Hallo sBärle, ich hoffe, es geht dir gut. Ich bin Ian, und ich freue mich, Ihnen heute zu helfen.

Ich möchte nur klarstellen, dass die Spalte B bis E sofort gelöscht werden sollte, bevor die Spalte A leer ist, ist das richtig?

Sie können den folgenden Code ausprobieren

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Zeile als Bereich dimmen
Zelle als Bereich dimmen
LastRow so lange dimmen
Dim AllEmpty As Boolean
LastRow = cells(Rows.Count, "A"). Ende(xlUp).row
Setzen Sie rng = Range("B1:E" & LastRow)

Wenn rng nichts ist, dann beenden Sie sub

Für jede Zeile In rng. Reihen
AllEmpty = Falsch
Für jede Zelle In Zeile. Zellen
Wenn IsEmpty(Zelle) dann
AllEmpty = True
Oder
AllEmpty = Falsch
Beenden für
Beenden, wenn
Nächste Zelle

Wenn AllEmpty dann
Bereich("A" & row.row). Wert = ""
Beenden, wenn
Nächste Zeile
Ende Sub

Dies ist ein Benutzer-zu-Benutzer-Support-Forum und ich bin ein Mitbenutzer.
Ich hoffe, das hilft, aber bitte lassen Sie es mich wissen, wenn Sie etwas anderes brauchen.

Hallo Claus,
<br />vielen herzlichen Dank für Deine Hilfe.
Deine Lösung vor allem der Code hat mir sehr weitergeholfen und den gewissen "Schlag auf den Hinterkopf, welcher das Denkvermögen fördert" verpasst.

Habe Deinen Code eingesetzt & lasse dann über ein Makro den Inhalt löschen.
Denn ich brauche die Abfrage ("wenn") ja gar nicht.

Bei Deinem Code habe ich aus:
<br />

Cells(Target.Row, "A") = IIf(Len(Cells(Target.Row, "A")) = 0, Date, Cells(Target.Row, "A"))

folgendes gemacht:
Cells(Target.Row, "A") = IIf(Len(Cells(Target.Row, "A")) = 0, Now, Cells(Target.Row, "A"))
<br />den hier habe ich dieses "Now" benötigt.
<br />Ich bedanke mich wirklich sehr.
<br />Grüße
<br />

Hallo,
<br />verwende folgenden Code zum Einschreiben des Datums:
<br />

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("B:B")) Is Nothing Or _

Target.Count > 1 Then Exit Sub

If Len(Target) > 0 Then

Cells(Target.Row, "A") = IIf(Len(Cells(Target.Row, "A")) = 0, Date, Cells(Target.Row, "A"))

Else

Cells(Target.Row, "A").ClearContents

End If

End Sub

Füge folgenden Code in ein Standardmodul ein:
<br />

Sub DatumLoeschen()

Dim LRow As Long, i As Long

Application.EnableEvents = False

With ActiveSheet

LRow = .Cells(.Rows.Count, "A").End(xlUp).Row

For i = LRow To 9 Step -1

If Application.CountA(.Range(.Cells(i, "B"), .Cells(i, "E"))) = 0 Then

.Cells(i, "A").ClearContents

End If

Next

End With

Application.EnableEvents = True

End Sub

Wenn du nach dem Löschen eines Bereichs, die Datumswerte auch löschen willst, rufe das Makro auf.
<br />Claus
<br />