Makro ändern

Forumthread: Makro ändern

Makro ändern

07.07.2005 17:05:12

dmoser

Hi, kann mir bitte einer das Makro so ändern das es die Zeilen nicht mehr löscht sondern in Tabelle2 kopier,danke.


Sub wech()
ende = Cells(Rows.Count, 9).End(xlUp).Row
For i = ende To 2 Step -1
If Cells(i, 9) = "Telefax" Then
Rows(i).Delete
End If
Next i
End Sub

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro ändern

07.07.2005 18:00:52

sawadee00
AW: Makro ändern

07.07.2005 18:10:28

dmoser
AW: Makro ändern

08.07.2005 10:07:08

sawadee00

AW: Makro ändern

07.07.2005 18:00:52

sawadee00

wie wäre es damit?


Sub wech()
ende = Cells(Rows.Count, 9).End(xlUp).Row
For i = ende To 2 Step -1
If Cells(i, 9) = "Telefax" Then
Rows(i).Copy
Sheets("Tabelle2").Select
Rows(i & ":" & i).Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
End If
Next i
End Sub

Grüße von hier
sawadee00

AW: Makro ändern

07.07.2005 18:10:28

dmoser

ne geht nicht ich bekomme als fehlermeldung "400" mehr nicht

AW: Makro ändern

08.07.2005 10:07:08

sawadee00

Lade doch mal deine Datei hoch.

Forumthread: Makro ändern

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread