Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten versch. Blätter untereinander schreiben

Forumthread: Daten versch. Blätter untereinander schreiben

Daten versch. Blätter untereinander schreiben
09.11.2006 10:24:07
Cornel
Guten Morgen Forum!
Wir haben hier ein Problem an dem ich und meine Mitarbeiter langsam
verzweifeln.
Die Aufgabenstellung ist eigentlich simpel:
Wir haben eine Exceltabelle, die aus 75 Tabellenblättern besteht.
In allen 75 Blättern sind die Daten gleich formatiert, haben die gleiche Anzahl Spalten und Zeilen, nur natürlich mit unterschiedlichen Werten und unterschiedlichen Blattbezeichnungen.
Ziel ist es, die Daten aller 75 Blätter in einem Blatt zu haben. Dabei müssen sie lediglich untereinander geschrieben werden (also nicht konsolidieren o.ä.).
Uns fällt hier dazu im Rahmen unserer Möglichkeiten nix mehr ein.
Gibt es hierzu einen Trick oder habt ihr einen Vorschlag für ein Makro?
Wir sind gespannt auf Hinweise!!
Vielen Dank im Voraus und
einen schönen Gruß aus Mittelhessen
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten versch. Blätter untereinander schreiben
09.11.2006 10:36:51
Reinhard
Hi Cornel,
Option Explicit
Sub tt()
Dim Zei As Long, Blatt As Worksheet
For Each Blatt In ThisWorkbook.Worksheets
If Blatt.Name <> ActiveSheet.Name Then
Zei = Zei + 1
Cells(Zei, 1) = Blatt.Range("A1")
End If
Next Blatt
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Daten versch. Blätter untereinander schreiben
09.11.2006 10:46:34
Cornel
Hi Reinhard,
ich kann es leider erst später ausprobieren, aber soweit schonmal
vielen Dank für die schnelle Antwort !!!
Gruß
Cornel
AW: Daten versch. Blätter untereinander schreiben
09.11.2006 10:55:21
lueckii
Moin moin!
Hier ein Beispiel, wenn die Werte in den Tabellenblättern alle im Bereich ("A1:D2") stehen, das erste Tabellenblatt, aus dem die Daten kommen das 2te der Mappe ist und das Tabellenblatt, in welches die Daten rein sollen das 1ste ist.
Dim Datensatztemp as Single
Dim ZelleA as String
Dim ZelleB as String
Const Datensatz = 1
Datensatztemp = Datensatz
For i = 2 to ThisWorkbook.Worksheets(i).Count
ZelleA = Cells(Datensatz,1)
ZelleB = Cells(Datensatz,1).Offset(1,3)
ThisWorkbook.Worksheets("Zusammenfassungsblatts").Range(ZelleA & ":" & ZelleB).Value = _
ThisWorkbook.Worksheets(i).Range("A1:D2").Value
Datensatztemp = Datensatztemp +2
Next i
End sub
Hoffentlich gehts auch
Gruß Martin
Anzeige
AW: Daten versch. Blätter untereinander schreiben
09.11.2006 11:10:01
Cornel
Hallo Martin,
auch dir erstmal vielen Dank.
Ich habs ausprobiert, bekomme aber die Fehlermeldung, dass der Index außerhalb des
gültigen Bereichs liegt. Kannst du sagen, woher der Fehler stammen könnte?
(Ich habe leider hiervon noch echt wenig Ahnung.)
Gruß
Cornel
AW: Daten versch. Blätter untereinander schreiben
09.11.2006 11:11:30
Reinhard
Hi Cornel,
du wirst kein Blatt "Zusammenfassungsblatts" haben.
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Daten versch. Blätter untereinander schreiben
09.11.2006 11:17:28
Harald
Hi,
und noch ne Möglichkeit ;-)
Der Code gehört ins Standardmodul. Blatt "Zusammenfassung" einfügen und den Copy-Bereich anpassen (falls immer gleich, ansonsten eine Alternative zum Einsatz kommen muss).

Sub untereinander()
Dim i As Integer, Lrow As Long
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Sheets("Zusammenfassung").Cells.Clear
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Zusammenfassung" Then
Lrow = Sheets("Zusammenfassung").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Sheets("Zusammenfassung").Range("A" & Lrow) = "Daten von Blatt " & Sheets(i).Name
Sheets(i).Range("A1:D20").Copy 'Bereich anpassen
Sheets("Zusammenfassung").Range("A" & Lrow + 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End If
Next i
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

Gruss Harald
Anzeige
AW: Daten versch. Blätter untereinander schreiben
09.11.2006 11:33:09
Cornel
Hallo Harald,
VIELEN DANK, es funktioniert!
Danke auch den anderen!!!
Gruß aus Mittelhessen
und noch einen schönen Tag!
AW: Danke für die Rückmeldung owT
09.11.2006 11:37:10
Harald
Gruss Harald
;

Forumthreads zu verwandten Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Anzeige
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Anzeige
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Anzeige
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Zeilenhöhe in Abhängigkeit von Textlänge
Textlänge

Guten Tag
Ich habe bei zwei verbundenen Zellen wie folgt formatiert:
- Textausrichtung --> Blocksatz
- Textsteuerung: Zeilenumbruch
Diese verbundenen Zellen (hier B20:C20) sind mit dem Namen "Beurteilung1" benannt. Der Inhalt wird durch eine Formel gesteuert. Als Ergebnis ste...
13.10.2008 16:27:02
Thread-ID: 1016108
6 Beiträge
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 Beiträge
Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:11
Thread-ID: 1018407
3 Beiträge
Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:19
Thread-ID: 1018408
3 Beiträge
Pivot - Text in Spalte überführen
Binu

Hallo
Ich hab in der Beispieldatei die Spalte "Zahl", welche ich in einer Pivotdatei ebenfalls als Spalte neben der Spalte "TExt" hinzufügen will. Nur kriege ich das nicht hin. Kann mir da jemand helfen? Besten Dank!
Gruss Albin
https://www.herber.de/bbs/user/56492.xls
04.11.2008 11:04:36
Thread-ID: 1021516
4 Beiträge
Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Textdatei importieren in ComboBox mit Zeilenumbruc
Edie

Hallo zusammen,
in eine ComboBox wird eine Textdatei eingelesen. Die Textdatei hat nur eine Spalte.
Leider wird der Inhalt der Textdatei in der ComboBox in eine Zeile dargestellt.
Wie erzwinge ich einen Zeilenumbruch in der ComboBox? Was sollte in den
Eigenschaften der ComboBox...
16.11.2008 17:38:26
Thread-ID: 1024954
5 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