Aktion mit Target umkehren

Private Sub Worksheet_Change(ByVal Target As Range) Dim iRow As Integer 'Bei Eintragung eines X in Spalte Z soll die entsprechende Zeile kopiert 'und am Ende der Tabelle in "Ausgabe_Parameter" eingetragen werden. If Target.Column 26 Then Exit Sub If IsEmpty(Target) Then Exit Sub If UCase(Target.Value) = "X" Then With Worksheets("Ausgabe_Parameter") iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 Rows(Target.Row).Copy .Rows(iRow) End With End If Application.CutCopyMode = False Call Spalten_löschen End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

dim Zelle as range if IsEmpty(target) then set Zelle = sheets("Ausgabe_Parameter").columns(3),find(what:=cells(target.row, 3).text, _ lookat:=xlwhole, lookin:=xlvalues) if not Zelle is nothing then Zelle.EntireRow.delete elseIf Ucase(target) = "x" then ... und hier der Code zum löschen end If

Sub test() dim..... If Target.Column 26 Then Exit Sub If IsEmpty(Target) Then Set Zelle = sheets("Ausgabe_Parameter").columns(3),find(what:=cells(target.row, 3).text, _ lookat:=xlwhole, lookin:=xlvalues) '***** beim Komma nach .columns(3), kommt Meldung:Fehler beim Kompilieren, Erwartet: _ Anweisungsende********** If Not Zelle Is Nothing Then Zelle.EntireRow.Delete ElseIf UCase(Target) = "x" Then With Worksheets("Ausgabe_Parameter") iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 Rows(Target.Row).Copy .Rows(iRow) End With End If Application.CutCopyMode = False Call Spalten_löschen End Sub

Hallo Daniel bzw. alle
Hatte leider um die Uhrzeit nicht mehr getestet. Irgendein Fehler verbirgt sich.
Ursprünglich bestand das Makro nur aus dem "ElseIf"-Teil - hat also bei Setzen des "x" die aktuelle Zeile in ein 2. Blatt kopiert. Das hat funktioniert.
Jetzt habe ich eine Ergänzung (IfIsEmpty-Teil) hinzugefügt und dabei wohl einen Fehler gemacht. Es wird nichts mehr kopiert. Normalerweise würde ich mit F8 testen, das funktioniert aber mit Worksheet_Change so nicht.
Wer findet meinen Fehler? Vielen herzlichen Dank.
Margarete
Hier mein erweitertes Makro:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
Dim Zelle As Range
'Bei Eintragung eines X in Spalte Z soll die entsprechende Zeile kopiert
'und am Ende der Tabelle in "Ausgabe_Parameter" eingetragen werden.
'Nach Löschen des x werden die Zellinhalte in Spalte C abgeglichen und die Zeile wieder gelö _
scht.
If Target.Column  26 Then Exit Sub
If IsEmpty(Target) Then
Set Zelle = Sheets("Ausgabe_Parameter").Columns(3).Find(what:=Cells(Target.Row, 3).Text, _
lookat:=xlWhole, LookIn:=xlValues)
If Not Zelle Is Nothing Then Zelle.EntireRow.Delete
ElseIf UCase(Target) = "x" Then
With Worksheets("Ausgabe_Parameter")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(Target.Row).Copy .Rows(iRow)
End With
End If
Application.CutCopyMode = False
End Sub

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread