Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA - Zellen Inhalt leeren

VBA - Zellen Inhalt leeren
03.04.2023 08:47:47
Herbert

Servus zusammen, ich hänge gerade an einem Problem ... Ich möchte die zwei Zeilen 26 und 27 jeweils von S26 bis Z27 vergleichen und immer wenn in der Zelle über der zweiten Spalte ein Inhalt ist, die Zelle unmittelbar danach leeren. In den Zellen sind auch immer dieselben Kreuzchen gesetzt, heißt Zeile 27 soll nur Kreuzchen dort haben, wo Zeile 26 keine hat, nie dürfen zwei Kreuzchen untereinander sein. Mein erstes Programm war so aufgestellt, aber es funktioniert leider nicht. Über Hilfe freue ich mich sehr.
VG
Herbert.
Sub DuplikateLoeschen()
Dim strSuche As String
Dim i As Long
Dim x As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "S").End(xlUp).Row To 4 Step -1 = 3
If Application.WorksheetFunction.CountIf(Range("S26:S27" & i), Cells(i, 14)) > 1 Then
strSuche = Cells(i, 1).Value
For x = ActiveSheet.Cells(Rows.Count, "S").End(xlUp).Row To 4 Step -1
If Cells(x, 19).Value = strSuche Then
If Application.WorksheetFunction.CountIf(Range("S26:S27" & x), Cells(x, 14)) > 1 _
Then
Cells(27, 14).ClearContents
End If
End If
Next x
End If
Next
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Zellen Inhalt leeren
03.04.2023 09:12:34
hary
Moin
Besser waere eine Bsp.-Mappe.
Es geht also nur um den Bereich S26 bis Z27!?
Dim Zelle As Range
  For Each Zelle In Range("S26:Z26")
    If UCase(Zelle) = "X" Then
      Zelle.Offset(1, 0).ClearContents
    End If
  Next
gruss hary


AW: VBA - Zellen Inhalt leeren
03.04.2023 09:26:51
GerdL
Moin Herbert,
noch ein Gedicht.
Sub Unit()

    Const kreuzchen As String = "X"
    Dim C as Range
    For Each C In Range("S27:Z27").Cells
        If UCase$(C) = kreuzchen Then
            If UCase$(C.Offset(-1, 0)) = kreuzchen Then
                 C.ClearContents
            End If
        End If
    Next

End Sub
Gruß Gerd

Anzeige

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige