title image


Smiley Re: Zeilen auf mehrer Tabellenblätter verteilen
Hallo Zeisy,



so könnte es gehen, wenn du es auf deine Belange (Spalten und Blattnamen) angepasst hast:



Public Sub Aufteilen()



Dim WkSh_Q As Worksheet

Dim WkSh_O As Worksheet

Dim WkSh_E As Worksheet

Dim lzeile_Q As Long

Dim lzeile_O As Long

Dim lZeile_E As Long



Application.ScreenUpdating = False



Set WkSh_Q = Worksheets("Tabelle1")

Set WkSh_O = Worksheets("Tabelle2")

Set WkSh_E = Worksheets("Tabelle3")



lzeile_O = 1

lZeile_E = 1



With WkSh_Q

For lzeile_Q = 1 To Range("A65536").End(xlUp).Row

If LCase(WkSh_Q.Range("B" & lzeile_Q).Value) = "offen" Then

WkSh_Q.Rows(lzeile_Q).Copy Destination:=WkSh_O.Rows(lzeile_O)

lzeile_O = lzeile_O + 1

ElseIf LCase(WkSh_Q.Range("B" & lzeile_Q).Value) = "erledigt" Then

WkSh_Q.Rows(lzeile_Q).Copy Destination:=WkSh_E.Rows(lZeile_E)

lZeile_E = lZeile_E + 1

End If

Next lzeile_Q

End With



Application.ScreenUpdating = True



End Sub





Gruß Peter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: