Excel Makro: Zeilen in anderes Tabellenblatt verschieben

[BuckFix]

Wie bringe ich Excel dazu, mit Hilfe eines Makros Zeilen abhängig vom Ihnalt bestimmter Spalten in ein anderes Tabellenblatt zu verschieben oder kopieren?

Sollte unter Office2000 und Office2003 laufen.

[BuckFix]

ok, hab schon was gefunden:

Sub ZeilenInBLattVerschieben()
Dim r As Integer
Dim rfirst As Long, rlast As Long
Dim wksDAT As Worksheet, wksHTB As Worksheet
Set wksDAT = Sheets("Tabelle1")
Set wksHTB = Sheets("Tabelle2")
wksDAT.Activate
rlast = wksDAT.Cells(65536, 1).End(xlUp).Row
For rfirst = 1 To rlast
  If InStr(wksDAT.Cells(rfirst, 1), "Bezugswert") Then
      Rows(rfirst).Cut _
    wksHTB.Cells(65536, 1).End(xlUp).Offset(1, 0)
  End If
Next
wksHTB.Rows(1).Delete
End Sub

[HeikoBerlin]

Geprüft wird die Spalte C auf den Wert 1 und
falls identisch die entsprechende Zeile von Tabelle1
in Tabelle2 kopiert und anschliessend in Tabelle 1 entfernt.
(move funzt nur mit Arbeitsblättern)

    Dim x, i, ergo
        x = 0
    For i = 1 To 65535
        ergo = Range("C" & i)
        If ergo Then
            x = x + 1
            Worksheets("Tabelle1").Rows(i).Copy _
            Destination:=Worksheets("Tabelle2").Rows(x)
            Worksheets("Tabelle1").Rows(i).Delete
        End If
    Next i

Sieht bei mir einfacher aus, oder ? *g*

[BuckFix]

hm..
kapier' ich nicht: was ist denn hier der Bezugswert nachdem die Auswahl erfolgt?

Du schreibst:
"Geprüft wird die Spalte C auf den Wert 1"
aber entweder bin ich blind, oder du definierst diesen Wert 1 nicht?!?

Vielleicht bin ich ja auch zuwenig Programmierer für sowas, aber den code oben habe ich wenigstens verstanden...

[HeikoBerlin]

sorry, verwirren wollte ich natürlich nicht.

If ergo Then
ist gleichbedeutend mit If ergo = 1 Then
statdessen kann man auch Buchstabe B nehmen
If ergo = "B" Then

Da oben sieht's immer so (gleich) nach herber aus
aber ist ja dann auch mittlerweile egal

[BuckFix]

Ahhh! So ist das also!

Du brauchst dich auch bestimmt nicht zu entschuldigen!

Mit Herber liegst du übrigens richtig. Da fand ich das Codebeispiel.