title image


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



wenn du sofort nach Änderung von offen in erledigt ein Update der Blätter haben möchtest, dann geht das so:



Füge das Makro in das Quell-Tabellenblatt (das mit beiden Einträgen) ein:

Rechtsklick auf Tabellenblatt-Reiter, Code anzeigen, einfügen:



Private Sub Worksheet_Change(ByVal Target As Range)



If Target.Column = 2 And Target.Row > 0 And Target.Row < 2000 Then

If LCase(Target.Value) = "offen" Or _

LCase(Target.Value) = "erledigt" Then

Call Aufteilen

End If

End If



End Sub



Das eigentliche Makro benötigt noch einen Nachtrag:



hinter die Set Statements, vor lZeile_O = 1:



Set WkSh_E = Worksheets("Tabelle3")



WkSh_O.Range("A1:Z" & WkSh_O.Range("A65536").End(xlUp).Row).ClearContents

WkSh_E.Range("A1:Z" & WkSh_E.Range("A65536").End(xlUp).Row).ClearContents



lZeile_O = 1



Gruß Peter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: