Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 18:33:31
Excel Fenster fixieren
28.04.2024 18:25:12
Excel Aufbauende Summe
28.04.2024 14:18:05
Einfügen ohne Select
28.04.2024 14:00:34
Formel fehler in der Berechnung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1776to1780
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
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Tabellenblatt erstellen/Copy Eintr

VBA - Tabellenblatt erstellen/Copy Eintr
25.08.2020 12:38:56
GismoTB
Hallo zusammen,
ich habe da eine Frage.
Ist es möglich per Makro folgendes druchzuführen:
Ich habe eine Exceltabelle mit vielen Spalten und Zeilen.
In Spalte A steht eine Materialnummer.
Jetzt möchte ich, dass per VBA für jede Materialnummer ein neues Tabellenblatt generiert und aus Blatt A alle Zeilen mit der dazugehörigen Materialnummer reinkopiert werden.
Am Ende sollte ich dann Blatt A als Masterfilde und für jede Materialnummer ein Arbeitsblatt mit den Daten aus Blatt A haben,
Ich bedanke mich schon mal für eure Hilfe.
Liebe Grüße
Thomas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Tabellenblatt erstellen/Copy Eintr
25.08.2020 12:51:12
Werner
Hallo,
dann lad mal deine Mappe mit ein paar dutzend Datensätzen hier hoch.
Gruß Werner
AW: VBA - Tabellenblatt erstellen/Copy Eintr
25.08.2020 13:50:26
peterk
Hallo
Ich verwende Spalte Z um die eindeutigen Materialnummern zu bekommen

Option Explicit
Sub Tabellen_erstellen()
Dim i As Long
Dim lastRow As Long
Dim sheetName As String
Dim ws As Worksheet
Application.ScreenUpdating = False
With Worksheets("Tabelle1")   ' anpassen
On Error Resume Next
.ShowAllData
On Error GoTo 0
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("A2:A" & lastRow).Copy .Range("Z1")
.Range("Z1:Z" & lastRow).RemoveDuplicates Columns:=1, Header:=xlNo
For i = 1 To .Cells(.Rows.Count, "Z").End(xlUp).Row
.Range("A1").AutoFilter field:=1, Criteria1:=.Cells(i, "Z")
Worksheets.Add After:=Worksheets(Worksheets.Count)
.AutoFilter.Range.Copy ActiveSheet.Range("A1")
sheetName = .Cells(i, "Z")
For Each ws In ThisWorkbook.Worksheets
If ws.Name = sheetName Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
Next ws
ActiveSheet.Name = sheetName
Next i
.Range("A1").AutoFilter
.Columns("Z").ClearContents
End With
Application.ScreenUpdating = True
End Sub

Anzeige
AW: VBA - Tabellenblatt erstellen/Copy Eintr
25.08.2020 14:13:27
GismoTB
Vielen Dank.
Ich probiere es gleich mal aus.
Aber wie kommst du auf Spalte Z. Die ist doch leer
AW: VBA - Tabellenblatt erstellen/Copy Eintr
25.08.2020 14:20:42
peterk
Hallo
Ich brauch eine leere Spalte. Ich kopiere die Daten aus Spalte A nach Z und verwende "RemoveDublicates" um alle eindeutigen Materialnummern zu bekommen. Am Schluss lösche ich die Spalte wieder. Man könnte auch noch die Materialnummern sortieren falls gewünscht.
Peter

324 Forumthreads zu ähnlichen Themen

Beim erstellen Tabellenblatt VBA Code eintragen | Herbers Excel-Forum
Robert
Guten morgen Leute,
wer kann mit helfen?
Ich möchte per VBA Code in dem neuer erstellten Tabellenblatt mit Namen XY einen Quellcode
reinschreiben z.b.
in einer Spalte AF addiere Zellen wenn die eine Zahl enthalten.
Mit dank im Voraus
Robert
23.05.2009 09:00:32
Thread-ID: 1076816
22 Beiträge
Anzeige
VBA variables Tabellenblatt ansprechen
Stefan

Hallo zusammen,
ich möchte über Eingabe in Zelle A1 bestimmen aus welchem externen Tabellenblatt Daten eingelesen werden sollen. Leider schaffe ich es nicht die Zelle als Variable zu gestalten:
Public Sub data()
Dim objWB As Workbook, objWS As Worksheet, objWSImport As Worksheet, ob...
16.11.2009 16:14:31
Thread-ID: 1117681
8 Beiträge
Verweis auf Spalte und zeile einer Tabelle
Julian

Liebe Excelgemeinde,
angenommen ich habe eine Spalte [PersNummer] in einem als Tabelle formatiertem Bereich,
wie kann ich Zeile 5 aus Spalte [PersNummer] in eine Formel einbinden?
Vielen Dank schon im Voraus,
Julian t.
23.11.2009 15:51:02
Thread-ID: 1119514
6 Beiträge
Anzeige
Buttons in einer Tabelle ansprechen und löschen
Tom

Hallo ihr Profis.
ICh habe ein Problem mit einem Makro von mir.
Ich möchte gern dass in dem Makro alle Buttons abgefragt werden und die die sich in der entsprechenden Spalte befinden gelöscht werden.
Ich habe das bisher so realisiert:
For Each ButtonShape In Sheet.Sh...
14.10.2010 06:51:24
Thread-ID: 1181892
5 Beiträge
2 Spalten einer Tabelle einer anderen zufügen
Ralf

Hi Folks,
Ich habe eine csv-Tabelle mit 5000 aufgewählten Produkten aus einem Pool von 24000 Artikeln. Eine Zweite Tabelle (im txt-Format) beinhaltet alle 24000 Artikel mit gleichlautenden Artikelnummern aber anderen Infos. Jetzt möchte ich aus der Tabelle mit 24000 Artikeln zwei Infospalte...
20.10.2010 08:18:51
Thread-ID: 1183151
6 Beiträge
VBA, automatisch Tabellenblätter erstellen
Tim

Hallo zusammen,
ich habe hier ein Makro, dass mir in Abhängigkeit des Zellenwertes A3 automatisch ein Tabellenblatt mit dem Namen des Zelleninhalts erstellt.
Sub NeuesBlatt() 'Varialen deklarieren Dim ws As Worksheet, wb As Workbook, sName As String ' Name des neuen Blattes auslesen s...
21.04.2012 11:33:55
Thread-ID: 1260338
3 Beiträge
Inhalt einer ganzen Tabelle ansprechen
Ximena

Hallo :)
Ich programmiere gerade eine Makro im PowerPoint. Ich weiss, das hier ist ein Excel Forum, aber da ich hier die besten Antworten auf meine Fragen bekomme, kann ich es ja dann vielleicht aufs PPT duplizieren :)
Nun gut, ich suche auf einem Slide nach dem Shape, das eine Tabelle...
31.05.2012 11:00:22
Thread-ID: 1265522
3 Beiträge
Spalte X aus 20+ Blättern in einer Tabelle kopiere
Jones

Hallo,
ich muss regelmäßig aus einer Exceltabelle, Text aus bestimmten Blättern kopieren und die Wörter mit Notepad++ zählen.
Ich suche eine Möglichkeit entweder:
1. die betroffenen Spalten aus den betroffenen Blättern zu kopieren
und in eine neue Tabelle einfügen und dann den d...
05.02.2013 11:26:39
Thread-ID: 1297710
10 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
21
1
7
5
2
4
5
2
2
9
2
2
2
7
5
6
1
3
4
3
5
5
2
4
19