Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.10.2025 19:27:32
Ungewollter Zeilensprung beim Löschen einer Spalte
09.10.2025 17:12:32
Rechnen in Zeile nach Auswahl Dropdown
09.10.2025 16:26:10
Sortenreine LKWs Filtern
09.10.2025 13:43:40
Mittelwertwenn aus unterschiedlichen Tabellenblättern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellen auf andere verteilen

Forumthread: Tabellen auf andere verteilen

Tabellen auf andere verteilen
03.11.2004 13:48:50
Thomas
Hallo Leute
Ich habe eine Tabelle. Diese Tabelle soll auf andere Tabellen verteilt werden. Ich habe es über der Recorder versucht aber leider nicht hinbekommen. Der Haken ist das sich jeden Monat die Tabelle in anzahl der Einträge ändert.
https://www.herber.de/bbs/user/12913.xls
Ich habe es nochmals in der hochgeladenen Tabelle beschrieben.
Danke für die Hilfe
Thomas B
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellen auf andere verteilen
Reinhard
Hi Thomas,
ich habs mal probiert, ist aber noch nicht korrekt, aber vielleicht kann das ja du oder ein anderer den nachfolgenden Code umbateln damit es klappt.
Gruß
Reinhard 

Option Base 1
Sub test()
For n = 1 To Worksheets.Count
For nn = 1 To 12
If MonthName(nn) = Worksheets(n).Name Then Call Kopieren(Worksheets(n).Name)
Next nn
Next n
End Sub
Sub Kopieren(wsName As String)
wsZiel = Array("Buch", "Baum", "Tür")
With Worksheets(wsName)
For n = 1 To 3 'Anzahl von wsZiel
Start = 2
Ende = 2
While .Cells(Start, 1) <> ""
erste = Worksheets(wsZiel(n)).Range("A65536").End(xlUp).Row + 1
While .Cells(Ende, 1) = .Cells(Ende + 1, 1)
Ende = Ende + 1
Wend
.Range("A" & Start & ":F" & Ende - 1).Copy Destination:=Worksheets(wsZiel(n)).Range("A" & erste)
Ende = Ende + 1
Start = Ende
Wend
Next n
End With
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

2 Combobox in UF in Tabelle1 u. Daten in Tabelle 2
Bernhard

Guten Abend liebe Excelprofis,
ich komme nicht weiter, folgende Aufgabenstellung zu lösen:
Ich rufe in Tabelle 1 eine Userform auf, die 2 ComboBoxen hat. (ArtikelNr. ArtikelBezeichnung). In Tabelle 2 stehen in Spalte A die ArtikelNrn. und in Spalte B die ArtikelBezeichnungen untereinand...
17.09.2008 21:32:00
Thread-ID: 1010532
5 Beiträge
Inhalt einer Tabelle in 2. Tabelle kopieren
Thomas

