Zeile in eine neue Arbeitsmappe verschieben (Makro

Computer: Software & Programmierung Visual Basic
#1

Hallo alle miteinander,

ich brauche dringend eure Hilfe.

Ich habe eine Excel-Tabelle mit zwei Arbeitsblättern. In der einen stehen alle offenen Punkte und in der zweiten alle erledigten. Ich würde gerne ein Makro schreiben, dass die komplette Zeile von den offenen Punkten zu den erledigten schiebt, wenn ich in der Spalte K ein „e“ eintrage. Ich weiß aber leider nicht weiter. Könnt ihr mir helfen? Hier mal mein Makro, das leider nicht funktioniert.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ZeilNr As String

If Mid(ActiveCell.Address, 2, 1) = „K“ Then

ZeilNr = Mid(ActiveCell.Address, 4, 1) - 1
Range(„A“ & ZeilNr & „: C“ & ZeilNr).Select
Selection.Copy
Sheets(„Tabelle2“).Select
Range(„A“ & ZeilNr & „: C“ & ZeilNr).Select
ActiveSheet.Paste
Sheets(„Tabelle1“).Select
Rows(Right(ActiveCell.Address, 1) & „:“ & Right(ActiveCell.Address, 1)).Delete Shift:=xlUp

End If

End Sub

Gruß
Simone

#2

Ich habe eine Excel-Tabelle mit zwei Arbeitsblättern. In der
einen stehen alle offenen Punkte und in der zweiten alle
erledigten. Ich würde gerne ein Makro schreiben, dass die
komplette Zeile von den offenen Punkten zu den erledigten
schiebt, wenn ich in der Spalte K ein „e“ eintrage. Ich weiß
aber leider nicht weiter. Könnt ihr mir helfen? Hier mal mein
Makro, das leider nicht funktioniert.

Hallo Simone,

vielleicht so:

Private Sub Worksheet\_Change(ByVal Target As Range)
Dim Zei2 As Long
If Target.Column 11 Then Exit Sub
If Target.Cells.Count 1 Then Exit Sub
If Target.Value = "e" Then
 Zei2 = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1
 Target.EntireRow.Cut Destination:=Worksheets("Tabelle2").Cells(Zei2, 1)
End If
End Sub

Gruß
Reinhard