in mehrere zu benennenden Blaettern aufteilen

[gerardo_val]

Moin, moin zusammen,
Bin neu im Forum und deswegen eine kurze Selbstvorstellung:
Ich gehoere zu der wohl aelteren Fraktion dieses Forums. Trotzdem jung geblieben! Ich fahre als Kapitaen auf einem Containerschiff und bin auf den sieben Weltmeeren zuhause. Ich selbst lebe mit meiner Familie in Venezuela. Soviel zu mir und nun zu meiner Anfrage an euch:
Als Kapitaen muss ich zu Ende eines jeden Monats eine soganannte Telefon-Aufstellung erstellen (siehe angehaengte Tabelle) diese ist mit einigen Formeln bestueckt. Zur Zeit spalte ich die Tabelle haendisch auf mit Autofilter in Spalte_9 (on account to) und dann copy 'n paste in eine neue Tabelle die den Namen aus eben dieser Spalte_9 von mir verpasst bekommt. Dieses wuerde ich nun gerne mit VBA erledigen, aber ich scheitere daran immer wieder.
Also ich stelle es mir folgendermassen vor: ein VBA Code, der im Hintergrund die Spalte 9 ueberwacht und wenn dort ein neuer Name auftaucht, soll die gesamte Zeile in ein neues Blatt der gleichen Mappe  auftauchen und gleichzeitig den entsprechenden Namen bekommen. Und unten sollte die Spalte_8 (to be paid) in den einzelnen Blaettern  summiert sein.

Kann mir einer da weiterhelfen? 
gruss aus LAE, Papua-Neuguinea
P.S. Sehr oft habe ich kein Internet-Zugang, da meist auf See. Heute bis uebermorgen bin ich aber erreichbar und dann die gesamte naechste Woche teilweise. Also bitte entschuldige, wenn ich mich nicht gleich melde und ein Feedback ueber eventuelle Vorschlaege abgebe (24-Nov-18 12:40 deutsche Zeit)

[WillWissen]

Hallo Gerardo,

das Hochladen deiner Tabelle hat noch nicht ganz geklappt. Du musst den Button rechts (Attachment hinzufügen) ebenfalls anklicken.

[shift-del]

Moin

Warum willst du die gefilterten Daten in eines Blatt kopieren?
Eigentlich reicht der Filter.

[gerardo_val]

Hallo Gerardo,

das Hochladen deiner Tabelle hat noch nicht ganz geklappt. Du musst den Button rechts (Attachment hinzufügen) ebenfalls anklicken.

Danke Guenther - nun sollte es geklappt haben.......

Gerardo_val

[gerardo_val]

Moin

Warum willst du die gefilterten Daten in eines Blatt kopieren?
Eigentlich reicht der Filter.

Hallo shift-del

Ich muss der zu erstellenden Rechnung auch eine Einzelaufstellung ranhaengen. Ausserdem muss ich hier an Bord alles vernuenftig und nachvollziehbar dokumentieren, da scheint mir das andauernde Arbeiten mit Filter nicht die eleganteste Loesung zu sein

...aber danke fuer Dein Interesse

gruss
gerardo_va

[Fennek]

Hallo,

die Frage wie gestellt zu beantworten, sollte kein Problem sein. Aber nach der ersten Ansicht: sollte eine Pivot-Tabelle nicht ausreichen?

mfg

(edit: Datenschutz?)

[gerardo_val]

Hallo,

die Frage wie gestellt zu beantworten, sollte kein Problem sein. Aber nach der ersten Ansicht: sollte eine Pivot-Tabelle nicht ausreichen?

mfg

(edit: Datenschutz?)

Hallo Fennek
Pivot ist nicht mein Ding, ausserdem hat der Rechnungsempfaenger an das Layout gewöhnt..... 
Danke Dir fuer den Tipp
gerardo_val

[shift-del]

Ist das so richtig: Gespräche mit 0 Sekunden Dauer werden ebenfalls abgerechnet?
Man wählt die Nummer und legt sofort wieder auf. Kostet jedes Mal genauso viel wie ein 30 Sekunden-Gespräch.

[Fennek]

Hallo,

da das Format der einzelnen Seiten nicht bekannt ist, nur der Code um ein neues Blatt anzulegen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 Then
    For i = 1 To Sheets.Count
        If Sheets(i).Name = Target.Value Then bo = True
    Next i
    If Not bo Then Sheets.Add(, Sheets(Sheets.Count)).Name = Target.Value
Me.Activate
End If
End Sub

mfg

[shift-del]

Ausserdem muss ich hier an Bord alles vernuenftig und nachvollziehbar dokumentieren, da scheint mir das andauernde Arbeiten mit Filter nicht die eleganteste Loesung zu sein

Alternativ kannst du auch den Datenschnitt nehmen. Damit geht Filtern etwas schneller.