Zeile löschen VBA Code

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
im prinzip so, man muss, bevor die Zelle geändert wird, schauen ob ein "x" drin stand oder nicht:

Option Explicit
Dim WarX As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Column = 5 Then
        If .CountLarge = 1 Then
            If .Value = "x" Then
                Application.EnableEvents = False
                .EntireRow.Copy .EntireRow(2)
                .EntireRow(2).ClearContents
                Application.EnableEvents = True
            ElseIf .Value = "" Then
                If WarX Then
                    Application.EnableEvents = False
                    Target.Offset(1, 0).EntireRow.Clear ' oder auch .delete, je nachdem ob die Zeile gleert oder gelöscht werden soll
                    Application.EnableEvents = False
                End If
            End If
        End If
    End If
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
    If .Column = 5 Then
        If .CountLarge = 1 Then
            If .Value = "x" Then
                WarX = True
            Else
                WarX = False
            End If
        End If
    End If
End With
End Sub

Gruß Daniel

Hallo Daniel,
danke für den Code. Leider funktioniert er noch nicht ganz.
"Target.Offset(1, 0).EntireRow.Clear ' oder auch .delete, je nachdem ob die Zeile gleert oder gelöscht werden soll"
Wenn ich .clear durch .delete ersetze (und deinen Hinweis lösche) wird zwar nach setzen des "x" eine neue Zelle darunter generiert aber der Inhalt der davor drin war wird gelöscht statt eine neue leere Zelle einzufügen. Das hatte bei Gerd funktioniert.
Und wenn ich das "x" wieder lösche, wird die Zeile zwar gelöscht, aber es geht nur einmal...habe ich mehrere x in dem Tabellenblatt, dann funktioniert der Befehl leider nicht mehr.
Und scheinbar scheint es sich mit den Dropdown-Listen zu beissen, die ich in der Liste vewende. Kann das sein?
Danke für deine Mühe :-)
Grüße
Gabriele

Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Column = 5 Then If .CountLarge = 1 Then If .Value = "x" Then Application.EnableEvents = False .EntireRow.Copy .EntireRow(2) If Not .Comment Is Nothing Then .Comment.Delete End If .AddComment "x" .Comment.Visible = False .EntireRow(2).ClearContents Application.EnableEvents = True ElseIf .Value = Empty Then If Not .Comment Is Nothing Then Application.EnableEvents = False If .Comment.Text = "x" Then .ClearComments .EntireRow(2).Delete shift:=xlShiftUp Application.EnableEvents = True End If End If End If End If End With End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile löschen VBA Code

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread