Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1700to1704
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
1700to1704
1700to1704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter automatisch erstellen und füllen

Tabellenblätter automatisch erstellen und füllen
19.07.2019 09:23:38
Daniel
Hallo zusammen,
im alten Thread kann ich keine Antwort erstellen, darum die Frage nochmal neu und konketer formuliert.
Ich kann das auch gerne noch spezifizieren:
Ich habe eine Excelliste mit einer Tabelle1. Die Daten sind wie folgt dort eingetragen:
Mannschaft1 Spieler1
Mannschaft1 Spieler2
Mannschaft1 Spieler3
Mannschaft1 Spieler4
Mannschaft2 Spieler1
Mannschaft2 Spieler2
Mannschaft2 Spieler3
Mannschaft2 Spieler4
Daraus möchte ich gerne einzelne Tabellenblätter mit dem Namen der Mannschaft erstellen und die Spieler dort eintragen.
Tabelle "Mannschaft1" mit den Spielern 1-4
Tabelle "Mannschaft2" mit den Spielern 1-4 usw.
Ich habe eine Beispieldatei mal angehängt. https://www.herber.de/bbs/user/130986.xlsx
Die Tabellenblätter Mannschaft 1 und 2 mit den Spielern soll automatisch erstellt werden basierend auf den Einträgen in Tabelle1
Wie kann ich das realisieren?
Danke für eure Hilfe
Gruß
Daniel

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter automatisch erstellen und füllen
19.07.2019 09:56:11
Daniel
Hallo Daniel,
geht bestimmt eleganter, aber bevor du weiter auf dem Trockenen sitzt probier mal diesen Ansatz:
Sub Spieler()
Dim i As Long, j As Long, letzteZ As Long
Dim ws As Worksheet, wsNew As Worksheet
Set ws = ActiveSheet
letzteZ = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
j = 1
With ws
For i = 1 To letzteZ
Do While .Cells(j, 1) = .Cells(j + 1, 1)
j = j + 1
Loop
On Error Resume Next
Set wsNew = Worksheets(.Cells(i, 1).Value)
If Err.Number  0 Then
Set wsNew = Worksheets.Add(After:=Sheets(1))
wsNew.Name = .Cells(i, 1).Value
End If
On Error GoTo 0
.Range(.Cells(i, 2), .Cells(j, 2)).Copy wsNew.Cells(1, 1)
i = i + j - 1
j = j + 1
Next i
End With
End Sub
Gruß
Daniel
Anzeige
AW: Tabellenblätter automatisch erstellen und füllen
19.07.2019 10:34:15
Daniel
Hallo Daniel,
vielen Dank für die schnelle Antwort. Leider scheint das Script irgendwann durcheinander zu kommen.
Ich habe die Liste mit dem Makro nochmal angehängt. Vielleicht kannst Du ja nochmal einen Blick drauf werfen.
https://www.herber.de/bbs/user/130991.xlsm
Danke und Gruß
Daniel
AW: Probiere es mal so...
19.07.2019 11:24:54
Daniel
Funktioniert !!!
Perfekt
Danke euch
Anzeige
AW: Probiere es mal so...
19.07.2019 11:29:57
Daniel
Das ist immer das Schöne, wenn die echte Datei nicht dem Beispiel entspricht... Wenn da plötzlich ne Überschrift vor kommt, musst du natürlich die Startzeilen anpassen. In diesem Fall ändere
 = 2
With ws
For i = 2 To letzteZ

Case's Ansatz klappt natürlich auch.
Gruß
Daniel
AW: Probiere es mal so...
19.07.2019 11:45:29
Daniel
Oh sorry,
mein Fehler. Hatte ich gar nicht gesehen.
Danke für Deine Hilfe. Jetzt funktioniert es!
Gruß
Daniel

312 Forumthreads zu ähnlichen Themen

VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
Anzeige
neue Datei erstellen und beschreiben
Toby


Hmm, wahrscheinlich für euch ein kleines Problem
habe aber im archiv nichts gefunden!
ich erstelle ein neues file und möchte dann die neue Datei mit Daten beschreiben.
aber leider schreibt er mir immer ins file in dem ich das makro starte!
ich hatte schon mol so ein Proble...
29.10.2008 13:07:00
Thread-ID: 1020251
9 Beiträge
Makro in neuer Datei erstellen
Kurt

Guten Morgen Allerseits,
ich hoffe mir kann jemand weiterhelfen.
Problem:
Ich erstellt eine TXT Datei per Makro, nun möchte ich das
zusätzlich ein Commandbutton erstellt wird, mit folgendem Inhalt:
Private Sub CommandButton1_Click() Dim z As Long z = Range("a6").End(xlDo...
13.11.2008 10:47:23
Thread-ID: 1024104
7 Beiträge
Anzeige
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
per VBA prn-Datei erstellen
Ron

hallo,
weiß jemand von euch wenn ich per makro eine Exceltabelle als prn-Datei ausdrucken will wie ich diese automatisch mit einem vorher ermittelten Namen abspeichern kann?
Danke
Gruß Ron
19.11.2008 17:22:00
Thread-ID: 1026126
5 Beiträge
Makro per VBA in Datei erstellen
Marko

Hallo zusammen,
folgendes Problem:
ich habe eine Datei mir mehreren Tabellenblätter die Formeln enthalten.
Per VBA exportiere ich die Datei und enferne dabei die vorhandenen Makros sowie ersetzte die Formeln durch Werte.
Nun würde ich abschließend in den Export ein neues Makro i...
01.07.2009 17:22:37
Thread-ID: 1085801
3 Beiträge
Tabellenblätter autom. erstellen und ausfüllen
Robert

Hallo Leute
ich habe hier eine Mappe in der ich eine Vorlage für die Prüfung von Maschinen hab.
Ich brauch pro Maschine ein Tabellenblatt und daher würde ich diese gerne automatisch erstellen wenn in der Geräteliste ein Gerät eingetragen wird.
Des Weiteren soll in den automatisch er...
07.07.2009 20:30:38
Thread-ID: 1086950
7 Beiträge
Neue Datei erstellen
Stefanglander

Hallo Forum,
ich habe eine Datei in der auf Blatt 1 im Bereich C2:C27 Namen stehen.
Ich möchte nun mit einem Makro ausgelößt durch einen CMB das für Zelle im Bereich C2:C27 die nicht leer ist eine neue Datei mit dem Namen der jeweiligen Zelle angelegt wird.
Als Vorlage soll das Bla...
02.08.2009 19:37:22
Thread-ID: 1093084
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
5
8
6
3
4
4
2
6
2
3
10
13
2
1
3
6
4
2
5
12
5
4
5
10