Hallo Excel Gemeinde,
Den Inhalt einer Tabelle, möchte ich in eine zweite Tabelle in der gleichen Arbeitsmappe kopieren, das funktioniert schon mal.
Die zu kopierenden Daten sollen aber am Ende der bereits vorhandenen Daten angefügt werden, bisher überschreibt es mir diese aber ;-(
...
24.09.2008 22:19:00
Thread-ID: 1012186
3 Beiträge
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Bereich von Tabelle1 als Grafik in Tabelle2 einfüg
Tabelle1

Hallo Leute,
ich komm irgendwie nicht weiter und benötige Hilfe.
es soll z.B. von Sheets("Tabelle1") Range("a1:b5")
als Grafik
in Sheets("Tabelle2")
Gruss
Atikar
19.11.2008 17:09:19
Thread-ID: 1026118
3 Beiträge
Anzeige
Werte aus allen Tabellen in ein Tabelle zusammenfü
Kurt

Hallo Zusammen,
ich möchte gern alle Werte aus den vorhandenen Tabellen in eine Tabelle eingelesen werden.
Es dürfen nur nicht aus der "Muster + Alle" Tabelle, geht das per Makro?
Aus folgenden Zellen sollen alle Werte addiert in die "Alle" Tabelle reingesetzt werden.
D17 + D17<...
16.01.2009 16:14:00
Thread-ID: 1040622
10 Beiträge
Anzeige
NEU: Tabellen zu einer „Mastertabelle“ zusammenfüh
Volker

Hi an alle!
Eine ähnlich Frage hatte ich vor kurzem schon mal gestellt. Mittlerweile hat sich an der Ausgangslage jedoch etwas geändert, so dass ich meine Frage noch einmal stelle.
Ich habe verschiedene Projektpläne (alles einzelne Excel-Dateien; etwa 20). Diese bestehen alle aus einem...
03.04.2009 14:30:39
Thread-ID: 1066690
5 Beiträge
Anzeige
Tabelleninhalte auslesen u. in eine andere Tabelle
Ralph

Hallo "ZUSAMMEN,
ich bin heute diesem Forum beigetreten um meine -nicht allzu guten- Excel-Kenntnisse zu erweitern.
Derzeit beschäftige ich mich damit, aus einer bestehenden Tabelle1 bestimmte Werte (z.B. wenn der
Umsatz kleiner 250,-- EUR ist) in eine Tabelle2 zu übertragen. Bis je...
23.09.2009 20:23:41
Thread-ID: 1105052
7 Beiträge
Tabelleninhalte auslesen u. in eine andere Tabelle
Ralph

Antwort auf Dein Ergebnis zu meiner Anfrage "Tabelleninhalte auslesen u. in eine andere Tabelle"
Hallo Matthias,
bin wieder an Bord und begeistert von Deiner Lösung. Klappt prima! Super... Super...
Habe versucht dieses VBA zu verstehen... aber keine Chance! Kannst Du mir vielleicht...
06.10.2009 19:23:15
Thread-ID: 1107569
8 Beiträge
Pivot Tabelle in Tabelle mit Spalten umwandeln??
okgi

Hallo liebe Excel Gemeinde!!
Meine Frage ist: wie kann ich eine Pivot Tabelle in eine Tabelle mit Spalten automatisiert überführen?
Zum Beispiel:
Pivot Tabelle
________KST_____________
Konto_.......1...........2...........3..
__A___.100,00................31,99
__B___...
15.12.2009 17:35:51
Thread-ID: 1124143
3 Beiträge
Anzeige
Daten aus Tabelle in Zieltabelle holen
René

Hallo liebe Excelgemeinde, gibt es eine Möglichkeit das Makro so zu ändern das die Spalten ab Spalte X in der Zieltabelle nicht überschrieben werden
Dim a As Long, b As Long, c As Long
b = Sheets("").Cells(Rows.Count, 1).End(xlUp).Row
c = Sheets("").Cells(Rows.Count, 1).End(xlUp).Ro...
01.02.2010 22:41:38
Thread-ID: 1134947
2 Beiträge
Daten aus Tabellen Suchen und in Tabelle zusammenf
Brutus

Wer kann mir helfen?
Ich möchte gern aus Tabelle K1 bis K13 verschiedene Daten in Tabelle ALLES zusammenfassen. s.Upload
https://www.herber.de/bbs/user/68180.xls
Ich würde mich freuen, wenn jemand eine Lösung in Form einen Formel oder Makro hätte!!!
23.02.2010 07:12:09
Thread-ID: 1140473
9 Beiträge
Tabellenblätter in eine neue Tabelle
Peter

Guten Tag
Ich habe eine Datei mit 24 Worksheets, in welchen gleichviele Spalten abgefüllt sind ( A - K) jedoch unterschiedlich viele Zeilen.
Nun möchte ich gerne in eine weitere Tabelle alle Tabellen übernehmen
Wenn in Tabelle1 zB. 5 Zeilen gefüllt sind, möchte ich diese 5 in die ne...
26.02.2010 12:50:03
Thread-ID: 1141743
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige