Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Wie Datei aufteilen

VBA - Wie Datei aufteilen
19.01.2009 14:53:44
Sibylle
Hallo,
in Tabellenblatt1 stehen
Datum, KundenNr, Betrag, zuständige Person (Name) in den Spalten A - D.
Nun soll pro zuständige Person jeweils ein Tabellenblatt angelegt werden, in dem die Daten, die zu dieser Person gehören, in das "neue" Tabellenblatt eingetragen werden.
Gibt es also zb. 12 zuständige Personen, so sollen 12 Tabellenblätter angelegt werden mit den Namen der zuständigen Personen.
Wie geht man am besten solch eine Aufgabe mit VBA an?
Dank im voraus.
Gruß
Sibylle

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Wie Datei aufteilen
19.01.2009 15:05:00
Oberschlumpf
Hi Sibylle
Und wo in den neuen Tabellenblätten sollen dann die Daten eingetragen werden?
Schön wäre eine ausgefüllte Bsp-Datei mit a) der Ursprungstabelle mit ausreichenden Daten und b) einer Mustertabelle, wie die neuen Tabellen dann aussehen sollen.
Ciao
Thorsten
AW: VBA - Wie Datei aufteilen
19.01.2009 15:06:00
Andi
Hi,
probier mal dies:

Sub t()
Dim c As Range
Dim ws As Worksheet
Dim vorhanden As Boolean
Application.ScreenUpdating = False
With Sheets("Tabelle1")
For Each c In .Range("D1:D" & .Range("D65536").End(xlUp).Row)
vorhanden = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name = c.Value Then vorhanden = True
Next ws
If vorhanden = False Then
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = c.Value
End If
.Rows(c.Row).Copy
Sheets(c.Value).Range("A" & Sheets(c.Value).Range("A65536").End(xlUp).Row + 1).PasteSpecial
Next c
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub


Schönen Gruß,
Andi

Anzeige
AW: VBA - Wie Datei aufteilen
19.01.2009 21:26:00
Sibylle
Hallo Andi,
das Programm erfüllt genau den Zweck.
Vielen Dank für Deine Hilfe.
Gruß
Sibylle
gern geschehen... (ot)
20.01.2009 09:00:00
Andi
.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige